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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2017-12-09 12:41:58 +01:00
commit 29bc02d707
249 changed files with 171036 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/DPM2016/v14/.suo Normal file
View File

Binary file not shown.

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

Binary file not shown.

1
DPM2016.jmconfig Normal file
View File

@@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

28
DPM2016.sln Normal file
View File

@@ -0,0 +1,28 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.40629.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{C78BA301-98A0-41B2-B1C9-553567634286}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.Build.0 = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{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
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
DPM2016.v12.suo Normal file
View File

Binary file not shown.

460
DPM2016/Behandlung/Behandlung.Designer.vb generated Normal file
View File

@@ -0,0 +1,460 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Behandlung
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Behandlung))
Me.tsbtndelete = New System.Windows.Forms.ToolStrip()
Me.tsbtnnewbehandlung = New System.Windows.Forms.ToolStripButton()
Me.tsbtndeletebehandlung = New System.Windows.Forms.ToolStripButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.treebehandlungen = New DevComponents.AdvTree.AdvTree()
Me.ctxmenubehandlung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungLöschenToolStripMenuItem1 = 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()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.NeueBehandlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.NeuerKostenvoranschlagToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
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.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.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
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.tsbtnbehandlungdelete.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'tsbtndelete
'
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung})
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(1050, 25)
Me.tsbtndelete.TabIndex = 1
Me.tsbtndelete.Text = "ToolStrip1"
'
'tsbtnnewbehandlung
'
Me.tsbtnnewbehandlung.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
'
'tsbtndeletebehandlung
'
Me.tsbtndeletebehandlung.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(23, 22)
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(220, 558)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen"
'
'treebehandlungen
'
Me.treebehandlungen.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treebehandlungen.AllowDrop = True
Me.treebehandlungen.AllowExternalDrop = False
Me.treebehandlungen.AllowUserToResizeColumns = False
Me.treebehandlungen.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treebehandlungen.BackgroundStyle.Class = "TreeBorderKey"
Me.treebehandlungen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treebehandlungen.ContextMenuStrip = Me.ctxmenubehandlung
Me.treebehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.treebehandlungen.DragDropEnabled = False
Me.treebehandlungen.DragDropNodeCopyEnabled = False
Me.treebehandlungen.ImageList = Me.ImageList1
Me.treebehandlungen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treebehandlungen.Location = New System.Drawing.Point(3, 16)
Me.treebehandlungen.Name = "treebehandlungen"
Me.treebehandlungen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2})
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
Me.treebehandlungen.PathSeparator = ";"
Me.treebehandlungen.Size = New System.Drawing.Size(214, 539)
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
Me.treebehandlungen.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1"
'
'ctxmenubehandlung
'
Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1})
Me.ctxmenubehandlung.Name = "ContextMenuStrip1"
Me.ctxmenubehandlung.Size = New System.Drawing.Size(210, 104)
'
'NeueBehandlungToolStripMenuItem1
'
Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1"
Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
'
'BehandlungabschliessenToolStripMenuItem1
'
Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen"
'
'BehandlungLöschenToolStripMenuItem1
'
Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen"
'
'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, "Document Folder_32.png")
Me.ImageList1.Images.SetKeyName(1, "Favorites_#2_32.png")
Me.ImageList1.Images.SetKeyName(2, "Document_32.png")
Me.ImageList1.Images.SetKeyName(3, "Document_properties_32.png")
Me.ImageList1.Images.SetKeyName(4, "License_32.png")
'
'Node2
'
Me.Node2.Name = "Node2"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'NeueBehandlungToolStripMenuItem
'
Me.NeueBehandlungToolStripMenuItem.Name = "NeueBehandlungToolStripMenuItem"
Me.NeueBehandlungToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.NeueBehandlungToolStripMenuItem.Text = "&Neue Behandlung"
'
'BehandlungAbschliessenToolStripMenuItem
'
Me.BehandlungAbschliessenToolStripMenuItem.Name = "BehandlungAbschliessenToolStripMenuItem"
Me.BehandlungAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.BehandlungAbschliessenToolStripMenuItem.Text = "&Behandlung abschliessen"
'
'BehandlungLöschenToolStripMenuItem
'
Me.BehandlungLöschenToolStripMenuItem.Name = "BehandlungLöschenToolStripMenuItem"
Me.BehandlungLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.BehandlungLöschenToolStripMenuItem.Text = "Behandlung &löschen"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(240, 6)
'
'NeuerKostenvoranschlagToolStripMenuItem
'
Me.NeuerKostenvoranschlagToolStripMenuItem.Name = "NeuerKostenvoranschlagToolStripMenuItem"
Me.NeuerKostenvoranschlagToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.NeuerKostenvoranschlagToolStripMenuItem.Text = "Neuer &Kostenvoranschlag"
'
'KostenvoranschlagAbschliessenToolStripMenuItem
'
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Name = "KostenvoranschlagAbschliessenToolStripMenuItem"
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.KostenvoranschlagAbschliessenToolStripMenuItem.Text = "Kostenvoranschlag abschliessen"
'
'KostenvoranschlagLöschenToolStripMenuItem
'
Me.KostenvoranschlagLöschenToolStripMenuItem.Name = "KostenvoranschlagLöschenToolStripMenuItem"
Me.KostenvoranschlagLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.KostenvoranschlagLöschenToolStripMenuItem.Text = "Kostenvoranschlag löschen"
'
'SuperTabControl1
'
'
'
'
'
'
'
Me.SuperTabControl1.ControlBox.CloseBox.Name = ""
'
'
'
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(220, 25)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(830, 558)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 9
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
Me.SuperTabControl1.Text = "Rechnungstext"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(830, 533)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(830, 533)
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(627, 642)
Me.Behandungdetail1.TabIndex = 0
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
Me.STBehandlung.GlobalItem = False
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(830, 558)
Me.SuperTabControlPanel3.TabIndex = 0
'
'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(830, 533)
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(830, 533)
Me.Panel1.TabIndex = 1
'
'Leistungen1
'
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
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(830, 533)
Me.Leistungen1.TabIndex = 0
'
'STLeistung
'
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
Me.STLeistung.GlobalItem = False
Me.STLeistung.Name = "STLeistung"
Me.STLeistung.Text = "Leistungen"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neue Behandlung"
'
'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 = "ToolStripButton1"
'
'tsbtnbehandlungdelete
'
Me.tsbtnbehandlungdelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton1})
Me.tsbtnbehandlungdelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtnbehandlungdelete.Name = "tsbtnbehandlungdelete"
Me.tsbtnbehandlungdelete.Size = New System.Drawing.Size(1050, 25)
Me.tsbtnbehandlungdelete.TabIndex = 1
Me.tsbtnbehandlungdelete.Text = "ToolStrip1"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem, Me.BehandlungAbschliessenToolStripMenuItem, Me.BehandlungLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuerKostenvoranschlagToolStripMenuItem, Me.KostenvoranschlagAbschliessenToolStripMenuItem, Me.KostenvoranschlagLöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
'
'BehandlungZurücksetzenToolStripMenuItem
'
Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem"
Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(206, 6)
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(206, 6)
'
'Behandlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.tsbtndelete)
Me.Name = "Behandlung"
Me.Size = New System.Drawing.Size(1050, 583)
Me.tsbtndelete.ResumeLayout(False)
Me.tsbtndelete.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).EndInit()
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.tsbtnbehandlungdelete.ResumeLayout(False)
Me.tsbtnbehandlungdelete.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents tsbtndelete As System.Windows.Forms.ToolStrip
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents treebehandlungen As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents Node2 As DevComponents.AdvTree.Node
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents SuperTabControl1 As DevComponents.DotNetBar.SuperTabControl
Friend WithEvents SuperTabControlPanel1 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents STBehandlung As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Leistungen1 As DPM2016.Leistungen
Friend WithEvents STLeistung As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Behandungdetail1 As DPM2016.Benhandungdetail
Friend WithEvents tsbtnnew As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtnbehandlungdelete As System.Windows.Forms.ToolStrip
Friend WithEvents tsbtnnewbehandlung As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtndeletebehandlung As System.Windows.Forms.ToolStripButton
Friend WithEvents ctxmenubehandlung As System.Windows.Forms.ContextMenuStrip
Friend WithEvents NeueBehandlungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BehandlungAbschliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BehandlungLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents NeuerKostenvoranschlagToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents KostenvoranschlagAbschliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents KostenvoranschlagLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NeueBehandlungToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BehandlungabschliessenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BehandlungLöschenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents SuperTabControlPanel3 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
Friend WithEvents BehandlungZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator
End Class

262
DPM2016/Behandlung/Behandlung.resx Normal file
View File

@@ -0,0 +1,262 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="tsbtndelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnnewbehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaQdFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwAsbvzUSNPIp4AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ctxmenubehandlung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAATABAgEwAQIBEAEAARABAAT/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/wMAAf8MHAH/MgAB/wEc
CfIC8QH0MgAB/wF4AZcBvAGXAQgG8gHxAfQxAAH/AfQBVQM0AVUBCAHyARsD8gHxAfQxAAEIAjQBVQQ0
AZcDGwHyAfEB9DEAAfABNAFVAf8BGwM0AZgC8wIbAfEB9DAAAfQBVQFWAf8BeAHCARsCNAFVAbwC8wEb
AfEB9DAAAfQBVQGXAXgBNAFVAcIBGwI0AQgD8wHxAfQxAAHwBTQB9AGXAZgE8wHyAfQxAAEIAVsGNAGX
AfADvAEcAfQxAAH/AfQBVgE0AVUBNAFWAQgB8gH/AfYB9AHzARwB/zIAAf8BmQF4AbwBlwEIAvMB/wH0
AfMBHAH/MwAB/wG8BPQC8wH0AfMBBwH/MwAB9AH/AfAE9ALzAfQBCAH/NQAB/wHxBfQBGwHwAf92AAH/
AfQB8whSAUwCSwIAAf8BvAG0AW0BSwZSAVECSwEAAf8MHAH/AgAB/wwcAf8FAAFSCnoBUgEAAf8BtAOz
AbQB6wd6AVIBAAH/ARwJ8gLxAfQCAAH/ARwF8gEIAXEC8gLxAfQEAAH/AZoKegF5AQABvAGzAf8BugG7
ArQBdAZ6AXkBAAH/ARwEGwbyAfEB9AIAAf8BHAQbAfACcQGYAvIB8QH0BAABdAGgAeUHegHlAVIBegH/
AroB8wL0AbMBgQGRBHoB5QFSAXoBAAH/AZgE8wMbA/IB8QH0AgAB/wGYA/MB8AFxAncBcQLyAfEB9AMA
Af8BmgSgBXoBmgFZAXoB/wK7Av8C9AGBAZEEegGaAVkBegEAAf8BHAbzAxsB8gHxAfQCAAH/ARwC8wHw
AXECdwG7AXcBlwHyAfEB9AMAAXkBwwGgARoEoAF5AeUBoAFSAVkBmgEAAbwBwgHzAf8B9AG7AbMBmQPl
AaABUgFZAZoBAAH/AZgI8wIbAfEB9AIAAf8BmAHzAfEBcQGXAXcBnQFxAZgBcQHwAfEB9AMAAZoBwwEa
AsMEoAKaAVIBWQGaAQAB/wLCAfMBuwG6AbQDoAHlAaABUgFZAZoBAAH/Ae8J8wEbAfEB9AIAAf8B7wHz
AQgClwKdAfIBcQGdAXEB8QH0AgABGgLDAXoCmgHDBKABdAJZAZoBAAEbAcMBCAO7BaABdAJZAZoBAAH/
AQcK8wHxAfQCAAH/AQcC8wGYAZ0BmALzAfIBcQGdAQgB9AIAApoBTQF1AXoBTQGaAsMBoAHDAXQCegEa
AQABmgfDAqABwwFSAnoBGgEAAf8BBwrzAfIB9AIAAf8BBwnzAXIBcQH0AgABwwGaAXUBoAGaAXUBmgHD
Av8BmQN6ARoBAAf2ApoFegEaAQAB/wEHBvMB8AO8ARwB9AIAAf8BBwbzAfADvAGXAZgCAAEaASYBTQL2
AiYBwwH/AfQEmgHDAQAE/wGaARoImgHDAQAB/wEIBvMB/wH2AfQB8wEcAf8CAAH/AQgG8wH/AfYB9AHz
ARwBcgH/AQAB/wGaAU0CwwFNAZoB9gH/ARoBwwEaApoBwwUAAZoGwwEaApoBwwEAAf8BvAP0A/MB/wH0
AfMBHAH/AwAB/wG8A/QD8wH/AfQB8wEcAf8BAAGYAQAB/wEaAnUBegF1AZoB9gHzAZoBwwH2ARoBwwH0
BQABGwWaAcMB9gEaAcMB9AEAAf8BvAT0AvMB9AHzAQcB/wQAAf8BvAT0AvMB9AHzAQcB/wUAAf8B9AKa
ARoB9gHyAf8WAAH0Af8B8AT0AvMB9AEIAf8EAAH0Af8B8AT0AvMB9AEIAf8JAAL/GgAB/wHxBfQBGwHw
Af8GAAH/AfEF9AEbAfAB/0UAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/8BAAHA
BwABwAcAAcAHAAGABwABgAcAAYAXAAGABwABgAcAAYAHAAHAAQEGAAHAAQMGAAGAAQcGAAHAAQ8GAAL/
BgABwAEAAcABAAGAAQEBgAEBAfABAAGAAQABgAEBAYABAQHgAQABgAEAAYABAQGAAQEB4AMAAYABAQGA
AQEBwAMAAYABAQGAAQEBwAEAAYABAAGAAQEBgAEBAcABAAGAAQABgAEBAYABAQGAAQABgAEAAYABAQGA
AQEBgAEAAYABAAGAAQEBgAEBAYABAAGAAQABgAEBAYABAQGAAQABgAEAAYABAQGAAQABgAEAAfgBAAGA
AQMBgAECAYABAAH4AQABgAEHAYABBwHAAT8C/wEAAQ8BAAEPAfkD/wGAAR8BgAEfCP8L
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<metadata name="tsbtnbehandlungdelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
</root>

494
DPM2016/Behandlung/Behandlung.vb Normal file
View File

@@ -0,0 +1,494 @@
Imports System.ComponentModel
Public Class Behandlung
#Region "Properties"
Dim m_patientnr As Integer
Property PatientNr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
Try
If value = 0 Then Exit Property
m_patientnr = value
Get_Behandlungen()
Catch ex As Exception
log.Writelog("Behandlung: PatientNr Set: " + ex.Message, clsLog.Logtype.ApplError)
Dim a As Integer = 1
End Try
End Set
End Property
Dim m_haschanges As Boolean
Property HasChanges As Boolean
Get
Return m_haschanges
End Get
Set(value As Boolean)
m_haschanges = value
End Set
End Property
#End Region
#Region "Deklarationen"
Dim DB As New clsDB
Dim log As New clsLog
Dim FormReadonly As Boolean = False
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.HasChanges Then
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
Select Case msgres
Case MsgBoxResult.Yes
'Save_Data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.HasChanges = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.HasChanges = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.HasChanges = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Daten_Laden"
Sub Get_Behandlungen()
DB.Get_Tabledata("Behandlu", " where aktiv=1 and nrpatient=" + Me.PatientNr.ToString + " order by status, behandlungsbeginn desc")
Me.treebehandlungen.Nodes.Clear()
Dim BH As New DevComponents.AdvTree.Node
Dim BHoffen As New DevComponents.AdvTree.Node
Dim BHabgeshlossen As New DevComponents.AdvTree.Node
Dim BHFakturiert As New DevComponents.AdvTree.Node
Dim kv As New DevComponents.AdvTree.Node
Dim kvoffen As New DevComponents.AdvTree.Node
Dim kvabgeschlossen As New DevComponents.AdvTree.Node
BH.Text = "Behandlungen"
BH.Tag = -1
BH.ImageIndex = 0
BHoffen.Text = "Offen"
BHoffen.Tag = -11
BHoffen.ImageIndex = 0
BHabgeshlossen.Text = "Abgeschlossen"
BHabgeshlossen.Tag = -12
BHabgeshlossen.ImageIndex = 0
BHFakturiert.Text = "Fakturiert"
BHFakturiert.Tag = -13
BHFakturiert.ImageIndex = 0
BH.Nodes.Add(BHoffen)
BH.Nodes.Add(BHabgeshlossen)
BH.Nodes.Add(BHFakturiert)
kv.Text = "Kostenvoranschlag"
kv.Tag = -2
kv.ImageIndex = 1
kvoffen.Text = "Offen"
kvoffen.Tag = -22
kvoffen.ImageIndex = 1
kvabgeschlossen.Text = "Abgeschlossen"
kvabgeschlossen.Tag = -23
kvabgeschlossen.ImageIndex = 1
Me.treebehandlungen.Nodes.Add(BH)
Me.treebehandlungen.Nodes.Add(kv)
kv.Nodes.Add(kvoffen)
kv.Nodes.Add(kvabgeschlossen)
Dim firstnode_tag As Integer = 0
For Each r As DataRow In DB.dsDaten.Tables(0).Rows
If firstnode_tag = 0 Then firstnode_tag = r("nrbehandlung")
Dim tn As New DevComponents.AdvTree.Node
tn.Tag = r("nrbehandlung")
Dim total As Double = r("Total")
tn.Text = r("behandlungsbeginn") + " / " + total.ToString("N2")
Select Case r("status")
Case 1
tn.ImageIndex = 2
BHoffen.Nodes.Add(tn)
Case 2
tn.ImageIndex = 3
BHabgeshlossen.Nodes.Add(tn)
Case 3
tn.ImageIndex = 4
BHFakturiert.Nodes.Add(tn)
Case 4
tn.ImageIndex = 2
kvoffen.Nodes.Add(tn)
Case 5
tn.ImageIndex = 3
kvabgeschlossen.Nodes.Add(tn)
End Select
Next
Me.treebehandlungen.ExpandAll()
enable_disable_tabs(False)
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, firstnode_tag, firstnode_tag)
If firstnode_tag <> 0 Then nodeselected()
End Sub
#End Region
Private Sub treebehandlungen_Click(sender As Object, e As EventArgs) Handles treebehandlungen.Click
nodeselected()
End Sub
Sub nodeselected()
Try
If Me.Behandungdetail1.HasChanges Then
Me.Behandungdetail1.Check_Changes()
End If
Globals.OnLoad = True
If Me.treebehandlungen.SelectedNode.Tag > 0 Then
Me.Behandungdetail1.Patientnr = Me.PatientNr
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"
enable_disable_tabs(True)
refresh_tabs()
Else
enable_disable_tabs(False)
End If
Catch ex As Exception
enable_disable_tabs(False)
Finally
Globals.OnLoad = False
End Try
End Sub
Sub enable_disable_tabs(ByVal enable As Boolean)
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
End Sub
Private Sub DDTBehandlungsbeginn_DoubleClick(sender As Object, e As EventArgs)
sender.value = Now
End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
Try
refresh_tabs()
Catch
End Try
End Sub
Sub refresh_tabs()
Me.Leistungen1.TaxPunkte = Me.Behandungdetail1.cbboxNrtaxpunkt.SelectedValue
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.refresh_leistungen()
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
If Me.PatientNr = patientnr Then
Dim tn As DevComponents.AdvTree.Node
tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
Try
tn.Text = Me.Behandungdetail1.DDTBehandlungsbeginn.Text + " / " + Me.Behandungdetail1.txtcTotal.Text
Catch
End Try
End If
End Sub
Private Sub evh_Behandlung_Inserted(Patientnr As Integer, Behandlungsnummer As Integer) Handles evh.Behandlung_Inserted
If Me.PatientNr = Patientnr Then
Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, Behandlungsnummer, Behandlungsnummer)
End If
End Sub
Private Sub evh_Taxpunktwert_changed(behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double) Handles evh.Taxpunktwert_changed
Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Leistungen1.Frankenwert = taxpunktwert
Leistungen1.Recalc_Leistungen()
End If
Catch ex As Exception
End Try
End Sub
Private Sub Benhandungdetail1_Load(sender As Object, e As EventArgs) Handles Behandungdetail1.Load
End Sub
Private Sub tsbtnnewbehandlung_Click(sender As Object, e As EventArgs) Handles tsbtnnewbehandlung.Click
Dim db As New clsDB
Dim pat As New clsDB
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Dim newkey As Integer = db.Get_DBKey("Behandlung")
db.Get_Tabledata("Behandlu", " where nrbehandlung=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
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("nrbehandlung") = newkey
r.Item("nrpatient") = Me.PatientNr
r.Item("nrbehandler") = 1
r.Item("nrrgtyp") = pat.dsDaten.Tables(0).Rows(0).Item("nrrgtyp")
r.Item("rabatt") = pat.dsDaten.Tables(0).Rows(0).Item("rabatt")
r.Item("nrestyp") = pat.dsDaten.Tables(0).Rows(0).Item("estyp")
r.Item("behandlungsbeginn") = Now
r.Item("status") = 1
r.Item("statusdatum") = Now
r.Item("erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
pat.Dispose()
db.Dispose()
Me.Get_Behandlungen()
Try
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey)
Me.nodeselected()
Catch ex As Exception
End Try
End Sub
Private Sub tsbtndeletebehandlung_Click(sender As Object, e As EventArgs) Handles tsbtndeletebehandlung.Click
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion, "Behandlung löschen") = MsgBoxResult.Yes Then
Dim db As New clsDB
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = 0
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
End If
End Sub
Private Sub BehandlungAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungAbschliessenToolStripMenuItem.Click
End Sub
Private Sub NeueBehandlungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeueBehandlungToolStripMenuItem1.Click
Me.tsbtnnewbehandlung_Click(sender, e)
End Sub
Private Sub BehandlungLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungLöschenToolStripMenuItem1.Click
Me.tsbtndeletebehandlung_Click(sender, e)
End Sub
Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click
Me.Behandungdetail1.Save_Data()
Dim db As New clsDB
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
db.dsDaten.Tables(0).Rows(0).Item("Status") = 2
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, key, key)
Me.nodeselected()
End Sub
Private Sub tsbtndelete_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles tsbtndelete.ItemClicked
End Sub
Private Sub ctxmenubehandlung_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenubehandlung.Opening
Try
Dim i As Integer = Me.treebehandlungen.SelectedNode.Parent.Tag
Me.ctxmenubehandlung.Enabled = True
Select Case i
Case -11
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = True
Case -12
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Case -13
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
End Select
Select Case i
Case > -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Behandlung"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen"
Case < -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
End Select
Catch
Me.ctxmenubehandlung.Enabled = False
End Try
End Sub
End Class

1132
DPM2016/Behandlung/Benhandungdetail.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

147
DPM2016/Behandlung/Benhandungdetail.resx Normal file
View File

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

868
DPM2016/Behandlung/Benhandungdetail.vb Normal file
View File

@@ -0,0 +1,868 @@
Public Class Benhandungdetail
Dim db As New clsDB
Dim log As New clsLog
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 OnLoad As Boolean = False
Property Behandlungsnr As Integer
Get
Return m_behandlungsnr
End Get
Set(value As Integer)
m_behandlungsnr = value
If value <> 0 Then
Get_Stammdaten()
OnGetData = True
Get_Data()
OnGetData = False
Recalc_Totale()
End If
End Set
End Property
Dim M_behandlungsstatus As Integer
Property Behandlungsstatus As Integer
Get
Return M_behandlungsstatus
End Get
Set(value As Integer)
M_behandlungsstatus = value
enable_disable_fields()
End Set
End Property
Dim m_haschanges As Boolean
Property HasChanges As Boolean
Get
Return m_haschanges
End Get
Set(value As Boolean)
m_haschanges = value
End Set
End Property
Dim m_patientnr As Integer
Property Patientnr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
m_patientnr = value
End Set
End Property
#Region "Closing / Check_Changes"
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Public Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.HasChanges Then
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
Select Case msgres
Case MsgBoxResult.Yes
Save_Data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.HasChanges = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is DevComponents.Editors.DateTimeAdv.DateTimeInput Then
Dim ctl As DevComponents.Editors.DateTimeAdv.DateTimeInput = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.HasChanges = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.HasChanges = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Get_Save"
Dim NrAnsprechpartner As Integer = 0
Sub Get_Data()
db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
Me.Behandlungsstatus = r("status")
Me.NrAnsprechpartner = r("nrAnsprechpartner")
Get_Data_Controls(Me, r)
Try
If r("nrgarant") > 0 Then
Get_Garantdata(r("nrgarant"))
End If
Catch ex As Exception
End Try
AddChanges(Me)
Me.HasChanges = False
End Sub
Sub Get_Data_Controls(ByVal ictl As Control, ByRef R As DataRow)
For Each ctl As Control In ictl.Controls
If ctl.Controls.Count = 0 Or (ctl.Controls.Count = 1 And Microsoft.VisualBasic.Left(UCase(ctl.Name), 5) = "CBBOX") Then
get_data_for_control(ctl, R)
Else
Get_Data_Controls(ctl, R)
End If
Next
End Sub
Sub get_data_for_control(ByRef ctl As Control, ByRef R As DataRow)
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
Try
If UCase(ctl.Name) = "TXT" + UCase(c.ColumnName) Then
ctl.Text = R(c.ColumnName)
'Exit For
End If
If UCase(ctl.Name) = "TXTC" + UCase(c.ColumnName) Then
Try
Dim wert As Double
wert = R(c.ColumnName)
ctl.Text = wert.ToString("N2")
Catch
ctl.Text = "0.00"
End Try
'Exit For
End If
If UCase(ctl.Name) = "MTXT" + UCase(c.ColumnName) Then
Dim mtxt As Object
mtxt = ctl
Dim v As Double = R(c.ColumnName)
Dim s As String
s = v.ToString("F")
mtxt.Text = s
'Exit For
End If
If UCase(ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = ctl
Try
o.SelectedValue = R(c.ColumnName)
Catch ex As Exception
MsgBox(ex.Message)
o.selectedvalue = -1
End Try
Try
Catch
End Try
'Exit For
End If
If UCase(ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = ctl
Try
dt.Value = R(c.ColumnName)
'Exit For
Catch ex As Exception
dt.Value = Nothing
End Try
End If
If UCase(ctl.Name) = "DDT" + UCase(c.ColumnName) Then
Dim dt As DevComponents.Editors.DateTimeAdv.DateTimeInput
dt = ctl
Try
dt.Value = R(c.ColumnName)
'Exit For
Catch ex As Exception
dt.Value = Nothing
End Try
End If
If UCase(ctl.Name) = "CHK" + UCase(c.ColumnName) Then
Dim dt As CheckBox
dt = ctl
Try
dt.Checked = R(c.ColumnName)
'Exit For
Catch
dt.Checked = False
End Try
End If
Catch ex As Exception
MsgBox(ex.Message + " / " + ctl.Name + " / " + R(c.ColumnName))
End Try
Next
End Sub
Sub Get_Garantdata(ByVal Key As Integer)
Dim garantdatan As New DataTable
If Key > 49999 Then
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where aktiv=1 and nrfirma=" + Key.ToString + " order by name1")
Else
db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort as Name1 from privat where nrprivat=" + Key.ToString + " and aktiv=1 and garant=1 order by name, vorname")
End If
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
If Key > 49999 Then
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Else
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrprivat"
End If
If Key > 49999 Then
get_ansprechpartner(Key)
End If
End Sub
Sub get_ansprechpartner(ByVal key As Integer)
Try
Dim ansprechpartnerdaten As New DataTable
db.Get_Tabledata("FAAP", "", "Select nrfirmaap, Name from firmaap where nrfirma=" + key.ToString)
Me.cbboxNrAnsprechpartner.DataSource = Nothing
ansprechpartnerdaten = db.dsDaten.Tables(0).Copy
Me.cbboxNrAnsprechpartner.DataSource = ansprechpartnerdaten
Me.cbboxNrAnsprechpartner.Displaymember = "Name"
Me.cbboxNrAnsprechpartner.Valuemember = "nrfirmaap"
If Me.NrAnsprechpartner <> 0 Then
Me.cbboxNrAnsprechpartner.SelectedValue = Me.NrAnsprechpartner
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Save_Data()
If Globals.OnLoad = True Then Exit Sub
If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
For Each ctl As Control In Me.Controls
If UCase(ctl.Name.Substring(0, 3)) = "GRP" Then
save_controldata(r, ctl)
End If
Next
r("Mutiert_am") = Now
r("mutierer") = Globals.ActUser
r("total") = Me.txtcTotal.Text
db.Update_Data()
Me.HasChanges = False
End Sub
Sub save_controldata(r As DataRow, ictl As Control)
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
For Each Ctl As Control In ictl.Controls
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
r(c.ColumnName) = Ctl.Text
'Exit For
End If
End If
If UCase(Ctl.Name) = "MTXT" + UCase(c.ColumnName) Then
r(c.ColumnName) = Ctl.Text
'Exit For
End If
If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
r(c.ColumnName) = o.selectedvalue
Catch ex As Exception
r(c.ColumnName) = 0
End Try
'Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = Ctl
r(c.ColumnName) = dt.Value
'Exit For
End If
If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
Dim dt As CheckBox
dt = Ctl
r(c.ColumnName) = dt.Checked
'Exit For
End If
If UCase(Ctl.Name) = "DDT" + UCase(c.ColumnName) Then
Dim dt As DevComponents.Editors.DateTimeAdv.DateTimeInput
dt = Ctl
r(c.ColumnName) = dt.Value
'xit For
End If
Next
Next
End Sub
#End Region
Public Sub Get_Stammdaten()
Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
Me.cbboxnrbehandler.TableAlias = "Behandler_BH"
Me.cbboxnrbehandler.Table = "Behandler"
Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat"
Me.cbboxNRESTyp.Dataselection = "Select * FROM ESTYP WHERE AKTIV=1"
Me.cbboxNRESTyp.TableAlias = "ESTYP_BH"
Me.cbboxNRESTyp.Table = "ESTyp"
Me.cbboxNRESTyp.Displaymember = "estyp"
Me.cbboxNRESTyp.Valuemember = "nrestyp"
Me.cbboxNRRGtyp.TableAlias = "RGTYP_BH"
Me.cbboxNRRGtyp.Table = "RGTyp"
Me.cbboxNRRGtyp.Displaymember = "bezd"
Me.cbboxNRRGtyp.Valuemember = "nrrgtyp"
Me.cbboxNrAbrechnungstyp.TableAlias = "AbrTyp_BH"
Me.cbboxNrAbrechnungstyp.Table = "Abrtyp"
Me.cbboxNrAbrechnungstyp.Displaymember = "bezd"
Me.cbboxNrAbrechnungstyp.Valuemember = "nrabrechnungstyp"
Me.cbboxNrAnsatz.Table = "Ansatz"
Me.cbboxNrAnsatz.Displaymember = "Funktionsbezeichnung"
Me.cbboxNrAnsatz.Valuemember = "NRAnsatz"
'Me.cbboxNRESTyp.Dataselection = "Select * FROM taxpunkt WHERE AKTIV=1"
Me.cbboxNrtaxpunkt.Table = "Taxpunkt"
Me.cbboxNrtaxpunkt.Displaymember = "Bezd"
Me.cbboxNrtaxpunkt.Valuemember = "nrtaxpunkt"
Me.OnLoad = True
Me.cbboxrgtext.Dataselection = db.Get_SQL(21)
Me.cbboxrgtext.TableAlias = "Rechnungstext"
Me.cbboxrgtext.Table = "Rechtext"
Me.cbboxrgtext.Displaymember = "Textd"
Me.cbboxrgtext.Valuemember = "Nrrechnungstext"
Me.OnLoad = False
End Sub
Public Sub Recalc_Totale()
Dim zdb As New clsDB
Dim vz As Double = 0
zdb.Get_Tabledata("Zahlung", "where aktiv=1 And vorauszahlung=1 And nrbehandlung=" + Me.Behandlungsnr.ToString)
For Each r As DataRow In zdb.dsDaten.Tables(0).Rows
vz = vz + r("Betrag")
Next
zdb.Dispose()
Dim rz As Double
Try
If Me.txtAnzahlraten.Text > 0 Then
rz = Me.mtxtRatenzuschlag.Text
Else
rz = 0
End If
Catch ex As Exception
rz = 0
End Try
Dim ssototal As Double
Dim ldb As New clsDB
ldb.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
Dim total As Double
For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
If r("aktiv") = True Then
If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
total = total + r("Total")
End If
Next
Me.txtcBehandlungstotal.Text = total.ToString("N2")
total = 0
ldb.Dispose()
total = total + txtcBehandlungstotal.Text
Me.txtcRatenzuschlat.Text = Globals.Round5(rz.ToString).ToString
total = total - vz
Me.txtcVorauszahlungen.Text = Globals.Round5(vz.ToString).ToString
Try
Dim stotal As Double = total
If chkRabattGesamt.Checked Then
total = (100 - mtxtRabatt.Text) * total / 100
Else
total = stotal - (ssototal / 100 * Me.mtxtRabatt.Text)
End If
Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
Me.txtcRabatt.Text = Globals.Round5(Me.txtcRabatt.Text)
Catch ex As Exception
total = 0
End Try
total = total + rz
Me.txtcTotal.Text = Globals.Round5(total.ToString).ToString
evh.Fire_Totale_Berechnet(Me.Behandlungsnr)
Try
evh.Fire_Total_Berechnet(Me.Behandlungsnr, Me.txtcTotal.Text)
Catch
End Try
End Sub
Private Sub evh_Leistung_Changed(Behandlungsnummer As Integer, total As Double) Handles evh.Leistung_Changed
If Me.Behandlungsnr = Behandlungsnummer Then
Me.txtcBehandlungstotal.Text = total.ToString("N2")
End If
Recalc_Totale()
End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
If Me.Patientnr = Nr Then Save_Data()
End Sub
Private Sub evh_Totale_Berechnet(behandlungsnummer As Integer) Handles evh.Totale_Berechnet
If Me.Behandlungsnr = behandlungsnummer Then
If Globals.OnLoad = True Then Exit Sub
Save_Data()
evh.Fire_Behandlung_Changed(Me.Behandlungsnr, Me.Patientnr)
End If
End Sub
'Private Sub mtxtTaxpunktwert_Leave(sender As Object, e As EventArgs) Handles mtxtTaxpunktwert.Leave
' If Not IsNumeric(Me.mtxtTaxpunktwert.Text) Then
' MsgBox("Wert ungültig.", MsgBoxStyle.Exclamation)
' Me.mtxtTaxpunktwert.Focus()
' Me.mtxtTaxpunktwert.SelectAll()
' Exit Sub
' End If
' evh.fire_Taxpunktwert_Changed(Me.Behandlungsnr, Me.Patientnr, Me.mtxtTaxpunktwert.Text)
'End Sub
'Private Sub txtcRabatt_Leave(sender As Object, e As EventArgs) Handles mtxtRabatt.Leave
' If Not IsNumeric(Me.mtxtRabatt.Text) Then
' MsgBox("Wert ungültig.", MsgBoxStyle.Exclamation)
' Me.mtxtRabatt.Focus()
' Me.mtxtRabatt.SelectAll()
' Exit Sub
' End If
' Recalc_Totale()
'End Sub
Private Sub txtcTotal_TextChanged(sender As Object, e As EventArgs) Handles txtcTotal.TextChanged
Try
evh.Fire_Total_Berechnet(Me.Behandlungsnr, Me.txtcTotal.Text)
Catch
End Try
End Sub
Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedValueChanged
If OnGetData Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("rgtyp").Rows
If r("nrrgtyp") = Me.cbboxNRRGtyp.SelectedValue Then
Me.cbboxNrAbrechnungstyp.SelectedValue = r.Item("nrabrechnungstyp")
End If
Next
Catch
End Try
End Sub
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedValueChanged
If OnGetData Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("abrtyp_bh").Rows
If r("Nrabrechnungstyp") = Me.cbboxNrAbrechnungstyp.SelectedValue Then
Me.cbboxNrAnsatz.SelectedValue = r("nransatz")
Me.cbboxNrtaxpunkt.SelectedValue = r("nrtaxpunkt")
If r("taxpunktwertfix") = True Then Me.cbboxNrtaxpunkt.Enabled = False Else Me.cbboxNrtaxpunkt.Enabled = True
If r("ansatzfix") = True Then mtxtTaxpunktwert.Enabled = False Else Me.mtxtTaxpunktwert.Enabled = True
End If
Next
Catch ex As Exception
End Try
End Sub
Private Sub cbboxNrAnsatz_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedValueChanged
If OnGetData Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("ansatz").Rows
If r("nransatz") = Me.cbboxNrAnsatz.SelectedValue Then
mtxtTaxpunktwert.Text = r("taxpunktwert")
Recalc_Totale()
End If
Next
Catch ex As Exception
End Try
End Sub
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
Me.Save_Data()
End Sub
Sub Enable_Disable_fields(Optional enable As Boolean = False)
Select Case Me.Behandlungsstatus
Case 1, 4
enable = True
Case Else
enable = False
End Select
Me.GrpPatient.Enabled = enable
Me.grpAbrechnung.Enabled = enable
Me.grpBehandlungsdaten.Enabled = enable
Me.GrpGaramt.Enabled = enable
Me.GrpRaten.Enabled = enable
Me.tsbtnSave.Enabled = enable
End Sub
Private Sub txtAnzahlRaten_ValueChanged(sender As Object, e As EventArgs) Handles txtAnzahlraten.TextChanged
Me.Recalc_Totale()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Dim f As New frmReportView(1, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
'f.Vorschau_Rechnung()
f.Close()
End Sub
Private Sub mtxtRatenzuschlag_TextChanged(sender As Object, e As EventArgs) Handles mtxtRatenzuschlag.TextChanged
Me.Recalc_Totale()
End Sub
Private Sub mtxtRabatt_TextChanged(sender As Object, e As EventArgs) Handles mtxtRabatt.TextChanged
Recalc_Totale()
End Sub
Private Sub chkRabattGesamt_CheckedChanged(sender As Object, e As EventArgs) Handles chkRabattGesamt.CheckedChanged
Recalc_Totale()
End Sub
Private Sub rbversicherung_CheckedChanged(sender As Object, e As EventArgs) Handles rbversicherung.CheckedChanged
If rbversicherung.Checked Then
Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort as Name1 from firma where vs=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Me.cbboxNrGarant.Focus()
Me.rbversicherung.Checked = False
End If
End Sub
Private Sub rbfs_CheckedChanged(sender As Object, e As EventArgs) Handles rbfs.CheckedChanged
If rbfs.Checked Then
Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where fs=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Me.cbboxNrGarant.Focus()
Me.rbfs.Checked = False
End If
End Sub
Private Sub rbiv_CheckedChanged(sender As Object, e As EventArgs) Handles rbiv.CheckedChanged
If rbiv.Checked Then
Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where iv=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Me.cbboxNrGarant.Focus()
Me.rbiv.Checked = False
End If
End Sub
Private Sub rbdiverseFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles rbdiverseFirmen.CheckedChanged
Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Me.cbboxNrGarant.Focus()
Me.rbdiverseFirmen.Checked = False
End Sub
Private Sub rbkk_CheckedChanged(sender As Object, e As EventArgs) Handles rbkk.CheckedChanged
If rbkk.Checked Then
Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where kk=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrfirma"
Me.cbboxNrGarant.Focus()
Me.rbkk.Checked = False
End If
End Sub
Private Sub rbPrivatPersonen_CheckedChanged(sender As Object, e As EventArgs) Handles rbPrivatPersonen.CheckedChanged
If rbPrivatPersonen.Checked Then
Dim garantdatan As New DataTable
db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort as Name1 from privat where aktiv=1 and garant=1 order by name, vorname")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
Me.cbboxNrGarant.Displaymember = "name1"
Me.cbboxNrGarant.Valuemember = "nrprivat"
Me.cbboxNrGarant.Focus()
Me.rbPrivatPersonen.Checked = False
End If
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub cbboxNrGarant_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrGarant.SelectedIndexChanged
Try
get_ansprechpartner(Me.cbboxNrGarant.SelectedValue)
Catch
End Try
End Sub
Private Sub mtxtTaxpunktwert_TextChanged(sender As Object, e As EventArgs) Handles mtxtTaxpunktwert.Leave
If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
Me.Save_Data()
db.Recalc_Leistungen(Me.Behandlungsnr, Me.mtxtTaxpunktwert.Text)
Me.Save_Data()
Recalc_Totale()
End Sub
Private Sub cbboxNrAnsatz_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedIndexChanged
If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
Me.Save_Data()
db.Recalc_Leistungen(Me.Behandlungsnr, Me.mtxtTaxpunktwert.Text)
Me.Save_Data()
Recalc_Totale()
End Sub
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs)
End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
Dim f As New frmReportView(Me.cbboxNRESTyp.SelectedValue, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Visible = False
f.Print_Rechnung()
f.Close()
End Sub
Private Sub DesignRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignRechnungToolStripMenuItem.Click
Dim f As New frmReportView(Me.cbboxNRESTyp.SelectedValue, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(False, True)
f.Close()
End Sub
Private Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click
Dim f As New frmReportView(1, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(True, False)
'f.Close()
End Sub
Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged
End Sub
Private Sub cbboxrgtext_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxrgtext.SelectedIndexChanged
If OnLoad Then Exit Sub
Me.txtRechnungsbemerkung.Text = Me.cbboxrgtext.Text
End Sub
Private Sub btnAbschliessen_Click(sender As Object, e As EventArgs) Handles btnAbschliessen.Click
If MsgBox("Behandlung abschliessen?", vbYesNo = vbYes) Then
End If
End Sub
Private Sub btnZuruecksetzen_Click(sender As Object, e As EventArgs) Handles btnZuruecksetzen.Click
End Sub
'Private Sub mtxtRatenzuschlag_TextChanged(sender As Object, e As EventArgs) Handles mtxtRatenzuschlag.TextChanged
' Me.Recalc_Totale()
'End Sub
'Private Sub mtxtTaxpunktwert_TextChanged(sender As Object, e As EventArgs) Handles mtxtTaxpunktwert.TextChanged
' mtxtTaxpunktwert_Leave(sender, e)
'End Sub
End Class

710
DPM2016/Behandlung/Leistungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,710 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Leistungen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Leistungen))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tslabelbhtotal = New System.Windows.Forms.ToolStripLabel()
Me.GrpTarif = New System.Windows.Forms.GroupBox()
Me.TabTarife = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lbtarif1 = New DevComponents.DotNetBar.ListBoxAdv()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tsUp = New System.Windows.Forms.ToolStripButton()
Me.tsDown = New System.Windows.Forms.ToolStripButton()
Me.txtfilter = New System.Windows.Forms.ToolStripTextBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TreeTarifGruppen = New DevComponents.AdvTree.AdvTree()
Me.Node1 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.lbPakete = New DevComponents.DotNetBar.ListBoxAdv()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnPaketeinfuegen = New System.Windows.Forms.Button()
Me.intAnzahl = New DevComponents.Editors.IntegerInput()
Me.lblAnzahl = New System.Windows.Forms.Label()
Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox()
Me.txtBezD = New System.Windows.Forms.TextBox()
Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.lblbehandler = New System.Windows.Forms.Label()
Me.BtnInsertLeistung = New System.Windows.Forms.Button()
Me.txtTotal = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblWert = New System.Windows.Forms.Label()
Me.diwert = New DevComponents.Editors.DoubleInput()
Me.lblMenge = New System.Windows.Forms.Label()
Me.DIMenge = New DevComponents.Editors.DoubleInput()
Me.lblTaxpunkte = New System.Windows.Forms.Label()
Me.DIPunkte = New DevComponents.Editors.DoubleInput()
Me.txtPosition = New System.Windows.Forms.TextBox()
Me.lblPosition = New System.Windows.Forms.Label()
Me.lbldatum = New System.Windows.Forms.Label()
Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.GrpLeistungen = New System.Windows.Forms.GroupBox()
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ctxMenuLeistung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.ToolStrip1.SuspendLayout()
Me.GrpTarif.SuspendLayout()
Me.TabTarife.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.intAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpLeistungsdetails.SuspendLayout()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpLeistungen.SuspendLayout()
CType(Me.C1Leistungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxMenuLeistung.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(842, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'tslabelbhtotal
'
Me.tslabelbhtotal.Name = "tslabelbhtotal"
Me.tslabelbhtotal.Size = New System.Drawing.Size(88, 22)
Me.tslabelbhtotal.Text = "ToolStripLabel1"
'
'GrpTarif
'
Me.GrpTarif.Controls.Add(Me.TabTarife)
Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpTarif.Location = New System.Drawing.Point(0, 0)
Me.GrpTarif.Name = "GrpTarif"
Me.GrpTarif.Size = New System.Drawing.Size(498, 284)
Me.GrpTarif.TabIndex = 1
Me.GrpTarif.TabStop = False
Me.GrpTarif.Text = "Tarife"
'
'TabTarife
'
Me.TabTarife.Controls.Add(Me.TabPage1)
Me.TabTarife.Controls.Add(Me.TabPage2)
Me.TabTarife.Dock = System.Windows.Forms.DockStyle.Left
Me.TabTarife.Location = New System.Drawing.Point(3, 16)
Me.TabTarife.Name = "TabTarife"
Me.TabTarife.SelectedIndex = 0
Me.TabTarife.Size = New System.Drawing.Size(489, 265)
Me.TabTarife.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.lbtarif1)
Me.TabPage1.Controls.Add(Me.ToolStrip2)
Me.TabPage1.Controls.Add(Me.Panel4)
Me.TabPage1.Controls.Add(Me.TreeTarifGruppen)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(481, 239)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Tarif"
Me.TabPage1.UseVisualStyleBackColor = True
'
'lbtarif1
'
Me.lbtarif1.AutoScroll = True
'
'
'
Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbtarif1.ContainerControlProcessDialogKey = True
Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbtarif1.DragDropSupport = True
Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbtarif1.Location = New System.Drawing.Point(196, 28)
Me.lbtarif1.Name = "lbtarif1"
Me.lbtarif1.Size = New System.Drawing.Size(282, 208)
Me.lbtarif1.TabIndex = 5
Me.lbtarif1.Text = "ListBoxAdv1"
'
'ToolStrip2
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsUp, Me.tsDown, Me.txtfilter})
Me.ToolStrip2.Location = New System.Drawing.Point(196, 3)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(282, 25)
Me.ToolStrip2.TabIndex = 6
Me.ToolStrip2.Text = "ToolStrip2"
'
'tsUp
'
Me.tsUp.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsUp.Image = CType(resources.GetObject("tsUp.Image"), System.Drawing.Image)
Me.tsUp.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsUp.Name = "tsUp"
Me.tsUp.Size = New System.Drawing.Size(23, 22)
Me.tsUp.Text = "ToolStripButton1"
'
'tsDown
'
Me.tsDown.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsDown.Image = CType(resources.GetObject("tsDown.Image"), System.Drawing.Image)
Me.tsDown.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsDown.Name = "tsDown"
Me.tsDown.Size = New System.Drawing.Size(23, 22)
Me.tsDown.Text = "ToolStripButton2"
'
'txtfilter
'
Me.txtfilter.Name = "txtfilter"
Me.txtfilter.Size = New System.Drawing.Size(100, 25)
'
'Panel4
'
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel4.Location = New System.Drawing.Point(181, 3)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(15, 233)
Me.Panel4.TabIndex = 5
'
'TreeTarifGruppen
'
Me.TreeTarifGruppen.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeTarifGruppen.AllowDrop = True
Me.TreeTarifGruppen.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeTarifGruppen.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeTarifGruppen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeTarifGruppen.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeTarifGruppen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeTarifGruppen.Location = New System.Drawing.Point(3, 3)
Me.TreeTarifGruppen.Name = "TreeTarifGruppen"
Me.TreeTarifGruppen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
Me.TreeTarifGruppen.NodesConnector = Me.NodeConnector1
Me.TreeTarifGruppen.NodeStyle = Me.ElementStyle1
Me.TreeTarifGruppen.PathSeparator = ";"
Me.TreeTarifGruppen.Size = New System.Drawing.Size(178, 233)
Me.TreeTarifGruppen.Styles.Add(Me.ElementStyle1)
Me.TreeTarifGruppen.TabIndex = 7
Me.TreeTarifGruppen.Text = "AdvTree1"
'
'Node1
'
Me.Node1.Expanded = True
Me.Node1.Name = "Node1"
Me.Node1.Text = "Node1"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.lbPakete)
Me.TabPage2.Controls.Add(Me.Panel1)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(481, 239)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Leistungspaket"
Me.TabPage2.UseVisualStyleBackColor = True
'
'lbPakete
'
Me.lbPakete.AutoScroll = True
'
'
'
Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbPakete.ContainerControlProcessDialogKey = True
Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbPakete.DragDropSupport = True
Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbPakete.Location = New System.Drawing.Point(3, 33)
Me.lbPakete.Name = "lbPakete"
Me.lbPakete.Size = New System.Drawing.Size(475, 203)
Me.lbPakete.TabIndex = 2
Me.lbPakete.Text = "ListBoxAdv1"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnPaketeinfuegen)
Me.Panel1.Controls.Add(Me.intAnzahl)
Me.Panel1.Controls.Add(Me.lblAnzahl)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(475, 30)
Me.Panel1.TabIndex = 1
'
'btnPaketeinfuegen
'
Me.btnPaketeinfuegen.Location = New System.Drawing.Point(197, 3)
Me.btnPaketeinfuegen.Name = "btnPaketeinfuegen"
Me.btnPaketeinfuegen.Size = New System.Drawing.Size(75, 23)
Me.btnPaketeinfuegen.TabIndex = 1
Me.btnPaketeinfuegen.Text = "Einfügen"
Me.btnPaketeinfuegen.UseVisualStyleBackColor = True
'
'intAnzahl
'
'
'
'
Me.intAnzahl.BackgroundStyle.Class = "DateTimeInputBackground"
Me.intAnzahl.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.intAnzahl.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.intAnzahl.Location = New System.Drawing.Point(49, 5)
Me.intAnzahl.Name = "intAnzahl"
Me.intAnzahl.ShowUpDown = True
Me.intAnzahl.Size = New System.Drawing.Size(142, 20)
Me.intAnzahl.TabIndex = 0
Me.intAnzahl.Value = 1
'
'lblAnzahl
'
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Location = New System.Drawing.Point(4, 8)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
Me.lblAnzahl.TabIndex = 0
Me.lblAnzahl.Text = "Anzahl"
'
'grpLeistungsdetails
'
Me.grpLeistungsdetails.Controls.Add(Me.txtBezD)
Me.grpLeistungsdetails.Controls.Add(Me.lblBeschreibung)
Me.grpLeistungsdetails.Controls.Add(Me.cbboxnrbehandler)
Me.grpLeistungsdetails.Controls.Add(Me.lblbehandler)
Me.grpLeistungsdetails.Controls.Add(Me.BtnInsertLeistung)
Me.grpLeistungsdetails.Controls.Add(Me.txtTotal)
Me.grpLeistungsdetails.Controls.Add(Me.Label1)
Me.grpLeistungsdetails.Controls.Add(Me.lblWert)
Me.grpLeistungsdetails.Controls.Add(Me.diwert)
Me.grpLeistungsdetails.Controls.Add(Me.lblMenge)
Me.grpLeistungsdetails.Controls.Add(Me.DIMenge)
Me.grpLeistungsdetails.Controls.Add(Me.lblTaxpunkte)
Me.grpLeistungsdetails.Controls.Add(Me.DIPunkte)
Me.grpLeistungsdetails.Controls.Add(Me.txtPosition)
Me.grpLeistungsdetails.Controls.Add(Me.lblPosition)
Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
Me.grpLeistungsdetails.Location = New System.Drawing.Point(498, 3)
Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
Me.grpLeistungsdetails.Size = New System.Drawing.Size(341, 275)
Me.grpLeistungsdetails.TabIndex = 2
Me.grpLeistungsdetails.TabStop = False
Me.grpLeistungsdetails.Text = "Leistungsdetails"
'
'txtBezD
'
Me.txtBezD.Location = New System.Drawing.Point(85, 115)
Me.txtBezD.Multiline = True
Me.txtBezD.Name = "txtBezD"
Me.txtBezD.Size = New System.Drawing.Size(177, 45)
Me.txtBezD.TabIndex = 6
'
'lblBeschreibung
'
Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(11, 118)
Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblBeschreibung.TabIndex = 22
Me.lblBeschreibung.Text = "Beschreibung"
'
'cbboxnrbehandler
'
Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(85, 61)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 21)
Me.cbboxnrbehandler.TabIndex = 1
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
'
'lblbehandler
'
Me.lblbehandler.AutoSize = True
Me.lblbehandler.Location = New System.Drawing.Point(11, 63)
Me.lblbehandler.Name = "lblbehandler"
Me.lblbehandler.Size = New System.Drawing.Size(55, 13)
Me.lblbehandler.TabIndex = 14
Me.lblbehandler.Text = "Behandler"
'
'BtnInsertLeistung
'
Me.BtnInsertLeistung.Location = New System.Drawing.Point(14, 248)
Me.BtnInsertLeistung.Name = "BtnInsertLeistung"
Me.BtnInsertLeistung.Size = New System.Drawing.Size(120, 23)
Me.BtnInsertLeistung.TabIndex = 7
Me.BtnInsertLeistung.Text = "Leistung einfügen"
Me.BtnInsertLeistung.UseVisualStyleBackColor = True
'
'txtTotal
'
Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTotal.Location = New System.Drawing.Point(49, 220)
Me.txtTotal.Name = "txtTotal"
Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtTotal.Size = New System.Drawing.Size(92, 13)
Me.txtTotal.TabIndex = 12
Me.txtTotal.Text = "0.00www"
Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(11, 220)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Total"
'
'lblWert
'
Me.lblWert.AutoSize = True
Me.lblWert.Location = New System.Drawing.Point(11, 196)
Me.lblWert.Name = "lblWert"
Me.lblWert.Size = New System.Drawing.Size(30, 13)
Me.lblWert.TabIndex = 9
Me.lblWert.Text = "Wert"
'
'diwert
'
'
'
'
Me.diwert.BackgroundStyle.Class = "DateTimeInputBackground"
Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.diwert.Increment = 1.0R
Me.diwert.Location = New System.Drawing.Point(85, 192)
Me.diwert.Name = "diwert"
Me.diwert.ShowUpDown = True
Me.diwert.Size = New System.Drawing.Size(68, 20)
Me.diwert.TabIndex = 4
'
'lblMenge
'
Me.lblMenge.AutoSize = True
Me.lblMenge.Location = New System.Drawing.Point(11, 169)
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Size = New System.Drawing.Size(40, 13)
Me.lblMenge.TabIndex = 7
Me.lblMenge.Text = "Menge"
'
'DIMenge
'
'
'
'
Me.DIMenge.BackgroundStyle.Class = "DateTimeInputBackground"
Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIMenge.Increment = 1.0R
Me.DIMenge.Location = New System.Drawing.Point(85, 166)
Me.DIMenge.Name = "DIMenge"
Me.DIMenge.ShowUpDown = True
Me.DIMenge.Size = New System.Drawing.Size(68, 20)
Me.DIMenge.TabIndex = 3
'
'lblTaxpunkte
'
Me.lblTaxpunkte.AutoSize = True
Me.lblTaxpunkte.Location = New System.Drawing.Point(159, 169)
Me.lblTaxpunkte.Name = "lblTaxpunkte"
Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13)
Me.lblTaxpunkte.TabIndex = 5
Me.lblTaxpunkte.Text = "Punkte"
'
'DIPunkte
'
'
'
'
Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIPunkte.Increment = 1.0R
Me.DIPunkte.Location = New System.Drawing.Point(206, 166)
Me.DIPunkte.Name = "DIPunkte"
Me.DIPunkte.ShowUpDown = True
Me.DIPunkte.Size = New System.Drawing.Size(56, 20)
Me.DIPunkte.TabIndex = 5
'
'txtPosition
'
Me.txtPosition.Location = New System.Drawing.Point(85, 89)
Me.txtPosition.Name = "txtPosition"
Me.txtPosition.Size = New System.Drawing.Size(56, 20)
Me.txtPosition.TabIndex = 2
'
'lblPosition
'
Me.lblPosition.AutoSize = True
Me.lblPosition.Location = New System.Drawing.Point(11, 92)
Me.lblPosition.Name = "lblPosition"
Me.lblPosition.Size = New System.Drawing.Size(44, 13)
Me.lblPosition.TabIndex = 2
Me.lblPosition.Text = "Position"
'
'lbldatum
'
Me.lbldatum.AutoSize = True
Me.lbldatum.Location = New System.Drawing.Point(11, 38)
Me.lbldatum.Name = "lbldatum"
Me.lbldatum.Size = New System.Drawing.Size(38, 13)
Me.lbldatum.TabIndex = 1
Me.lbldatum.Text = "Datum"
'
'dtdatum
'
'
'
'
Me.dtdatum.BackgroundStyle.Class = "DateTimeInputBackground"
Me.dtdatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.dtdatum.ButtonDropDown.Visible = True
Me.dtdatum.IsPopupCalendarOpen = False
Me.dtdatum.Location = New System.Drawing.Point(85, 35)
'
'
'
'
'
'
Me.dtdatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
Me.dtdatum.MonthCalendar.ClearButtonVisible = True
'
'
'
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
'
'
'
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
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.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 0
'
'GrpLeistungen
'
Me.GrpLeistungen.Controls.Add(Me.C1Leistungen)
Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0)
Me.GrpLeistungen.Name = "GrpLeistungen"
Me.GrpLeistungen.Size = New System.Drawing.Size(842, 158)
Me.GrpLeistungen.TabIndex = 3
Me.GrpLeistungen.TabStop = False
Me.GrpLeistungen.Text = "Leistungen"
'
'C1Leistungen
'
Me.C1Leistungen.AlternatingRows = True
Me.C1Leistungen.ContextMenuStrip = Me.ctxMenuLeistung
Me.C1Leistungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Leistungen.FilterBar = True
Me.C1Leistungen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Leistungen.Images.Add(CType(resources.GetObject("C1Leistungen.Images"), System.Drawing.Image))
Me.C1Leistungen.Location = New System.Drawing.Point(3, 16)
Me.C1Leistungen.Name = "C1Leistungen"
Me.C1Leistungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Leistungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Leistungen.Size = New System.Drawing.Size(836, 139)
Me.C1Leistungen.TabIndex = 2
Me.C1Leistungen.Text = "C1TrueDBGrid1"
Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag")
'
'ctxMenuLeistung
'
Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem})
Me.ctxMenuLeistung.Name = "ctxMenuLeistung"
Me.ctxMenuLeistung.Size = New System.Drawing.Size(131, 70)
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten"
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.LöschenToolStripMenuItem.Text = "&Löschen"
'
'AnzeigenToolStripMenuItem
'
Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.GrpTarif)
Me.Panel2.Controls.Add(Me.grpLeistungsdetails)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 25)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(842, 284)
Me.Panel2.TabIndex = 4
'
'Panel3
'
Me.Panel3.Controls.Add(Me.GrpLeistungen)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 309)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(842, 158)
Me.Panel3.TabIndex = 5
'
'Leistungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "Leistungen"
Me.Size = New System.Drawing.Size(842, 467)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GrpTarif.ResumeLayout(False)
Me.TabTarife.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.intAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpLeistungsdetails.ResumeLayout(False)
Me.grpLeistungsdetails.PerformLayout()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpLeistungen.ResumeLayout(False)
CType(Me.C1Leistungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxMenuLeistung.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents GrpTarif As System.Windows.Forms.GroupBox
Friend WithEvents grpLeistungsdetails As System.Windows.Forms.GroupBox
Friend WithEvents TabTarife As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lblAnzahl As System.Windows.Forms.Label
Friend WithEvents GrpLeistungen As System.Windows.Forms.GroupBox
Friend WithEvents intAnzahl As DevComponents.Editors.IntegerInput
Friend WithEvents txtPosition As System.Windows.Forms.TextBox
Friend WithEvents lblPosition As System.Windows.Forms.Label
Friend WithEvents lbldatum As System.Windows.Forms.Label
Friend WithEvents dtdatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblWert As System.Windows.Forms.Label
Friend WithEvents diwert As DevComponents.Editors.DoubleInput
Friend WithEvents lblMenge As System.Windows.Forms.Label
Friend WithEvents DIMenge As DevComponents.Editors.DoubleInput
Friend WithEvents lblTaxpunkte As System.Windows.Forms.Label
Friend WithEvents DIPunkte As DevComponents.Editors.DoubleInput
Friend WithEvents BtnInsertLeistung As System.Windows.Forms.Button
Friend WithEvents txtTotal As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
Friend WithEvents tsUp As System.Windows.Forms.ToolStripButton
Friend WithEvents tsDown As System.Windows.Forms.ToolStripButton
Friend WithEvents txtfilter As System.Windows.Forms.ToolStripTextBox
Friend WithEvents lblbehandler As System.Windows.Forms.Label
Friend WithEvents cbboxnrbehandler As DPM2016.MyCombobox
Friend WithEvents txtBezD As System.Windows.Forms.TextBox
Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
Friend WithEvents C1Leistungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ctxMenuLeistung As System.Windows.Forms.ContextMenuStrip
Friend WithEvents BearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lbtarif1 As DevComponents.DotNetBar.ListBoxAdv
Friend WithEvents TreeTarifGruppen As DevComponents.AdvTree.AdvTree
Friend WithEvents Node1 As DevComponents.AdvTree.Node
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents btnPaketeinfuegen As System.Windows.Forms.Button
Friend WithEvents lbPakete As DevComponents.DotNetBar.ListBoxAdv
Friend WithEvents tslabelbhtotal As System.Windows.Forms.ToolStripLabel
Friend WithEvents AnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
End Class

199
DPM2016/Behandlung/Leistungen.resx Normal file
View File

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

784
DPM2016/Behandlung/Leistungen.vb Normal file
View File

@@ -0,0 +1,784 @@
Public Class Leistungen
Dim db As New clsDB
Dim m_behandlungnr As Integer
Property Behandlungnr As Integer
Get
Return m_behandlungnr
End Get
Set(value As Integer)
m_behandlungnr = value
load_data()
End Set
End Property
Dim m_dentotar As Boolean = False
Property Dentotar As Boolean
Get
Return m_dentotar
End Get
Set(value As Boolean)
m_dentotar = value
load_data()
End Set
End Property
Dim m_Behandlungsstatus As Integer
Property Behandlungsstatus As Integer
Get
Return m_Behandlungsstatus
End Get
Set(value As Integer)
m_Behandlungsstatus = value
Select Case value
Case 1, 4
Me.grpLeistungsdetails.Enabled = True
Me.GrpTarif.Enabled = True
Me.BearbeitenToolStripMenuItem.Enabled = True
Me.LöschenToolStripMenuItem.Enabled = True
Case Else
Me.grpLeistungsdetails.Enabled = False
Me.GrpTarif.Enabled = False
Me.BearbeitenToolStripMenuItem.Enabled = False
Me.LöschenToolStripMenuItem.Enabled = False
End Select
End Set
End Property
Enum Taxpunkttyp
Privat = 1
Suva = 2
Minmal = 3
Maximal = 4
Dentotar = 5
End Enum
Dim m_taxpunkte As Taxpunkttyp
Property TaxPunkte As Taxpunkttyp
Get
Return m_taxpunkte
End Get
Set(value As Taxpunkttyp)
m_taxpunkte = value
End Set
End Property
Dim intSort As Integer = 0
Dim m_frankenwert As Double
Property Frankenwert As Double
Get
Return m_frankenwert
End Get
Set(value As Double)
m_frankenwert = value
Me.diwert.Value = value
End Set
End Property
Dim m_behandler As Integer
Property behandler As Integer
Get
Return m_behandler
End Get
Set(value As Integer)
m_behandler = value
End Set
End Property
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Sub load_data()
Try
db.Get_Tarife()
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 "Dentotar"
Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("Bezeichnung")
Me.TreeTarifGruppen.Nodes.Add(tn)
Dim sortstring As String = "KapitelNrNeu"
Dim dv As New DataView(IntTables.Inttables.Tables("dentotar"), "Level=1 and KapitelNrNeu<>'00'", sortstring, DataViewRowState.CurrentRows)
For Each rowView As DataRowView In dv
Dim r2 As DataRow = rowView.Row
Dim tn1 As New DevComponents.AdvTree.Node
tn1.Text = r2("Leistungd")
tn1.DataKey = r2("KapitelnrNeu")
tn1.Tag = r2("KapitelLeistung")
tn.Nodes.Add(tn1)
Next
Case "SSO-Tarif 01.04.1994"
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
End Select
Next
Me.lbPakete.Items.Clear()
Me.lbPakete.DataSource = IntTables.Inttables.Tables("Tarpaket")
Me.lbPakete.DisplayMember = "Paketbezeichnung"
Me.lbPakete.ValueMember = "nrpaket"
Me.lbPakete.SelectedIndex = 0
Me.TreeTarifGruppen.SelectedNode = Me.TreeTarifGruppen.Nodes(0)
Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
Me.cbboxnrbehandler.TableAlias = "Behandler_BH"
Me.cbboxnrbehandler.Table = "Behandler"
Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat"
Load_Tarif()
Exit Sub
End If
For Each r As DataRow In IntTables.Inttables.Tables("Tarife").Rows
If r("Bezeichnung") <> "Dentotar" 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
Next
Me.lbPakete.Items.Clear()
Me.lbPakete.DataSource = IntTables.Inttables.Tables("Tarpaket")
Me.lbPakete.DisplayMember = "Paketbezeichnung"
Me.lbPakete.ValueMember = "nrpaket"
Me.lbPakete.SelectedIndex = 0
Me.TreeTarifGruppen.SelectedNode = Me.TreeTarifGruppen.Nodes(0)
Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
Me.cbboxnrbehandler.TableAlias = "Behandler_BH"
Me.cbboxnrbehandler.Table = "Behandler"
Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat"
Load_Tarif()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Load_Tarif()
Dim dv As DataView
Dim dv1 As DataView
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Try
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"))
Dim sortstring As String = "leistungnrneu, leistungd"
Dim Wherestring As String = "Level=3 and Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'"
dv = New DataView(IntTables.Inttables.Tables("dentotar"), Wherestring, sortstring, DataViewRowState.CurrentRows)
Me.lbtarif1.DataSource = Nothing
Me.lbtarif1.DataSource = dv
Me.lbtarif1.DisplayMember = "nr_bez"
Me.lbtarif1.ValueMember = "LeistungNrNeu"
Exit Sub
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
db.Get_Tarif()
Try
Dim SortString As String = ""
If intSort = 0 Then
SortString = "Nr_Bez asc"
Else
SortString = "Nr_Bez desc"
End If
dv1 = New DataView(IntTables.Inttables.Tables("Tarif"), "SSO_Nummer >=" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + " and SSO_Nummer <=" + Me.TreeTarifGruppen.SelectedNode.TagString, SortString, DataViewRowState.CurrentRows)
lbtarif1.DataSource = Nothing
lbtarif1.DataSource = dv1
lbtarif1.DisplayMember = "nr_Bez"
lbtarif1.ValueMember = "nrtarif"
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub lbtarif_SelectedIndexChanged(sender As Object, e As EventArgs)
Load_Tarif()
End Sub
Private Sub tsUp_Click(sender As Object, e As EventArgs) Handles tsUp.Click
intSort = 0
Load_Tarif()
End Sub
Private Sub tsDown_Click(sender As Object, e As EventArgs) Handles tsDown.Click
intSort = 1
Load_Tarif()
End Sub
Private Sub txtfilter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyDown
If e.KeyCode <> Keys.Enter Then
End If
End Sub
Private Sub txtfilter_KeyUp(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyUp
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing
Dim sortstring As String
Dim wherestring As String
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), "", "leistungnrneu", DataViewRowState.CurrentRows)
db.RowFilter = "nr_bez like '%" + Me.txtfilter.Text + "%'"
Me.lbtarif1.DataSource = db
Me.lbtarif1.DisplayMember = "nr_bez"
Me.lbtarif1.ValueMember = "LeistungNrNeu"
End If
Exit Sub
End If
If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing
Dim SortString As String = ""
If intSort = 0 Then
SortString = "Nr_Bez asc"
Else
SortString = "Nr_Bez desc"
End If
'Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarifgruppe=" + Me.lbtarife.SelectedValue.ToString, SortString, DataViewRowState.CurrentRows)
'Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "SSO_Nummer >=" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + " and SSO_Nummer <=" + Me.TreeTarifGruppen.SelectedNode.TagString, SortString, DataViewRowState.CurrentRows)
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "", SortString, DataViewRowState.CurrentRows)
dv.RowFilter = "NR_BEZ like '%" + Me.txtfilter.Text + "%'"
Me.lbtarif1.DataSource = dv
Me.lbtarif1.DisplayMember = "nr_Bez"
Me.lbtarif1.ValueMember = "nrtarif"
Else
Try
If Me.lbtarif1.SelectedItems.Count = 1 Then
Me.lbtarif1_ItemClick(sender, e)
Me.lbtarif1_ItemDoubleClick(sender, e)
Me.txtfilter.SelectAll()
End If
Catch ex As Exception
Me.txtfilter.SelectAll()
End Try
End If
End Sub
Private Sub lbtarif1_ItemClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemClick
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Dim sortstring As String = ""
Dim wherestring As String = "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'"
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
'Me.txtPosition.Text = db.Item("Leistungnrneu").ToString
Me.txtPosition.Text = Me.lbtarif1.SelectedValue.ToString
txtPosition_TextChanged(sender, e)
Exit Sub
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + Me.lbtarif1.SelectedValue.ToString, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Me.txtPosition.Text = drv.Item("sso_nummer").ToString
txtPosition_TextChanged(sender, e)
Exit Sub
Next
End Sub
Private Sub lbtarif1_ItemDoubleClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemDoubleClick
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv1
Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString
txtPosition_TextChanged(sender, e)
Me.BtnInsertLeistung_Click(sender, e)
Exit Sub
Next
Exit Sub
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + Me.lbtarif1.SelectedValue.ToString, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Me.txtPosition.Text = drv.Item("sso_nummer").ToString
txtPosition_TextChanged(sender, e)
Me.BtnInsertLeistung_Click(sender, e)
Exit Sub
Next
End Sub
Private Sub txtPosition_TextChanged(sender As Object, e As EventArgs) Handles txtPosition.Leave
If Me.dtdatum.Value = "00:00:00" Then Me.dtdatum.Value = Now
Try
If cbboxnrbehandler.SelectedValue < 1 Then Me.cbboxnrbehandler.SelectedValue = Me.behandler
Catch ex As Exception
Me.cbboxnrbehandler.SelectedValue = Me.behandler
End Try
'Me.cbboxnrbehandler.SelectedValue = Me.behandler
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Dim sortstring As String = ""
Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'"
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Dim dr As DataRowView
dr = dv1(0)
If dr.Item("Abrechnungseinheit") = "TP" Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
Me.DIPunkte.Value = dr.Item("pp_max")
Case Taxpunkttyp.Minmal
Me.DIPunkte.Value = dr.Item("pp_min")
Case Taxpunkttyp.Privat
Me.DIPunkte.Value = dr.Item("pp_privat")
Case Taxpunkttyp.Suva
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
Me.DIMenge.Text = 1
Me.diwert.Text = 1
Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
If drv.Item("Frankenbetrag") < 0.1 Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
Me.DIPunkte.Value = drv.Item("maximaltarif")
Case Taxpunkttyp.Minmal
Me.DIPunkte.Value = drv.Item("minimaltarif")
Case Taxpunkttyp.Privat
Me.DIPunkte.Value = drv.Item("privattarif")
Case Taxpunkttyp.Suva
Me.DIPunkte.Value = drv.Item("suvatarif")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
Me.DIMenge.Text = 1
Me.diwert.Text = Me.Frankenwert
Me.DIPunkte.Enabled = True
Me.txtBezD.Text = drv.Item("BezD")
Else
Me.DIPunkte.Value = 0
Me.DIPunkte.Enabled = False
Me.DIMenge.Value = 1
Dim b As Double
b = drv.Item("Frankenbetrag")
Me.diwert.Value = b
Me.txtBezD.Text = drv.Item("BezD")
End If
Exit Sub
Next
End Sub
Private Sub DIPunkte_ValueChanged(sender As Object, e As EventArgs) Handles DIPunkte.ValueChanged, DIMenge.ValueChanged, diwert.ValueChanged
Try
Dim total As Double
If DIPunkte.Value > 0 Then
total = DIPunkte.Value * DIMenge.Value * diwert.Value
Me.txtTotal.Text = total.ToString("N2")
Else
total = DIMenge.Value * diwert.Value
Me.txtTotal.Text = total.ToString("N2")
End If
Catch
End Try
End Sub
Private Sub BtnInsertLeistung_Click(sender As Object, e As EventArgs) Handles BtnInsertLeistung.Click
leistung_einfuegen()
End Sub
Private Sub diwert_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPosition.KeyDown, txtBezD.KeyDown, diwert.KeyDown, DIPunkte.KeyDown, DIMenge.KeyDown
If e.KeyCode = Keys.Enter Then
If sender.name = "txtPosition" Then Me.txtPosition_TextChanged(sender, e)
Leistung_Einfuegen()
Me.txtPosition.Focus()
Me.txtPosition.SelectAll()
End If
End Sub
Sub Leistung_Einfuegen_Dentotar(ByVal SSONummer As String, ByVal anzahl As Integer)
Dim dv As DataView
Dim sortstring As String = ""
Dim wherestring As String = "LeistungNrNeu='" + Me.txtPosition.Text.ToString + "'"
If SSONummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Else
wherestring = SSONummer
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
End If
Dim drv As DataRowView = dv(0)
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Leistung")
db.Get_Tabledata("Leistung", " where nrleistung=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
r.Item(0) = newkey
r.Item("Erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
r.Item("Datum") = Me.dtdatum.Value
r.Item("nrbehandlung") = Me.Behandlungnr
r.Item("mandant") = 1
r.Item("nrtarifgruppe") = 0
r.Item("nrtarif") = 0
r.Item("sso_nummer") = drv("LeistungNrNeu")
If SSONummer = "" Then
r.Item("bezd") = Me.txtBezD.Text
Else
r.Item("bezd") = drv("Leistungd")
End If
If SSONummer = "" Then
r.Item("taxpunkte") = Me.DIPunkte.Value
Else
If drv.Item("Frankenbetrag") < 0.1 Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
r.Item("taxpunkte") = drv.Item("pp_amx")
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("pp_min")
Case Taxpunkttyp.Privat
r.Item("taxpunkte") = drv.Item("pp_privat")
Case Taxpunkttyp.Suva
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
End If
If SSONummer = "" Then
r.Item("menge") = Me.DIMenge.Value
Else
r.Item("menge") = anzahl
End If
If SSONummer = "" Then
r.Item("frankenprotaxpunkt") = Me.diwert.Value
Else
r.Item("frankenprotaxpunkt") = Frankenwert
End If
If SSONummer = "" Then
r.Item("total") = Me.txtTotal.Text
Else
Dim total As Double
If drv.Item("frankenbetrag") < 0.1 Then
total = r.Item("taxpunkte") * anzahl * 1
r.Item("total") = total.ToString("N2")
Else
total = anzahl * 1
r.Item("total") = total.ToString("N2")
End If
End If
If DIPunkte.Enabled = False Then r.Item("absolut") = 1 Else r.Item("absolut") = 0
r.Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
db.Dispose()
refresh_leistungen()
End Sub
Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1)
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Leistung_Einfuegen_Dentotar(ssonummer, anzahl)
Exit Sub
End If
Dim dv As DataView
If ssonummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows)
Else
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + ssonummer.ToString, "", DataViewRowState.CurrentRows)
End If
Dim drv As DataRowView = dv(0)
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Leistung")
db.Get_Tabledata("Leistung", " where nrleistung=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
r.Item(0) = newkey
r.Item("Erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
r.Item("Datum") = Me.dtdatum.Value
r.Item("nrbehandlung") = Me.Behandlungnr
r.Item("mandant") = 1
r.Item("nrtarifgruppe") = drv("NrTarifgruppe")
r.Item("nrtarif") = drv("Nrtarif")
r.Item("sso_nummer") = drv("SSO_Nummer")
If ssonummer = "" Then
r.Item("bezd") = Me.txtBezD.Text
Else
r.Item("bezd") = drv("bezd")
End If
If ssonummer = "" Then
r.Item("taxpunkte") = Me.DIPunkte.Value
Else
If drv.Item("Frankenbetrag") < 0.1 Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
r.Item("taxpunkte") = drv.Item("maximaltarif")
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("minimaltarif")
Case Taxpunkttyp.Privat
r.Item("taxpunkte") = drv.Item("privattarif")
Case Taxpunkttyp.Suva
r.Item("taxpunkte") = drv.Item("suvatarif")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
End If
If ssonummer = "" Then
r.Item("menge") = Me.DIMenge.Value
Else
r.Item("menge") = anzahl
End If
If ssonummer = "" Then
r.Item("frankenprotaxpunkt") = Me.diwert.Value
Else
r.Item("frankenprotaxpunkt") = Frankenwert
End If
If ssonummer = "" Then
r.Item("total") = Me.txtTotal.Text
Else
Dim total As Double
If drv.Item("frankenbetrag") < 0.1 Then
total = r.Item("taxpunkte") * anzahl * r.Item("Frankenprotaxpunkt")
r.Item("total") = total.ToString("N2")
Else
total = anzahl * r.Item("frankenprotaxpunkt").value
r.Item("total") = total.ToString("N2")
End If
End If
If DIPunkte.Enabled = False Then r.Item("absolut") = 1 Else r.Item("absolut") = 0
r.Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
db.Dispose()
refresh_leistungen()
End Sub
Dim ldb As New clsDB
Dim spalten As New Tabellenspalte
Sub refresh_leistungen()
Me.C1Leistungen.DataSource = Nothing
ldb.dsDaten.Tables.Clear()
ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1")
Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0)
Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0))
EVH.Fire_Leistung_Changed(Me.Behandlungnr, calc_Leistungstotal)
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Me.C1Leistungen_DoubleClick(sender, e)
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
Try
If MsgBox("Leistung wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
If Me.C1Leistungen.SelectedRows.Count < 2 Then
ldb.delete_leistung(Me.C1Leistungen.Columns("nrleistung").Value)
refresh_leistungen()
Exit Sub
End If
If Me.C1Leistungen.SelectedRows.Count > 1 Then
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
Dim cl As New Collection
colRows = Me.C1Leistungen.SelectedRows
For ic = 0 To colRows.Count - 1
cl.Add(Me.C1Leistungen.Columns(0).CellValue(colRows(ic)))
Next ic
For i = 1 To cl.Count
ldb.delete_leistung(cl(i))
Next
refresh_leistungen()
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub TreeTarifGruppen_NodeClick(sender As Object, e As DevComponents.AdvTree.TreeNodeMouseEventArgs) Handles TreeTarifGruppen.NodeClick
Load_Tarif()
End Sub
Private Sub btnPaketeinfuegen_Click(sender As Object, e As EventArgs) Handles btnPaketeinfuegen.Click
If Me.dtdatum.Value = "00:00:00" Then Me.dtdatum.Value = Now
Try
If cbboxnrbehandler.SelectedValue < 1 Then Me.cbboxnrbehandler.SelectedValue = Me.behandler
Catch ex As Exception
Me.cbboxnrbehandler.SelectedValue = Me.behandler
End Try
Me.cbboxnrbehandler.SelectedValue = Me.behandler
Dim dv As New DataView(IntTables.Inttables.Tables("paketpos"), "nrpaket=" + Me.lbPakete.SelectedValue.ToString, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Dim dvt As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + drv.Item("nrtarif").ToString, "", DataViewRowState.CurrentRows)
For Each dvtr As DataRowView In dvt
Leistung_Einfuegen(dvtr("SSO_Nummer").ToString, Me.intAnzahl.Value)
Next
Next
End Sub
Public Function calc_Leistungstotal() As Double
Dim total As Double
For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
If r("aktiv") = True Then
total = total + r("Total")
End If
Next
Return total
End Function
Public Function Recalc_Leistungen()
ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1")
For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
If r("absolut") = 0 Then
r("frankenprotaxpunkt") = Me.Frankenwert
r("total") = Globals.Round5(r("Menge") * r("Taxpunkte") * r("frankenprotaxpunkt"))
End If
Next
ldb.Update_Data()
refresh_leistungen()
End Function
Private Sub lbPakete_DoubleClick(sender As Object, e As EventArgs) Handles lbPakete.DoubleClick
btnPaketeinfuegen_Click(sender, e)
End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
If Me.Behandlungnr = behandlungsnummer Then Me.tslabelbhtotal.Text = "Behandlungstotal: " + Total.ToString("N2")
End Sub
Private Sub C1Leistungen_DoubleClick(sender As Object, e As EventArgs) Handles C1Leistungen.DoubleClick
Try
Dim f As New frmLeistungDetail
f.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
f.cbboxnrbehandler.TableAlias = "Behandler_BH"
f.cbboxnrbehandler.Table = "Behandler"
f.cbboxnrbehandler.Displaymember = "Name"
f.cbboxnrbehandler.Valuemember = "nrprivat"
f.Leistungsnummer = C1Leistungen.Columns(0).Value
If Me.grpLeistungsdetails.Enabled = False Then f.IsReadonly = True Else f.IsReadonly = False
f.ShowDialog()
Me.refresh_leistungen()
Catch
End Try
End Sub
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
Dim f As New frmLeistungDetail
f.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
f.cbboxnrbehandler.TableAlias = "Behandler_BH"
f.cbboxnrbehandler.Table = "Behandler"
f.cbboxnrbehandler.Displaymember = "Name"
f.cbboxnrbehandler.Valuemember = "nrprivat"
f.Leistungsnummer = C1Leistungen.Columns(0).Value
f.IsReadonly = True
f.ShowDialog()
End Sub
Private Sub GrpTarif_Enter(sender As Object, e As EventArgs) Handles GrpTarif.Enter
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
End Class

340
DPM2016/Behandlung/frmLeistungDetail.Designer.vb generated Normal file
View File

@@ -0,0 +1,340 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLeistungDetail
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox()
Me.lblSSONummer = New System.Windows.Forms.Label()
Me.lblTarifnr = New System.Windows.Forms.Label()
Me.lblLeistungsbeschreibung = New System.Windows.Forms.Label()
Me.txtBezD = New System.Windows.Forms.TextBox()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.lblbehandler = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.txtTotal = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblWert = New System.Windows.Forms.Label()
Me.diwert = New DevComponents.Editors.DoubleInput()
Me.lblMenge = New System.Windows.Forms.Label()
Me.DIMenge = New DevComponents.Editors.DoubleInput()
Me.lblTaxpunkte = New System.Windows.Forms.Label()
Me.DIPunkte = New DevComponents.Editors.DoubleInput()
Me.lbldatum = New System.Windows.Forms.Label()
Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.grpLeistungsdetails.SuspendLayout()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(272, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'grpLeistungsdetails
'
Me.grpLeistungsdetails.Controls.Add(Me.lblSSONummer)
Me.grpLeistungsdetails.Controls.Add(Me.lblTarifnr)
Me.grpLeistungsdetails.Controls.Add(Me.lblLeistungsbeschreibung)
Me.grpLeistungsdetails.Controls.Add(Me.txtBezD)
Me.grpLeistungsdetails.Controls.Add(Me.cbboxnrbehandler)
Me.grpLeistungsdetails.Controls.Add(Me.lblbehandler)
Me.grpLeistungsdetails.Controls.Add(Me.btnSave)
Me.grpLeistungsdetails.Controls.Add(Me.txtTotal)
Me.grpLeistungsdetails.Controls.Add(Me.Label1)
Me.grpLeistungsdetails.Controls.Add(Me.lblWert)
Me.grpLeistungsdetails.Controls.Add(Me.diwert)
Me.grpLeistungsdetails.Controls.Add(Me.lblMenge)
Me.grpLeistungsdetails.Controls.Add(Me.DIMenge)
Me.grpLeistungsdetails.Controls.Add(Me.lblTaxpunkte)
Me.grpLeistungsdetails.Controls.Add(Me.DIPunkte)
Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
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.TabIndex = 3
Me.grpLeistungsdetails.TabStop = False
Me.grpLeistungsdetails.Text = "Leistungsdetails"
'
'lblSSONummer
'
Me.lblSSONummer.AutoSize = True
Me.lblSSONummer.Location = New System.Drawing.Point(77, 25)
Me.lblSSONummer.Name = "lblSSONummer"
Me.lblSSONummer.Size = New System.Drawing.Size(31, 13)
Me.lblSSONummer.TabIndex = 26
Me.lblSSONummer.Text = "0000"
'
'lblTarifnr
'
Me.lblTarifnr.AutoSize = True
Me.lblTarifnr.Location = New System.Drawing.Point(6, 25)
Me.lblTarifnr.Name = "lblTarifnr"
Me.lblTarifnr.Size = New System.Drawing.Size(42, 13)
Me.lblTarifnr.TabIndex = 25
Me.lblTarifnr.Text = "TarifNr."
'
'lblLeistungsbeschreibung
'
Me.lblLeistungsbeschreibung.AutoSize = True
Me.lblLeistungsbeschreibung.Location = New System.Drawing.Point(6, 53)
Me.lblLeistungsbeschreibung.Name = "lblLeistungsbeschreibung"
Me.lblLeistungsbeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblLeistungsbeschreibung.TabIndex = 23
Me.lblLeistungsbeschreibung.Text = "Beschreibung"
'
'txtBezD
'
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.TabIndex = 6
'
'cbboxnrbehandler
'
Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(80, 129)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.SelectedValue = Nothing
Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 22)
Me.cbboxnrbehandler.TabIndex = 1
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
'
'lblbehandler
'
Me.lblbehandler.AutoSize = True
Me.lblbehandler.Location = New System.Drawing.Point(6, 131)
Me.lblbehandler.Name = "lblbehandler"
Me.lblbehandler.Size = New System.Drawing.Size(55, 13)
Me.lblbehandler.TabIndex = 14
Me.lblbehandler.Text = "Behandler"
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(9, 244)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(120, 23)
Me.btnSave.TabIndex = 7
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'txtTotal
'
Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTotal.Location = New System.Drawing.Point(44, 216)
Me.txtTotal.Name = "txtTotal"
Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtTotal.Size = New System.Drawing.Size(92, 13)
Me.txtTotal.TabIndex = 12
Me.txtTotal.Text = "0.00www"
Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 216)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Total"
'
'lblWert
'
Me.lblWert.AutoSize = True
Me.lblWert.Location = New System.Drawing.Point(6, 191)
Me.lblWert.Name = "lblWert"
Me.lblWert.Size = New System.Drawing.Size(30, 13)
Me.lblWert.TabIndex = 9
Me.lblWert.Text = "Wert"
'
'diwert
'
'
'
'
Me.diwert.BackgroundStyle.Class = "DateTimeInputBackground"
Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.diwert.Increment = 1.0R
Me.diwert.Location = New System.Drawing.Point(80, 187)
Me.diwert.Name = "diwert"
Me.diwert.ShowUpDown = True
Me.diwert.Size = New System.Drawing.Size(56, 20)
Me.diwert.TabIndex = 4
'
'lblMenge
'
Me.lblMenge.AutoSize = True
Me.lblMenge.Location = New System.Drawing.Point(6, 164)
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Size = New System.Drawing.Size(40, 13)
Me.lblMenge.TabIndex = 7
Me.lblMenge.Text = "Menge"
'
'DIMenge
'
'
'
'
Me.DIMenge.BackgroundStyle.Class = "DateTimeInputBackground"
Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIMenge.Increment = 1.0R
Me.DIMenge.Location = New System.Drawing.Point(80, 161)
Me.DIMenge.Name = "DIMenge"
Me.DIMenge.ShowUpDown = True
Me.DIMenge.Size = New System.Drawing.Size(56, 20)
Me.DIMenge.TabIndex = 3
'
'lblTaxpunkte
'
Me.lblTaxpunkte.AutoSize = True
Me.lblTaxpunkte.Location = New System.Drawing.Point(154, 164)
Me.lblTaxpunkte.Name = "lblTaxpunkte"
Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13)
Me.lblTaxpunkte.TabIndex = 5
Me.lblTaxpunkte.Text = "Punkte"
'
'DIPunkte
'
'
'
'
Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIPunkte.Increment = 1.0R
Me.DIPunkte.Location = New System.Drawing.Point(201, 161)
Me.DIPunkte.Name = "DIPunkte"
Me.DIPunkte.ShowUpDown = True
Me.DIPunkte.Size = New System.Drawing.Size(56, 20)
Me.DIPunkte.TabIndex = 5
'
'lbldatum
'
Me.lbldatum.AutoSize = True
Me.lbldatum.Location = New System.Drawing.Point(6, 106)
Me.lbldatum.Name = "lbldatum"
Me.lbldatum.Size = New System.Drawing.Size(38, 13)
Me.lbldatum.TabIndex = 1
Me.lbldatum.Text = "Datum"
'
'dtdatum
'
'
'
'
Me.dtdatum.BackgroundStyle.Class = "DateTimeInputBackground"
Me.dtdatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.dtdatum.ButtonDropDown.Visible = True
Me.dtdatum.IsPopupCalendarOpen = False
Me.dtdatum.Location = New System.Drawing.Point(80, 103)
'
'
'
Me.dtdatum.MonthCalendar.AnnuallyMarkedDates = New Date(-1) {}
'
'
'
Me.dtdatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
Me.dtdatum.MonthCalendar.ClearButtonVisible = True
'
'
'
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
Me.dtdatum.MonthCalendar.MarkedDates = New Date(-1) {}
Me.dtdatum.MonthCalendar.MonthlyMarkedDates = New Date(-1) {}
'
'
'
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.TodayButtonVisible = True
Me.dtdatum.MonthCalendar.WeeklyMarkedDays = New System.DayOfWeek(-1) {}
Me.dtdatum.Name = "dtdatum"
Me.dtdatum.Size = New System.Drawing.Size(177, 20)
Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 0
'
'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.Controls.Add(Me.grpLeistungsdetails)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmLeistungDetail"
Me.Text = "frmLeistungDetail"
Me.grpLeistungsdetails.ResumeLayout(False)
Me.grpLeistungsdetails.PerformLayout()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents grpLeistungsdetails As System.Windows.Forms.GroupBox
Friend WithEvents txtBezD As System.Windows.Forms.TextBox
Friend WithEvents cbboxnrbehandler As DPM2016.MyCombobox
Friend WithEvents lblbehandler As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents txtTotal As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblWert As System.Windows.Forms.Label
Friend WithEvents diwert As DevComponents.Editors.DoubleInput
Friend WithEvents lblMenge As System.Windows.Forms.Label
Friend WithEvents DIMenge As DevComponents.Editors.DoubleInput
Friend WithEvents lblTaxpunkte As System.Windows.Forms.Label
Friend WithEvents DIPunkte As DevComponents.Editors.DoubleInput
Friend WithEvents lbldatum As System.Windows.Forms.Label
Friend WithEvents dtdatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents lblSSONummer As System.Windows.Forms.Label
Friend WithEvents lblTarifnr As System.Windows.Forms.Label
Friend WithEvents lblLeistungsbeschreibung As System.Windows.Forms.Label
End Class

123
DPM2016/Behandlung/frmLeistungDetail.resx Normal file
View File

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

74
DPM2016/Behandlung/frmLeistungDetail.vb Normal file
View File

@@ -0,0 +1,74 @@
Public Class frmLeistungDetail
Dim m_leistungsnummer As Integer
Property Leistungsnummer As Integer
Get
Return m_leistungsnummer
End Get
Set(value As Integer)
m_leistungsnummer = value
update_data()
End Set
End Property
Dim m_IsReadOnly As Boolean
Property IsReadonly As Boolean
Get
Return m_IsReadOnly
End Get
Set(value As Boolean)
m_IsReadOnly = value
If value = True Then grpLeistungsdetails.Enabled = False Else grpLeistungsdetails.Enabled = True
End Set
End Property
Private Sub frmLeistungDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Dim db As New clsDB
Sub Update_data()
db.get_leistung(Me.Leistungsnummer)
Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
Me.txtBezD.Text = db.dsDaten.Tables(0).Rows(0).Item("bezd")
Me.dtdatum.Value = db.dsDaten.Tables(0).Rows(0).Item("datum")
Me.DIMenge.Value = db.dsDaten.Tables(0).Rows(0).Item("menge")
Me.DIPunkte.Value = db.dsDaten.Tables(0).Rows(0).Item("taxpunkte")
Me.diwert.Value = db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt")
Me.cbboxnrbehandler.SelectedValue = db.dsDaten.Tables(0).Rows(0).Item("nrbehandler")
If DIPunkte.Value = 0 Then DIPunkte.Enabled = False Else DIPunkte.Enabled = True
Dim t As Double
t = db.dsDaten.Tables(0).Rows(0).Item("total")
Me.txtTotal.Text = t.ToString("N2")
End Sub
Private Sub DIPunkte_ValueChanged(sender As Object, e As EventArgs) Handles DIPunkte.ValueChanged, DIMenge.ValueChanged, diwert.ValueChanged
Try
Dim total As Double
If DIPunkte.Value > 0 Then
total = DIPunkte.Value * DIMenge.Value * diwert.Value
Me.txtTotal.Text = total.ToString("N2")
Else
total = DIMenge.Value * diwert.Value
Me.txtTotal.Text = total.ToString("N2")
End If
Catch
End Try
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
db.dsDaten.Tables(0).Rows(0).Item("bezd") = Me.txtBezD.Text
db.dsDaten.Tables(0).Rows(0).Item("datum") = Me.dtdatum.Value
db.dsDaten.Tables(0).Rows(0).Item("menge") = Me.DIMenge.Value
db.dsDaten.Tables(0).Rows(0).Item("taxpunkte") = Me.DIPunkte.Value
db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt") = Me.diwert.Value
db.dsDaten.Tables(0).Rows(0).Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
db.dsDaten.Tables(0).Rows(0).Item("total") = Me.txtTotal.Text
db.Update_Data()
Me.Close()
End Sub
End Class

412
DPM2016/DPM2016.vbproj Normal file
View File

@@ -0,0 +1,412 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{C78BA301-98A0-41B2-B1C9-553567634286}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>DPM2016.My.MyApplication</StartupObject>
<RootNamespace>DPM2016</RootNamespace>
<AssemblyName>DPM2016</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DPM2016.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DPM2016.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="Aga.Controls">
<HintPath>..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll</HintPath>
</Reference>
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
<Reference Include="DevComponents.DotNetBar.Schedule, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar.Schedule.dll</HintPath>
</Reference>
<Reference Include="DevComponents.DotNetBar2, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar2.dll</HintPath>
</Reference>
<Reference Include="EnvDTE, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="FastReport, Version=2016.1.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.dll</HintPath>
</Reference>
<Reference Include="FastReport.Bars, Version=2016.1.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.Bars.dll</HintPath>
</Reference>
<Reference Include="FastReport.Editor, Version=2016.1.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\FastReport.Editor.dll</HintPath>
</Reference>
<Reference Include="FlexCel, Version=5.5.1.0, Culture=neutral, PublicKeyToken=cb8f6080e6d5a4d6, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Core, Version=13.3400.0.7, Culture=neutral, PublicKeyToken=632609b4d040f6b4, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Syncfusion\Essential Studio\13.3.0.7\Assemblies\4.0\Syncfusion.Core.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Grid.Base, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Grid.Windows, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Shared.Base, Version=13.3350.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Shared.Windows, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Tools.Base, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Tools.Windows, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" />
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Windows.Forms.DataVisualization, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="UIAutomationProvider" />
<Reference Include="UIAutomationTypes" />
<Reference Include="WindowsBase" />
<Reference Include="_FRReporting">
<HintPath>..\_FRReporting\bin\Debug\_FRReporting.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="Behandlung\Behandlung.Designer.vb">
<DependentUpon>Behandlung.vb</DependentUpon>
</Compile>
<Compile Include="Behandlung\Behandlung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Behandlung\Benhandungdetail.Designer.vb">
<DependentUpon>Benhandungdetail.vb</DependentUpon>
</Compile>
<Compile Include="Behandlung\Benhandungdetail.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Behandlung\frmLeistungDetail.Designer.vb">
<DependentUpon>frmLeistungDetail.vb</DependentUpon>
</Compile>
<Compile Include="Behandlung\frmLeistungDetail.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Behandlung\Leistungen.Designer.vb">
<DependentUpon>Leistungen.vb</DependentUpon>
</Compile>
<Compile Include="Behandlung\Leistungen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Database\clsDB.vb" />
<Compile Include="Database\frmPrivatSelect.Designer.vb">
<DependentUpon>frmPrivatSelect.vb</DependentUpon>
</Compile>
<Compile Include="Database\frmPrivatSelect.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Database\IntTables.vb" />
<Compile Include="Diverses\frmprogress.Designer.vb">
<DependentUpon>frmprogress.vb</DependentUpon>
</Compile>
<Compile Include="Diverses\frmprogress.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="EventHandler\Generic_Event_Handler.vb" />
<Compile Include="Fakturierung\frmFakturierung.Designer.vb">
<DependentUpon>frmFakturierung.vb</DependentUpon>
</Compile>
<Compile Include="Fakturierung\frmFakturierung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Finanzaen\Finanzen.Designer.vb">
<DependentUpon>Finanzen.vb</DependentUpon>
</Compile>
<Compile Include="Finanzaen\Finanzen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Firmen\frmFirma.Designer.vb">
<DependentUpon>frmFirma.vb</DependentUpon>
</Compile>
<Compile Include="Firmen\frmFirma.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Firmen\frmFirmaAP.Designer.vb">
<DependentUpon>frmFirmaAP.vb</DependentUpon>
</Compile>
<Compile Include="Firmen\frmFirmaAP.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="KG\Krankengeschichte.Designer.vb">
<DependentUpon>Krankengeschichte.vb</DependentUpon>
</Compile>
<Compile Include="KG\Krankengeschichte.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Klassen\clsNullableDatetimePicker.vb" />
<Compile Include="Klassen\MyCombobox.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Patient\Patient.Designer.vb">
<DependentUpon>Patient.vb</DependentUpon>
</Compile>
<Compile Include="Patient\Patient.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Patient\PatientAbrechnung.Designer.vb">
<DependentUpon>PatientAbrechnung.vb</DependentUpon>
</Compile>
<Compile Include="Patient\PatientAbrechnung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Patient\PatientDetails.Designer.vb">
<DependentUpon>PatientDetails.vb</DependentUpon>
</Compile>
<Compile Include="Patient\PatientDetails.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Reporting\clsAllgemein.vb" />
<Compile Include="Reporting\frmReportauswahl.Designer.vb">
<DependentUpon>frmReportauswahl.vb</DependentUpon>
</Compile>
<Compile Include="Reporting\frmReportauswahl.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Reporting\frmReportView.Designer.vb">
<DependentUpon>frmReportView.vb</DependentUpon>
</Compile>
<Compile Include="Reporting\frmReportView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Sysadmin\frmAuswertungen.Designer.vb">
<DependentUpon>frmAuswertungen.vb</DependentUpon>
</Compile>
<Compile Include="Sysadmin\frmAuswertungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Sysadmin\frmStammdaten.Designer.vb">
<DependentUpon>frmStammdaten.vb</DependentUpon>
</Compile>
<Compile Include="Sysadmin\frmStammdaten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Klassen\clsSpalten.vb" />
<Compile Include="Klassen\clsStammdaten_Bez.Designer.vb">
<DependentUpon>clsStammdaten_Bez.vb</DependentUpon>
</Compile>
<Compile Include="Klassen\clsStammdaten_Bez.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Klassen\clsStammdaten_flat.Designer.vb">
<DependentUpon>clsStammdaten_flat.vb</DependentUpon>
</Compile>
<Compile Include="Klassen\clsStammdaten_flat.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Sysadmin\frmSysadminTableSelector.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\clsLog.vb" />
<Compile Include="Utils\Globals.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Behandlung\Behandlung.resx">
<DependentUpon>Behandlung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\Benhandungdetail.resx">
<DependentUpon>Benhandungdetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\frmLeistungDetail.resx">
<DependentUpon>frmLeistungDetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\Leistungen.resx">
<DependentUpon>Leistungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Database\frmPrivatSelect.resx">
<DependentUpon>frmPrivatSelect.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Diverses\frmprogress.resx">
<DependentUpon>frmprogress.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\frmFakturierung.resx">
<DependentUpon>frmFakturierung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Finanzaen\Finanzen.resx">
<DependentUpon>Finanzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Firmen\frmFirma.resx">
<DependentUpon>frmFirma.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Firmen\frmFirmaAP.resx">
<DependentUpon>frmFirmaAP.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="KG\Krankengeschichte.resx">
<DependentUpon>Krankengeschichte.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Patient\Patient.resx">
<DependentUpon>Patient.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Patient\PatientAbrechnung.resx">
<DependentUpon>PatientAbrechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Patient\PatientDetails.resx">
<DependentUpon>PatientDetails.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reporting\frmReportauswahl.resx">
<DependentUpon>frmReportauswahl.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reporting\frmReportView.resx">
<DependentUpon>frmReportView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmAuswertungen.resx">
<DependentUpon>frmAuswertungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmStammdaten.resx">
<DependentUpon>frmStammdaten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Klassen\clsStammdaten_Bez.resx">
<DependentUpon>clsStammdaten_Bez.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Klassen\clsStammdaten_flat.resx">
<DependentUpon>clsStammdaten_flat.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx" />
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<Content Include="Database1.mdf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Database1_log.ldf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<DependentUpon>Database1.mdf</DependentUpon>
</Content>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

13
DPM2016/DPM2016.vbproj.user Normal file
View File

@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory />
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>de-DE</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

22
DPM2016/Database/IntTables.vb Normal file
View File

@@ -0,0 +1,22 @@
Module IntTables
Public Inttables As New DataSet
Public orte As New DataTable
Public Function GetOrt(ByVal plz As String) As String
If orte.Rows.Count = 0 Then
Dim db As New clsDB
db.Get_Tabledata("Orte")
orte = db.dsDaten.Tables(0).Copy
db.Dispose()
End If
Dim ort As String = ""
For Each r As DataRow In orte.Rows
If r("plz").ToString = plz Then
ort = r("ort")
Exit For
End If
Next
Return ort
End Function
End Module

603
DPM2016/Database/clsDB.vb Normal file
View File

@@ -0,0 +1,603 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class clsDB
#Region "Deklarationen"
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Sub New()
Me.Connectionstring = My.Settings.ConnectionString
End Sub
Public dsDaten As New DataSet
Public dssql As New DataSet
Public dadaten As SqlDataAdapter
#End Region
#Region "Allgemein Get / Save"
Public Sub Dispose()
dsDaten.Dispose()
dssql.Dispose()
dadaten.Dispose()
End Sub
Public Function Get_Datavalue(sql As String, args As String) As String
Try
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
'If SP = True Then
' Dim sqlcmd As New SqlCommand
' Dim sqlconnect As New SqlConnection
' sqlconnect.ConnectionString = Me.Connectionstring
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = tablename
' For Each r As DataRow In SP_Params.Rows
' sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
' sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
' Next
' sqlcmd.Connection = sqlconnect
' dadaten.SelectCommand = sqlcmd
' dadaten.Fill(dsDaten, sql)
'End If
If sql <> "" Then
sql = sql.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
End If
Dim dt As New DataTable
dadaten.Fill(dt)
Return dt.Rows(0).Item(0)
Catch ex As Exception
Dim a As Integer = 1
End Try
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Sub Get_Tabledata(ByVal tablename As String, Optional wherestatement As String = "", Optional SQL As String = "", Optional args As String = "", Optional SP As Boolean = False, Optional SP_Params As DataTable = Nothing)
If SP = True Then
End If
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
If SP = True Then
Dim sqlcmd As New SqlCommand
Dim sqlconnect As New SqlConnection
sqlconnect.ConnectionString = Me.Connectionstring
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = tablename
For Each r As DataRow In SP_Params.Rows
sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
Next
sqlcmd.Connection = sqlconnect
dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
End If
If SQL <> "" Then
SQL = SQL.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
Else
dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
End If
'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
dadaten.Fill(dsDaten, tablename)
Catch ex As Exception
Dim a As Integer = 1
End Try
End Sub
Public Sub Update_Data()
Dim cb As New SqlCommandBuilder(dadaten)
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
End Sub
Dim da As SqlDataAdapter
Dim qb As New SqlCommandBuilder
Public daten As New DataSet
Public Function Get_Tabledata_for_Update(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
sqlconnect.Open()
da = New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(daten, "Daten")
qb = New SqlCommandBuilder(da)
End Function
Public Sub Update_Tabeldata()
da.Update(daten, "Daten")
End Sub
Public Sub Exec_Prod(ByVal Procedure As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = Procedure
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Function updatedata(ByVal Tablename As String, ByVal sourcetable As DataTable, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataSet
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
Dim qb As New SqlCommandBuilder
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
sqlconnect.Open()
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(ds, "Daten")
qb = New SqlCommandBuilder(da)
For Each c As DataColumn In sourcetable.Columns
ds.Tables(0).Rows(0).Item(c.ColumnName) = sourcetable.Rows(0).Item(c.ColumnName)
Next
da.Update(ds, "Daten")
End Function
Public Function Insert_New_Entry(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 + " (" + KeyName + ",aktiv,erstellt_am,mutiert_am,mutierer) values(" + dbkey.ToString + ",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
#End Region
#Region "Spalten"
Public Sub Generate_SpaltenData(ByVal tablename As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dttable As New DataTable(tablename)
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Function Get_Spaltendata()
Try
Dim dbRow As DataRow
Dim dsPartner As New DataSet
dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
dadaten.Fill(dsDaten, "Daten")
Catch
End Try
End Function
Public Function Get_SQL(ByVal nr As Integer) As String
Try
If Globals.SQLStatements.Rows.Count = 0 Then
dssql.Clear()
dadaten = New SqlDataAdapter("select * from sql_statements", Me.Connectionstring)
dadaten.Fill(dssql, "SQLStatements")
Globals.SQLStatements = dssql.Tables(0).Copy
End If
For Each r As DataRow In Globals.SQLStatements.Rows
If r(0) = nr Then
Return r(1)
Exit Function
End If
Next
Catch
End Try
End Function
#End Region
#Region "Suche"
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
Select Case Type
Case "Patient"
If IsNumeric(Searchstring) Then
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
Else
Get_Tabledata("privat", " where name like '" + Searchstring + "%'" + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
End If
If dsDaten.Tables(0).Rows.Count = 1 Then
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
Else
Dim f As New frmPrivatSelect
f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows
Dim tn As New TreeNode
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrprivat")
f.TreeView1.Nodes.Add(tn)
Next
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Return f.TreeView1.SelectedNode.Tag
Else
Return -1
End If
End If
Return -1
End Select
End Function
#End Region
#Region "Log"
Public Function WriteLog(ByVal Entry As String, ByVal logtype As Integer)
Try
Dim conn As New SqlConnection(Me.Connectionstring)
Dim sql As String
sql = "Insert Log (Eintrag,logtype ) values('" + Entry + "'," + logtype.ToString + ")"
Dim cm As New SqlCommand(sql, conn)
conn.Open()
cm.ExecuteNonQuery()
conn.Close()
conn.Dispose()
cm.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
#End Region
#Region "Utils"
Public Function Get_DBKey(ByVal Tablename As String) As Integer
Select Case Tablename
Case "Privat"
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
Case "Leistung"
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
Case "Behandlung"
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
Case "Zahlung"
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function
#End Region
#Region "Tarife / Leistungen"
Public Function Get_Tarife() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarife" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarife", "order by nummervon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarifgrp" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarpaket" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
If Not found Then
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "paketpos" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("paketpos", "order by nrpaket")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Dentotar" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Dentotar", "", Get_SQL(23))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Function Get_Tarif() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarif" Then
found = True
Exit Function
End If
Next
If Not found Then
Me.Get_Tabledata("Tarif", "", Get_SQL(16))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Sub Recalc_Leistungen(ByVal nrbehandlung As Integer, taxpunktwert As Double)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_recalc_leistungen]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@taxpunktwert", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, taxpunktwert))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Leistung"
Public Function delete_leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
Update_Data()
End Function
Public Function Get_Leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
End Function
#End Region
#Region "Auswertungen"
Public Function get_reportdata(ByVal Reportnr As Integer, ByVal Parameter As String) As String
Get_Tabledata("Auswertung", "where Auswertungnr=" + Reportnr.ToString, "", "")
Dim sql As String
Dim typ As String
sql = dsDaten.Tables(0).Rows(0).Item("sql")
typ = dsDaten.Tables(0).Rows(0).Item("sqltype")
If Parameter <> "" Then sql = sql + " " + Parameter
Dim Filename As String = My.Settings.TempPath + "\" + dsDaten.Tables(0).Rows(0).Item("BEZEICHNUNG") + ".FRX"
dsDaten.Clear()
Select Case UCase(typ)
Case "SQL"
Get_Tabledata("Auswertungsdaten", "", sql, "")
Return Filename
End Select
End Function
#End Region
#Region "Fakturierung"
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
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.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Documenthandling"
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
Public Function Get_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Get_file("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function
Public Function Save_File(ByVal sql As String, ByVal filename As String, ByVal DBAttribut As String) As String
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter(sql, Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New System.IO.FileStream(filename, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MsgBox("Datei kann nicht gespeichert werden.", MsgBoxStyle.Critical)
Exit Function
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(DBAttribut) = mydata
DA.Update(ds, "RptFile")
End If
Return filename
Catch ex As Exception
MsgBox(ex.Message)
filename = ""
Return filename
Finally
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Try
End Function
Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
Dim connection As New SqlConnection()
Dim DA As New SqlDataAdapter(sql, connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(DBAttribut)
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 filename
Catch ex As Exception
Return ""
Finally
CB = Nothing
ds = Nothing
DA = Nothing
connection.Close()
connection = Nothing
End Try
End Function
#End Region
End Class

74
DPM2016/Database/frmPrivatSelect.Designer.vb generated Normal file
View File

@@ -0,0 +1,74 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPrivatSelect
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TreeView1
'
Me.TreeView1.FullRowSelect = True
Me.TreeView1.HotTracking = True
Me.TreeView1.Location = New System.Drawing.Point(13, 28)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(259, 221)
Me.TreeView1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(13, 260)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(197, 260)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
'
'frmPrivatSelect
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 295)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TreeView1)
Me.Name = "frmPrivatSelect"
Me.Text = "frmPrivatSelect"
Me.ResumeLayout(False)
End Sub
Friend WithEvents TreeView1 As TreeView
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

120
DPM2016/Database/frmPrivatSelect.resx Normal file
View File

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

38
DPM2016/Database/frmPrivatSelect.vb Normal file
View File

@@ -0,0 +1,38 @@
Public Class frmPrivatSelect
Dim intNr As Integer
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Try
intNr = Me.TreeView1.SelectedNode.Tag
Catch ex As Exception
End Try
End Sub
Private Sub TreeView1_DoubleClick(sender As Object, e As EventArgs) Handles TreeView1.DoubleClick
Try
intNr = Me.TreeView1.SelectedNode.Tag
Me.DialogResult = DialogResult.OK
Me.Close()
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
intNr = Me.TreeView1.SelectedNode.Tag
Me.DialogResult = DialogResult.OK
Me.Close()
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
End Class

BIN
DPM2016/Database1.mdf Normal file
View File

Binary file not shown.

BIN
DPM2016/Database1_log.ldf Normal file
View File

Binary file not shown.

61
DPM2016/Diverses/frmprogress.Designer.vb generated Normal file
View File

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

120
DPM2016/Diverses/frmprogress.resx Normal file
View File

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

26
DPM2016/Diverses/frmprogress.vb Normal file
View File

@@ -0,0 +1,26 @@
Public Class frmprogress
Dim min As Integer
Sub New(ByVal min As Integer, ByVal max As Integer, ByVal titel As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ProgressBar1.Minimum = min
Me.ProgressBar1.Maximum = max
Me.titel.Text = titel
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmprogress_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Public Sub Init_Progressbar(ByVal min As Integer, ByVal max As Integer, Optional titel As String = "")
Me.ProgressBar1.Minimum = min
Me.ProgressBar1.Maximum = max
If titel <> "" Then Me.titel.Text = titel
Me.ProgressBar1.Value = min
End Sub
End Class

45
DPM2016/EventHandler/Generic_Event_Handler.vb Normal file
View File

@@ -0,0 +1,45 @@
Public Class Generic_Event_Handler
Public Event PatName_Changed(ByVal name As String, ByVal nr As Integer)
Public Event PatSaved(ByVal Nr As Integer)
Public Event Leistung_Changed(ByVal Behandlungsnummer As Integer, Total As Double)
Public Event Totale_Berechnet(ByVal behandlungsnummer As Integer)
Public Event Behandlung_changed(ByVal behandlungsnummer As Integer, patientnr As Integer)
Public Event Taxpunktwert_changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double)
Public Event Total_Berechnet(ByVal behandlungsnummer As Integer, Total As Double)
Public Event Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnummer As Integer)
Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer)
RaiseEvent PatName_Changed(name, nr)
End Function
Public Function Fire_PatSaved(ByVal nr As Integer)
RaiseEvent PatSaved(nr)
End Function
Public Function Fire_Leistung_Changed(ByVal Behandlungsnummer As Integer, total As Double)
RaiseEvent Leistung_Changed(Behandlungsnummer, total)
End Function
Public Function Fire_Totale_Berechnet(ByVal Behandlungsnummer As Integer)
RaiseEvent Totale_Berechnet(Behandlungsnummer)
End Function
Public Function Fire_Behandlung_Changed(ByVal behandlungsnummer As Integer, ByVal patientnr As Integer)
RaiseEvent Behandlung_changed(behandlungsnummer, patientnr)
End Function
Public Function fire_Taxpunktwert_Changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double)
RaiseEvent Taxpunktwert_changed(behandlungsnummer, patientnr, taxpunktwert)
End Function
Public Function Fire_Total_Berechnet(ByVal Behandlungsnummer As Integer, ByVal Total As Double)
RaiseEvent Total_Berechnet(Behandlungsnummer, Total)
End Function
Public Function Fire_Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnr As Integer)
RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr)
End Function
End Class

322
DPM2016/Fakturierung/frmFakturierung.Designer.vb generated Normal file
View File

@@ -0,0 +1,322 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFakturierung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFakturierung))
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.tsbtnSave = 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()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GrpAusgeschlosseneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Ausgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.grpOffeneRechnungen.SuspendLayout()
CType(Me.C1Abgeschlossen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpAusgeschlosseneRechnungen.SuspendLayout()
CType(Me.C1Ausgeschlossen, 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(773, 24)
Me.MenuStrip1.TabIndex = 20
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.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripButton5})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(773, 25)
Me.ToolStrip1.TabIndex = 21
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 = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
Me.tsbtnSave.Visible = False
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
Me.tsbtnnew.Visible = False
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel1.Text = "Suche"
Me.ToolStripLabel1.Visible = False
'
'tstxtsuche
'
Me.tstxtsuche.Name = "tstxtsuche"
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
Me.tstxtsuche.Visible = False
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
Me.tsbtnfirst.Text = "Erster Datensatz"
Me.tsbtnfirst.Visible = False
'
'tsbtprev
'
Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtprev.Name = "tsbtprev"
Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
Me.tsbtprev.Text = "Vorheriger Datensatz"
Me.tsbtprev.Visible = False
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnext.Text = "nächster Datensatz"
Me.tsbtnnext.Visible = False
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz"
Me.tsbtnlast.Visible = False
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
'
'grpOffeneRechnungen
'
Me.grpOffeneRechnungen.Controls.Add(Me.C1Abgeschlossen)
Me.grpOffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
Me.grpOffeneRechnungen.Location = New System.Drawing.Point(0, 49)
Me.grpOffeneRechnungen.Name = "grpOffeneRechnungen"
Me.grpOffeneRechnungen.Size = New System.Drawing.Size(773, 161)
Me.grpOffeneRechnungen.TabIndex = 22
Me.grpOffeneRechnungen.TabStop = False
Me.grpOffeneRechnungen.Text = "Abgeschlossene Behandlungen"
'
'C1Abgeschlossen
'
Me.C1Abgeschlossen.AlternatingRows = True
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"
Me.C1Abgeschlossen.Images.Add(CType(resources.GetObject("C1Abgeschlossen.Images"), System.Drawing.Image))
Me.C1Abgeschlossen.Location = New System.Drawing.Point(3, 16)
Me.C1Abgeschlossen.Name = "C1Abgeschlossen"
Me.C1Abgeschlossen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Abgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Abgeschlossen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Abgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Abgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Abgeschlossen.Size = New System.Drawing.Size(767, 142)
Me.C1Abgeschlossen.TabIndex = 3
Me.C1Abgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Abgeschlossen.PropBag = resources.GetString("C1Abgeschlossen.PropBag")
'
'GrpAusgeschlosseneRechnungen
'
Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.C1Ausgeschlossen)
Me.GrpAusgeschlosseneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpAusgeschlosseneRechnungen.Location = New System.Drawing.Point(0, 210)
Me.GrpAusgeschlosseneRechnungen.Name = "GrpAusgeschlosseneRechnungen"
Me.GrpAusgeschlosseneRechnungen.Size = New System.Drawing.Size(773, 161)
Me.GrpAusgeschlosseneRechnungen.TabIndex = 23
Me.GrpAusgeschlosseneRechnungen.TabStop = False
Me.GrpAusgeschlosseneRechnungen.Text = "Ausgeschlossen"
'
'C1Ausgeschlossen
'
Me.C1Ausgeschlossen.AlternatingRows = True
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"
Me.C1Ausgeschlossen.Images.Add(CType(resources.GetObject("C1Ausgeschlossen.Images"), System.Drawing.Image))
Me.C1Ausgeschlossen.Location = New System.Drawing.Point(3, 16)
Me.C1Ausgeschlossen.Name = "C1Ausgeschlossen"
Me.C1Ausgeschlossen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Ausgeschlossen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Ausgeschlossen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Ausgeschlossen.PrintInfo.PageSettings = CType(resources.GetObject("C1Ausgeschlossen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Ausgeschlossen.Size = New System.Drawing.Size(767, 142)
Me.C1Ausgeschlossen.TabIndex = 3
Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Ausgeschlossen.PropBag = resources.GetString("C1Ausgeschlossen.PropBag")
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "ToolStripButton5"
'
'frmFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(773, 363)
Me.Controls.Add(Me.GrpAusgeschlosseneRechnungen)
Me.Controls.Add(Me.grpOffeneRechnungen)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmFakturierung"
Me.Text = "frmFakturierung"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.grpOffeneRechnungen.ResumeLayout(False)
CType(Me.C1Abgeschlossen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpAusgeschlosseneRechnungen.ResumeLayout(False)
CType(Me.C1Ausgeschlossen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents tsbtnnew As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents tstxtsuche As ToolStripTextBox
Friend WithEvents tsbtnfirst As ToolStripButton
Friend WithEvents tsbtprev As ToolStripButton
Friend WithEvents tsbtnnext As ToolStripButton
Friend WithEvents tsbtnlast As ToolStripButton
Friend WithEvents grpOffeneRechnungen As GroupBox
Friend WithEvents GrpAusgeschlosseneRechnungen As GroupBox
Friend WithEvents C1Abgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents C1Ausgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton5 As ToolStripButton
End Class

435
DPM2016/Fakturierung/frmFakturierung.resx Normal file
View File

@@ -0,0 +1,435 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
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+tmmA6yCVxnuX/8pMAcOpDRO4RXwZDUikNuNMOH7iJKOIKF8
Ghk1SxA2fQxxx21IOu4gv+MzInDRVGDbW3FgV0yBW3OdglU+hW1vRq4q8DibHCJcLZxi7jLOF8IlogrH
2U0IytDibK4O0YVjSFTMglf3F4haP0NJ7z9Q+t6/INXehfmBcCLg+YTAwWgkq+YhbP6YIkk5j62M8G8V
0MfMIXzDBvuwrjdCcuCdoiECPTibQwRko0ismAGv9gbyNJ+isOceirWfQ9xzB9sOnDMV2EKOJbXuOiSd
dyhSa69ji+PZ7xR4nFdeC460cQn7jy+vDaGkBBGSYaqUacpFqv65LZ9QIoK2T7DVMcxUYDOxSqlbomql
J4UIbNof8tQC+qzb5bfT7PXgWRe2AuHSQcQUjVF9kFa9gAz1EtWM6Q03sZnc10Rg4/4z4KgXqIbRwyHl
MNt38pkE9KHRTr+87tW3ZTv9Ur4JLRqgeiG+dAIJZdPgEBkWue/GfadMBbbSgr+KVs0gXbVIEUXmv6V5
PddfMn1+vcPTfd0f/e4d5bfgYuEoIslboedi2TjM9gZjje3elQLHziQPBkrbEVszj1j1PNwza2Bp7/Oh
Yfm5snbnUbNf2Lppd5Mv5ynZAEIF/TgjG8IrDgGmAkxuvvWxkITBLXaBDzfa2T203e87sMsx2MKw/H3y
0lpLp9hf7T72hQuPfCcUY6QHgkxL8P/Oz+n7dr9Mc5xncCSwD4x7sGfP+Z8Yll5c9A91jhEe3ssS/95w
6YeQrFnzP+dStr84zVH5AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFoZq7KUiruiuACK
CrVlU8qmIIggS5FBBBxwFhgWGdBB9mVYZoahbAVk0w44zgACw4ygiJqiUtfUtMbY2v5obN9evtz0XxNl
8ZdP8iY3955z7pt7zpfP4B3/h06nm9ah/clKJB00pFtvl0ixWjN071e4clp/M/dW+NLtt8f6Q1IM//wH
Gq8+wS52I0w85Yrl3rKZ9HjqWeKUA93jl+i49wKqO88RmdsNk2/K75p5yzbRkKmF9XUm1HeeofnGU0Yt
w09RcOEWLL+q/svUU8Yx4PHeo6FTg9HeDLQNPUat7gGjGkb3Ud07Cq+ECzD2kF4y9ilbRMMnn8X2p1Hb
Nwp5553/JOscgUwzgoquEfDKe7HCp/SXz73kTjRlclm0OwnSy7chab+FEiJJ+01GxUqiH4ZRdPEGss8P
Yjeb94+puzSH5Vv6IU2dHBbuFJCeDyGvjap1CLmt15Hbcg05zYPIbhrAuUY9MaFHkEgJY8/SIbMD0hU0
feJ8YhuPzMYBokEqsm4YgLj+Ks5+r0NGbT/Sa/qQVtWD1MouxBerYH646E8TT2kwLTExFljHIr1Wj4y6
q4zG1qIaHdKq+3G6Sksu7UVyRTeEMg0EZSrwJO3gFivhHFOH5e5l9WYHy+fQUuNj/rYocpGOSM8olaxT
vutHsqIPQnkPEqRd4JepwZWoEFeoRGxeG6KymhEpboBfYh1WHix9uGxfkQ0t9+bM38JGcqUeSQodI2GF
DolyLbm4l1x8BadKNIgrUiE2vx1R2RfAFjchKrMJR4WV2HcsB6ucuGCZ814tdckXWlvz3qdlXx9Dq3AI
FXokyHUQyMbUTz49LbhlvYiTdCNe0ono3A6EpbfgEL8GLuwSbPISYYUjH8a7Y2C0PRyGG4/g0x3xWOac
p6RlXx/DzSGIK9HiREEPjuddQURWJ8LEajLxHfBLugg3TgMcj1fB/lspdgQWYatvFjZ4iLDSOQGm9ifB
so7AAssgLLHjYKmTeBwGSHLYuW4EpqsRKFIjIE0F/5QO+AqV8Ba0wT2+CS5k4PZGKLAruATb/XNh6ZWB
VS5CmDlwyCtEw5S0gOWQmji+FmwMQGR+P8IyexAqvoLgM10IImYOp15iTHjxW7Gf08i8wp7Qctgczscm
7zNY45qENfuFWG4vuL94j2AbLffmGG7wQ0zJIPkL6sDO6Ud4Vh9jJChdA39i4mDiRbifaobziRo4kDbY
BhRgi28m1rknw2jHiSqWNe9jWmp8zFvng/iKm4gpuobowgEyB3ocy9YSE904knYZvklKeHJbmDY4hMtg
F1oI1pdRvy/cGu5HS0yMuWu9IagewanyYcSV3kBM8TXGRPi5XhzN0MAvuR2evFbs49TDNiQbi7cGaRdZ
BhnT9IkzZ40HhA2jSFD8CJ7sNmMiunAQEeQVxubBjwykR2IzzD14rwzX+6QYrAucRlMnh9mr3ZDa+ggp
1fcgrBwBV3oLseQVxuYhmLTBhV8NI5vAh/PXetnSlMll1kpXpCmfIr3+AWOCL7+Nk5LrCCvQwirkDOau
dqubab5/Ng2ffD6ycIJI9Qxnzz9Gas0oeMTAoTw1PnM4+nKWhUsADZs6Zn6xFxma54wBfu1d2HGlmLXK
VTfDwtGUhkwtc1Y7Ir79CULIf8DY2ubv6Sb2aQbmbh/Q46nH4kD0i11CCWaY2D2avtRmJ91+e2wITd5s
z045YGrlP4NuvWMKMDD4F+5SNghBcoyDAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcCSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0Qhxs69aKuxSoK
KCCoBUZhORVBBAVEwOGckeEYhgEG5D5nGJgZBhlAbpCCjiAox4xAAXEXq2k9NmbTNN01+4d197sPb95A
m6GNNal/9ZN8kyfP73i/8/yeyfvq/c6P4fF47xzndlvZxrSvobfeLk4Xmm7e0D6G1Wnlvyz95AH09tvj
Iy8Jpv/xAi2aZ3CMboO5j0Jp6idfSYffGI74ISNW8je1dXT7yw3h7S+9hVr1RfEsgw4vYehWAs3TF7j+
8HuoH3yHmNJhmP+19ityGrvplDeCLZ5VD009xZWuUdR3jkJ99wkSJTNqOrwE4/MCDDz4Fp0zzyl1zT5H
xbU5WB9VvbTwkSeRS/IOnfqrYARIfyisvYYCaQclaZMaC3t0eInNR3LRM/0UTZpvKDVS+hqqkUfwTbsG
M2/ZDbOTNfp0+mvDDOpGdvnVRVUoe2HupwIdXsLAOQtNo4+guPVgUfJb85APzqNuaB682hFsOSn950e+
Cje65LWwDGhFemHDoopru2DqrdA1oO+UAdnN+5D0z6GaSNJ/j5K4j+iLWVT1zqC4fRJO0bz/WXjJSsgx
/oku/UUWfi1HpFhUnrgNJp5SXQMbD6aSmU+jrIdW9zRKu79EadcUSjonUdwxgcI2LTGhRWhOH8x8pNOW
/rItdPnPsvBr2RlSxApqKQlLm2HEqtA1sMGei4K2CaJJWmTdOoH8lru4fFWD3KZxiBpHkd1wB8L6IXDF
ajBPV/3H3Ed2jm6xLCYe1Yjh14CdSYwQCUqvwtC1SNfAetsEiJq0yG2+S2lhndOoQbZqHFkNY+ShIxDU
DYMvH0RqjRo8ST+SxX1wj2+GqVdNi+WJ2tV0q59gcqwCFzPrEJt1hVJmeTsMP7+sa2DdPjZ5kIZIS0lI
1plXxiFQjoKvuIM02RBSagaQLFGDU9mHhLIesIs6EZPfisD0Zmw7IX1scrzKjm63iLF7EdjZjYgTNVMS
VvXA6GjOMgb2RkNQr0WGUkOJX6dBumKMPHiEPPg2LlUPglOlRkJ5P9jF1xCd3wF2QQfO8utx/EIJtrsl
g8HkvTJmlfNtbXl/oNvqGbvmIT6vDQn5nUgs6EJG5RcwOizQNbB2TyT4Si3SFBqkyhc0Tv56Y0iuGQFH
Mgyu5BbiSq8jQtSFUymNYEVXY7dvDra4psDMKR6b90di7adnsOkAFybuZX10Wz3jo1lIKOxBXEEvIrI6
cfi8FIbOacsY+CwMnOoxxFbcwcWy24gquoWI/AFy468jMKMXnkmtcL3YAOfzMhwIqYJNQBF2eedgm3sa
LJwTwbCNwnrrUBg6JMHYLX/RgNHhDLDiVfBIbKXEilPB8NClZQyQ4ojCYYSIBhCSM4DgbDWCMq8jgN8H
v9QeeHE7SKNmHIlSwvFcNfYHlcLaNxfbWXxYuiSRU4iDBRkBw0WY/uMRGDqnwD+th+pD9UrrhqFj4jIG
Pg1GTPk4IgruIDz/Ns7lDSGUmDktvEEV+qZ0wyOpjTqFQ+G1sDtdjt1+ebA6lgErDz5MnVO/NjiUuo9u
t4ihEwdnRDcRdnmI0sKa4RC7jIFdgYivniRvQQ2iS8YRWTRKGQkVDSKImDiR3guvS51wj22ECxmDfXAF
9gYUYKeXAJsPxDYwbHnv061+AsMxHpElI2BX3KV0vniE5EfpGvhw50lw6+4hvmoKcZUT5B5ocaF4jJgY
xpnsmwjI6INPchc1BpdIORzCK8E4zP73RpvIQLrFshgcjEGseAI8+RwldtUEDOwidA2s+cQPqap5XKqd
BUc6g3jxFGUisnAEZ3MHESjohw+vG8eTWmAfVgwDm9AxfetQM7r8ZzGwj0SSbAbCpkeUEmtnsMn2rK6B
1Vbe4Lc+Qpry78TpfcpEXOUkosgpLNyHQHIhvdM7wfTmvVr7l5OZejtD/kiX/iL6tmHgKueQ3/GMErdu
Dvr7gnUNfLDDE8LuJ8hUPQS/fh7JsjkkkFNYuA/nyBhYKSpstgt5vO4TX3u65LXYuP8MOMr7uNz+lBKH
GNhgc0rXwKptx5Dd9xyilm8oEymK++TT6UtEVIxhT1ge1uzwbF7J9PiATn9t1tuQy62YhbCRjIAonoxj
3d4Tugb+vNUNOepvKZcLiTxi4FTZAIxczr5YtZUVTKf9ajYx/H+IlE2RE71H6TxZr2GwdD/JVn58BLmD
31EGUpq+gkOyDKu2H9Os2OpqQae8EW6BSUM+BW2Iks8gSjGDI+lyGFt7DNDhJVbvcAW3/xnCyHvAzNbu
v++ZO2frMT3fpcNvTDQv19TtVNyQPtPn1Xom85WFjefgtn3+RnR4ia3+cd878iVYYe7w5D1ju4P09ttj
V7jgM+foTH+LPUEr6K3f+Y3R0/s/QVmWKcPITm8AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="C1Abgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Abgeschlossen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Abgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1Ausgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Ausgeschlossen.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Ausgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

34
DPM2016/Fakturierung/frmFakturierung.vb Normal file
View File

@@ -0,0 +1,34 @@
Public Class frmFakturierung
Dim db As New clsDB
Private Sub frmFakturierung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim abgeschlossen As New DataTable
Dim ausgeschlossen As New DataTable
db.Get_Tabledata("view_abgeschlossene_Behandlungen")
abgeschlossen = db.dsDaten.Tables(0).Copy
ausgeschlossen = abgeschlossen.Copy
ausgeschlossen.Rows.Clear()
Me.C1Abgeschlossen.DataSource = abgeschlossen
Me.C1Abgeschlossen.DataMember = abgeschlossen.TableName
Me.C1Ausgeschlossen.DataSource = ausgeschlossen
Me.C1Ausgeschlossen.DataMember = ausgeschlossen.TableName
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Dim dt As New DataTable
dt = Me.C1Abgeschlossen.DataSource
Dim f As New frmReportView()
For Each r In dt.Rows
If r.item("raten") > 0 Then
Dim i As Integer
For i = 1 To r.item("raten")
f.Fakturierung(r.item("nrestyp"), r.item("nrbehandlung"), " where nrbehandlung = " + r.item("nrbehandlung").ToString, i)
Next
Else
f.Fakturierung(r.item("nrestyp"), r.item("nrbehandlung"), " where nrbehandlung = " + r.item("nrbehandlung").ToString, 0)
End If
Next
f.Visible = False
f.Close()
End Sub
End Class

321
DPM2016/Finanzaen/Finanzen.Designer.vb generated Normal file
View File

@@ -0,0 +1,321 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Finanzen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Finanzen))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.GrpZahlung = New System.Windows.Forms.GroupBox()
Me.btnBuchen = New System.Windows.Forms.Button()
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
Me.lblVorauszahlung = New System.Windows.Forms.Label()
Me.cbboxKonto = New DPM2016.MyCombobox()
Me.lblKonto = New System.Windows.Forms.Label()
Me.lblBetrag = New System.Windows.Forms.Label()
Me.diBetrag = New DevComponents.Editors.DoubleInput()
Me.lbldatum = New System.Windows.Forms.Label()
Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.txtRGNummer = New System.Windows.Forms.TextBox()
Me.lblRechnungsnummer = New System.Windows.Forms.Label()
Me.GrpZahlungen = New System.Windows.Forms.GroupBox()
Me.C1Zahlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GrpBehandlungen = New System.Windows.Forms.GroupBox()
Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GrpZahlung.SuspendLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpZahlungen.SuspendLayout()
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpBehandlungen.SuspendLayout()
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'GrpZahlung
'
Me.GrpZahlung.Controls.Add(Me.btnBuchen)
Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung)
Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung)
Me.GrpZahlung.Controls.Add(Me.cbboxKonto)
Me.GrpZahlung.Controls.Add(Me.lblKonto)
Me.GrpZahlung.Controls.Add(Me.lblBetrag)
Me.GrpZahlung.Controls.Add(Me.diBetrag)
Me.GrpZahlung.Controls.Add(Me.lbldatum)
Me.GrpZahlung.Controls.Add(Me.dtdatum)
Me.GrpZahlung.Controls.Add(Me.txtRGNummer)
Me.GrpZahlung.Controls.Add(Me.lblRechnungsnummer)
Me.GrpZahlung.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpZahlung.Location = New System.Drawing.Point(0, 25)
Me.GrpZahlung.Name = "GrpZahlung"
Me.GrpZahlung.Size = New System.Drawing.Size(345, 562)
Me.GrpZahlung.TabIndex = 1
Me.GrpZahlung.TabStop = False
Me.GrpZahlung.Text = "Zahlung"
'
'btnBuchen
'
Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
Me.btnBuchen.Name = "btnBuchen"
Me.btnBuchen.Size = New System.Drawing.Size(75, 23)
Me.btnBuchen.TabIndex = 19
Me.btnBuchen.Text = "Buchen"
Me.btnBuchen.UseVisualStyleBackColor = True
'
'chkVorauszahlung
'
Me.chkVorauszahlung.AutoSize = True
Me.chkVorauszahlung.Location = New System.Drawing.Point(147, 139)
Me.chkVorauszahlung.Name = "chkVorauszahlung"
Me.chkVorauszahlung.Size = New System.Drawing.Size(15, 14)
Me.chkVorauszahlung.TabIndex = 18
Me.chkVorauszahlung.UseVisualStyleBackColor = True
'
'lblVorauszahlung
'
Me.lblVorauszahlung.AutoSize = True
Me.lblVorauszahlung.Location = New System.Drawing.Point(20, 139)
Me.lblVorauszahlung.Name = "lblVorauszahlung"
Me.lblVorauszahlung.Size = New System.Drawing.Size(77, 13)
Me.lblVorauszahlung.TabIndex = 17
Me.lblVorauszahlung.Text = "Vorauszahlung"
'
'cbboxKonto
'
Me.cbboxKonto.Dataselection = Nothing
Me.cbboxKonto.Displaymember = Nothing
Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
Me.cbboxKonto.Name = "cbboxKonto"
Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
Me.cbboxKonto.TabIndex = 15
Me.cbboxKonto.Table = Nothing
Me.cbboxKonto.TableAlias = ""
Me.cbboxKonto.Valuemember = Nothing
'
'lblKonto
'
Me.lblKonto.AutoSize = True
Me.lblKonto.Location = New System.Drawing.Point(20, 112)
Me.lblKonto.Name = "lblKonto"
Me.lblKonto.Size = New System.Drawing.Size(55, 13)
Me.lblKonto.TabIndex = 16
Me.lblKonto.Text = "Behandler"
'
'lblBetrag
'
Me.lblBetrag.AutoSize = True
Me.lblBetrag.Location = New System.Drawing.Point(20, 87)
Me.lblBetrag.Name = "lblBetrag"
Me.lblBetrag.Size = New System.Drawing.Size(38, 13)
Me.lblBetrag.TabIndex = 11
Me.lblBetrag.Text = "Betrag"
'
'diBetrag
'
'
'
'
Me.diBetrag.BackgroundStyle.Class = "DateTimeInputBackground"
Me.diBetrag.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.diBetrag.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.diBetrag.Increment = 1.0R
Me.diBetrag.Location = New System.Drawing.Point(147, 81)
Me.diBetrag.Name = "diBetrag"
Me.diBetrag.ShowUpDown = True
Me.diBetrag.Size = New System.Drawing.Size(86, 20)
Me.diBetrag.TabIndex = 10
'
'lbldatum
'
Me.lbldatum.AutoSize = True
Me.lbldatum.Location = New System.Drawing.Point(20, 62)
Me.lbldatum.Name = "lbldatum"
Me.lbldatum.Size = New System.Drawing.Size(38, 13)
Me.lbldatum.TabIndex = 3
Me.lbldatum.Text = "Datum"
'
'dtdatum
'
'
'
'
Me.dtdatum.BackgroundStyle.Class = "DateTimeInputBackground"
Me.dtdatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.dtdatum.ButtonDropDown.Visible = True
Me.dtdatum.IsPopupCalendarOpen = False
Me.dtdatum.Location = New System.Drawing.Point(147, 55)
'
'
'
'
'
'
Me.dtdatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
Me.dtdatum.MonthCalendar.ClearButtonVisible = True
'
'
'
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
'
'
'
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
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.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 2
'
'txtRGNummer
'
Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
Me.txtRGNummer.Name = "txtRGNummer"
Me.txtRGNummer.Size = New System.Drawing.Size(177, 20)
Me.txtRGNummer.TabIndex = 1
'
'lblRechnungsnummer
'
Me.lblRechnungsnummer.AutoSize = True
Me.lblRechnungsnummer.Location = New System.Drawing.Point(20, 35)
Me.lblRechnungsnummer.Name = "lblRechnungsnummer"
Me.lblRechnungsnummer.Size = New System.Drawing.Size(99, 13)
Me.lblRechnungsnummer.TabIndex = 0
Me.lblRechnungsnummer.Text = "Rechnungsnummer"
'
'GrpZahlungen
'
Me.GrpZahlungen.Controls.Add(Me.C1Zahlungen)
Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25)
Me.GrpZahlungen.Name = "GrpZahlungen"
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 249)
Me.GrpZahlungen.TabIndex = 2
Me.GrpZahlungen.TabStop = False
Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
'
'C1Zahlungen
'
Me.C1Zahlungen.AlternatingRows = True
Me.C1Zahlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Zahlungen.FilterBar = True
Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Zahlungen.Images.Add(CType(resources.GetObject("C1Zahlungen.Images"), System.Drawing.Image))
Me.C1Zahlungen.Location = New System.Drawing.Point(3, 16)
Me.C1Zahlungen.Name = "C1Zahlungen"
Me.C1Zahlungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 230)
Me.C1Zahlungen.TabIndex = 3
Me.C1Zahlungen.Text = "C1TrueDBGrid1"
Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
'
'GrpBehandlungen
'
Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 274)
Me.GrpBehandlungen.Name = "GrpBehandlungen"
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 313)
Me.GrpBehandlungen.TabIndex = 3
Me.GrpBehandlungen.TabStop = False
Me.GrpBehandlungen.Text = "Offene Rechnungen"
'
'C1OffeneRechnungen
'
Me.C1OffeneRechnungen.AlternatingRows = True
Me.C1OffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1OffeneRechnungen.FilterBar = True
Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1OffeneRechnungen.Images.Add(CType(resources.GetObject("C1OffeneRechnungen.Images"), System.Drawing.Image))
Me.C1OffeneRechnungen.Location = New System.Drawing.Point(3, 16)
Me.C1OffeneRechnungen.Name = "C1OffeneRechnungen"
Me.C1OffeneRechnungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 294)
Me.C1OffeneRechnungen.TabIndex = 4
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
'
'Finanzen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GrpBehandlungen)
Me.Controls.Add(Me.GrpZahlungen)
Me.Controls.Add(Me.GrpZahlung)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "Finanzen"
Me.Size = New System.Drawing.Size(990, 587)
Me.GrpZahlung.ResumeLayout(False)
Me.GrpZahlung.PerformLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpZahlungen.ResumeLayout(False)
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpBehandlungen.ResumeLayout(False)
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents GrpZahlung As System.Windows.Forms.GroupBox
Friend WithEvents GrpZahlungen As System.Windows.Forms.GroupBox
Friend WithEvents GrpBehandlungen As System.Windows.Forms.GroupBox
Friend WithEvents C1Zahlungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents txtRGNummer As System.Windows.Forms.TextBox
Friend WithEvents lblRechnungsnummer As System.Windows.Forms.Label
Friend WithEvents C1OffeneRechnungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents lbldatum As System.Windows.Forms.Label
Friend WithEvents dtdatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents lblBetrag As System.Windows.Forms.Label
Friend WithEvents diBetrag As DevComponents.Editors.DoubleInput
Friend WithEvents btnBuchen As System.Windows.Forms.Button
Friend WithEvents chkVorauszahlung As System.Windows.Forms.CheckBox
Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label
Friend WithEvents cbboxKonto As DPM2016.MyCombobox
Friend WithEvents lblKonto As System.Windows.Forms.Label
End Class

202
DPM2016/Finanzaen/Finanzen.resx Normal file
View File

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

91
DPM2016/Finanzaen/Finanzen.vb Normal file
View File

@@ -0,0 +1,91 @@
Public Class Finanzen
Dim dbz As New clsDB
Dim dbk As New clsDB
Dim spalten As New Tabellenspalte
Dim m_patientnr As Integer
Property Patientnr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
m_patientnr = value
Refresh_Konto()
Refresh_Zahlungen()
End Set
End Property
Dim Zahlungen As New DataTable
Dim Offene_Rechnungen As New DataTable
Sub Refresh_Zahlungen()
Try
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
Zahlungen = dbz.dsDaten.Tables(0).Copy
Me.C1Zahlungen.DataSource = Nothing
Me.C1Zahlungen.DataSource = Zahlungen
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
Me.C1OffeneRechnungen.DataSource = Nothing
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub Refresh_Data()
refresh_konto()
Refresh_Zahlungen()
End Sub
Sub refresh_konto()
dbk.Get_Tabledata("Konto", "where aktiv=1")
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
Me.cbboxKonto.Displaymember = "Konto"
Me.cbboxKonto.Valuemember = "nrkonto"
End Sub
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
If Me.txtRGNummer.Text <> "" Then
Me.chkVorauszahlung.Checked = False
Me.chkVorauszahlung.Enabled = False
Else
Me.chkVorauszahlung.Enabled = True
End If
End Sub
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
r("nrzahlung") = newkey
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
r("vorauszahlung") = chkVorauszahlung.Checked
r("mandant") = 1
r("nrdebitor") = Me.Patientnr
r("betrag") = Me.diBetrag.Value
r("nrkonto") = cbboxKonto.SelectedValue
r("valuta") = Me.dtdatum.Value
r("nrbehandlung") = 0
r("status") = 0
If chkVorauszahlung.Checked Then r("status") = 1
r("statusdatum") = Now
r("erstellt_am") = Now
r("mutiert_am") = Now
r("mutierer") = Globals.ActUser
r("aktiv") = True
dbz.dsDaten.Tables(0).Rows.Add(r)
dbz.Update_Data()
Me.Refresh_Zahlungen()
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
End Class

847
DPM2016/Firmen/frmFirma.Designer.vb generated Normal file
View File

@@ -0,0 +1,847 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFirma
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirma))
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.tsbtnSave = 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()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.txtName1 = New System.Windows.Forms.TextBox()
Me.txtnrfirma = New System.Windows.Forms.TextBox()
Me.lblNr = New System.Windows.Forms.Label()
Me.lblAnrede = New System.Windows.Forms.Label()
Me.lblName2 = New System.Windows.Forms.Label()
Me.txtName2 = New System.Windows.Forms.TextBox()
Me.lblStrasse = New System.Windows.Forms.Label()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.lblPostfach = New System.Windows.Forms.Label()
Me.txtPostfach = New System.Windows.Forms.TextBox()
Me.lblPlz = New System.Windows.Forms.Label()
Me.txtPlz = New System.Windows.Forms.TextBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.lblTelefon = New System.Windows.Forms.Label()
Me.txtTel = New System.Windows.Forms.TextBox()
Me.lblTelefax = New System.Windows.Forms.Label()
Me.txtFax = New System.Windows.Forms.TextBox()
Me.lblMobile = New System.Windows.Forms.Label()
Me.txtnatel = New System.Windows.Forms.TextBox()
Me.lblEmail = New System.Windows.Forms.Label()
Me.txtE_Mail = New System.Windows.Forms.TextBox()
Me.lblInterner = New System.Windows.Forms.Label()
Me.txtweb = New System.Windows.Forms.TextBox()
Me.cbboxSprache = New DPM2016.MyCombobox()
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtBemerkung = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblSprache = New System.Windows.Forms.Label()
Me.lblStatus = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton()
Me.dtgueltigab = New System.Windows.Forms.DateTimePicker()
Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
Me.btndeldatetimeab = New System.Windows.Forms.Button()
Me.btndeldatetimebis = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.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(940, 24)
Me.MenuStrip1.TabIndex = 20
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.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(940, 25)
Me.ToolStrip1.TabIndex = 21
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 = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel1.Text = "Suche"
'
'tstxtsuche
'
Me.tstxtsuche.Name = "tstxtsuche"
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
Me.tsbtnfirst.Text = "Erster Datensatz"
'
'tsbtprev
'
Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtprev.Name = "tsbtprev"
Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
Me.tsbtprev.Text = "Vorheriger Datensatz"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnext.Text = "nächster Datensatz"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz"
'
'txtName1
'
Me.txtName1.Location = New System.Drawing.Point(71, 88)
Me.txtName1.Name = "txtName1"
Me.txtName1.Size = New System.Drawing.Size(162, 20)
Me.txtName1.TabIndex = 103
'
'txtnrfirma
'
Me.txtnrfirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtnrfirma.Location = New System.Drawing.Point(71, 62)
Me.txtnrfirma.Name = "txtnrfirma"
Me.txtnrfirma.ReadOnly = True
Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrfirma.Size = New System.Drawing.Size(48, 20)
Me.txtnrfirma.TabIndex = 110
'
'lblNr
'
Me.lblNr.AutoSize = True
Me.lblNr.BackColor = System.Drawing.Color.Transparent
Me.lblNr.Location = New System.Drawing.Point(12, 62)
Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(21, 13)
Me.lblNr.TabIndex = 111
Me.lblNr.Text = "Nr."
'
'lblAnrede
'
Me.lblAnrede.AutoSize = True
Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
Me.lblAnrede.Location = New System.Drawing.Point(12, 91)
Me.lblAnrede.Name = "lblAnrede"
Me.lblAnrede.Size = New System.Drawing.Size(51, 13)
Me.lblAnrede.TabIndex = 112
Me.lblAnrede.Text = "Name Z1"
'
'lblName2
'
Me.lblName2.AutoSize = True
Me.lblName2.BackColor = System.Drawing.Color.Transparent
Me.lblName2.Location = New System.Drawing.Point(12, 117)
Me.lblName2.Name = "lblName2"
Me.lblName2.Size = New System.Drawing.Size(51, 13)
Me.lblName2.TabIndex = 114
Me.lblName2.Text = "Name Z2"
'
'txtName2
'
Me.txtName2.Location = New System.Drawing.Point(71, 114)
Me.txtName2.Name = "txtName2"
Me.txtName2.Size = New System.Drawing.Size(162, 20)
Me.txtName2.TabIndex = 113
'
'lblStrasse
'
Me.lblStrasse.AutoSize = True
Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
Me.lblStrasse.Location = New System.Drawing.Point(12, 143)
Me.lblStrasse.Name = "lblStrasse"
Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
Me.lblStrasse.TabIndex = 116
Me.lblStrasse.Text = "Strasse"
'
'txtStrasse
'
Me.txtStrasse.Location = New System.Drawing.Point(71, 140)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 115
'
'lblPostfach
'
Me.lblPostfach.AutoSize = True
Me.lblPostfach.BackColor = System.Drawing.Color.Transparent
Me.lblPostfach.Location = New System.Drawing.Point(12, 169)
Me.lblPostfach.Name = "lblPostfach"
Me.lblPostfach.Size = New System.Drawing.Size(49, 13)
Me.lblPostfach.TabIndex = 118
Me.lblPostfach.Text = "Postfach"
'
'txtPostfach
'
Me.txtPostfach.Location = New System.Drawing.Point(71, 166)
Me.txtPostfach.Name = "txtPostfach"
Me.txtPostfach.Size = New System.Drawing.Size(162, 20)
Me.txtPostfach.TabIndex = 117
'
'lblPlz
'
Me.lblPlz.AutoSize = True
Me.lblPlz.BackColor = System.Drawing.Color.Transparent
Me.lblPlz.Location = New System.Drawing.Point(12, 195)
Me.lblPlz.Name = "lblPlz"
Me.lblPlz.Size = New System.Drawing.Size(46, 13)
Me.lblPlz.TabIndex = 120
Me.lblPlz.Text = "PLZ/Ort"
'
'txtPlz
'
Me.txtPlz.Location = New System.Drawing.Point(71, 192)
Me.txtPlz.Name = "txtPlz"
Me.txtPlz.Size = New System.Drawing.Size(48, 20)
Me.txtPlz.TabIndex = 119
'
'txtOrt
'
Me.txtOrt.Location = New System.Drawing.Point(125, 192)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 121
'
'lblTelefon
'
Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(12, 221)
Me.lblTelefon.Name = "lblTelefon"
Me.lblTelefon.Size = New System.Drawing.Size(43, 13)
Me.lblTelefon.TabIndex = 123
Me.lblTelefon.Text = "Telefon"
'
'txtTel
'
Me.txtTel.Location = New System.Drawing.Point(71, 218)
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(162, 20)
Me.txtTel.TabIndex = 122
'
'lblTelefax
'
Me.lblTelefax.AutoSize = True
Me.lblTelefax.BackColor = System.Drawing.Color.Transparent
Me.lblTelefax.Location = New System.Drawing.Point(12, 247)
Me.lblTelefax.Name = "lblTelefax"
Me.lblTelefax.Size = New System.Drawing.Size(42, 13)
Me.lblTelefax.TabIndex = 125
Me.lblTelefax.Text = "Telefax"
'
'txtFax
'
Me.txtFax.Location = New System.Drawing.Point(71, 244)
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(162, 20)
Me.txtFax.TabIndex = 124
'
'lblMobile
'
Me.lblMobile.AutoSize = True
Me.lblMobile.BackColor = System.Drawing.Color.Transparent
Me.lblMobile.Location = New System.Drawing.Point(12, 273)
Me.lblMobile.Name = "lblMobile"
Me.lblMobile.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 127
Me.lblMobile.Text = "Mobile"
'
'txtnatel
'
Me.txtnatel.Location = New System.Drawing.Point(71, 270)
Me.txtnatel.Name = "txtnatel"
Me.txtnatel.Size = New System.Drawing.Size(162, 20)
Me.txtnatel.TabIndex = 126
'
'lblEmail
'
Me.lblEmail.AutoSize = True
Me.lblEmail.BackColor = System.Drawing.Color.Transparent
Me.lblEmail.Location = New System.Drawing.Point(12, 299)
Me.lblEmail.Name = "lblEmail"
Me.lblEmail.Size = New System.Drawing.Size(36, 13)
Me.lblEmail.TabIndex = 129
Me.lblEmail.Text = "E-Mail"
'
'txtE_Mail
'
Me.txtE_Mail.Location = New System.Drawing.Point(71, 296)
Me.txtE_Mail.Name = "txtE_Mail"
Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 128
'
'lblInterner
'
Me.lblInterner.AutoSize = True
Me.lblInterner.BackColor = System.Drawing.Color.Transparent
Me.lblInterner.Location = New System.Drawing.Point(12, 325)
Me.lblInterner.Name = "lblInterner"
Me.lblInterner.Size = New System.Drawing.Size(43, 13)
Me.lblInterner.TabIndex = 131
Me.lblInterner.Text = "Internet"
'
'txtweb
'
Me.txtweb.Location = New System.Drawing.Point(71, 322)
Me.txtweb.Name = "txtweb"
Me.txtweb.Size = New System.Drawing.Size(162, 20)
Me.txtweb.TabIndex = 130
'
'cbboxSprache
'
Me.cbboxSprache.Dataselection = Nothing
Me.cbboxSprache.Displaymember = Nothing
Me.cbboxSprache.Location = New System.Drawing.Point(320, 114)
Me.cbboxSprache.Name = "cbboxSprache"
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 203
Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing
'
'cbboxStatus
'
Me.cbboxStatus.Dataselection = Nothing
Me.cbboxStatus.Displaymember = Nothing
Me.cbboxStatus.Location = New System.Drawing.Point(320, 87)
Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 202
Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Location = New System.Drawing.Point(250, 172)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 211
Me.Label15.Text = "Gültig bis"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Location = New System.Drawing.Point(250, 148)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 210
Me.Label14.Text = "Gültig ab"
'
'txtBemerkung
'
Me.txtBemerkung.Location = New System.Drawing.Point(501, 107)
Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(427, 197)
Me.txtBemerkung.TabIndex = 206
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(498, 87)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 209
Me.Label2.Text = "Bemerkung"
'
'lblSprache
'
Me.lblSprache.AutoSize = True
Me.lblSprache.BackColor = System.Drawing.Color.Transparent
Me.lblSprache.Location = New System.Drawing.Point(250, 118)
Me.lblSprache.Name = "lblSprache"
Me.lblSprache.Size = New System.Drawing.Size(47, 13)
Me.lblSprache.TabIndex = 208
Me.lblSprache.Text = "Sprache"
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.BackColor = System.Drawing.Color.Transparent
Me.lblStatus.Location = New System.Drawing.Point(250, 91)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(37, 13)
Me.lblStatus.TabIndex = 207
Me.lblStatus.Text = "Status"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.Transparent
Me.Label13.Location = New System.Drawing.Point(250, 199)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(53, 13)
Me.Label13.TabIndex = 213
Me.Label13.Text = "Adresstyp"
'
'chklbAdresstyp
'
Me.chklbAdresstyp.FormattingEnabled = True
Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"})
Me.chklbAdresstyp.Location = New System.Drawing.Point(317, 195)
Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(165, 109)
Me.chklbAdresstyp.TabIndex = 212
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.c1daten)
Me.GroupBox1.Controls.Add(Me.ToolStrip2)
Me.GroupBox1.Location = New System.Drawing.Point(12, 348)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(916, 154)
Me.GroupBox1.TabIndex = 214
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Ansprechpartner"
'
'c1daten
'
Me.c1daten.AlternatingRows = True
Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1daten.FetchRowStyles = True
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(3, 41)
Me.c1daten.Name = "c1daten"
Me.c1daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1daten.Size = New System.Drawing.Size(910, 110)
Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.c1daten.TabIndex = 1
Me.c1daten.Text = "C1TrueDBGrid1"
Me.c1daten.PropBag = resources.GetString("c1daten.PropBag")
'
'ToolStrip2
'
Me.ToolStrip2.AllowDrop = True
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripButton13})
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(910, 25)
Me.ToolStrip2.TabIndex = 22
Me.ToolStrip2.Text = "ToolStrip2"
'
'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 = "Schliessen"
Me.ToolStripButton1.Visible = False
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "Speichern"
Me.ToolStripButton5.Visible = False
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "Neuer Datensatz"
'
'ToolStripButton7
'
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 = "Dokumentinformationen bearbeiten"
'
'ToolStripButton8
'
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image)
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton8.Text = "Dokument löschen"
'
'ToolStripButton9
'
Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image)
Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton9.Name = "ToolStripButton9"
Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton9.Text = "Dokument anzeigen"
Me.ToolStripButton9.Visible = False
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel2.Text = "Suche"
Me.ToolStripLabel2.Visible = False
'
'ToolStripTextBox1
'
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 25)
Me.ToolStripTextBox1.Visible = False
'
'ToolStripButton10
'
Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image)
Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton10.Name = "ToolStripButton10"
Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton10.Text = "Erster Datensatz"
Me.ToolStripButton10.Visible = False
'
'ToolStripButton11
'
Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image)
Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton11.Name = "ToolStripButton11"
Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton11.Text = "Vorheriger Datensatz"
Me.ToolStripButton11.Visible = False
'
'ToolStripButton12
'
Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image)
Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton12.Name = "ToolStripButton12"
Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton12.Text = "nächster Datensatz"
Me.ToolStripButton12.Visible = False
'
'ToolStripButton13
'
Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image)
Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton13.Name = "ToolStripButton13"
Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton13.Text = "Letzter Datensatz"
Me.ToolStripButton13.Visible = False
'
'dtgueltigab
'
Me.dtgueltigab.Location = New System.Drawing.Point(320, 140)
Me.dtgueltigab.Name = "dtgueltigab"
Me.dtgueltigab.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigab.TabIndex = 215
'
'dtgueltigbis
'
Me.dtgueltigbis.Location = New System.Drawing.Point(320, 169)
Me.dtgueltigbis.Name = "dtgueltigbis"
Me.dtgueltigbis.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigbis.TabIndex = 216
'
'btndeldatetimeab
'
Me.btndeldatetimeab.Location = New System.Drawing.Point(467, 140)
Me.btndeldatetimeab.Name = "btndeldatetimeab"
Me.btndeldatetimeab.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimeab.TabIndex = 217
Me.btndeldatetimeab.UseVisualStyleBackColor = True
'
'btndeldatetimebis
'
Me.btndeldatetimebis.Location = New System.Drawing.Point(467, 169)
Me.btndeldatetimebis.Name = "btndeldatetimebis"
Me.btndeldatetimebis.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimebis.TabIndex = 218
Me.btndeldatetimebis.UseVisualStyleBackColor = True
'
'frmFirma
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(940, 514)
Me.Controls.Add(Me.btndeldatetimebis)
Me.Controls.Add(Me.btndeldatetimeab)
Me.Controls.Add(Me.dtgueltigbis)
Me.Controls.Add(Me.dtgueltigab)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.chklbAdresstyp)
Me.Controls.Add(Me.cbboxSprache)
Me.Controls.Add(Me.cbboxStatus)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.txtBemerkung)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblSprache)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.lblInterner)
Me.Controls.Add(Me.txtweb)
Me.Controls.Add(Me.lblEmail)
Me.Controls.Add(Me.txtE_Mail)
Me.Controls.Add(Me.lblMobile)
Me.Controls.Add(Me.txtnatel)
Me.Controls.Add(Me.lblTelefax)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.lblTelefon)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.lblPlz)
Me.Controls.Add(Me.txtPlz)
Me.Controls.Add(Me.lblPostfach)
Me.Controls.Add(Me.txtPostfach)
Me.Controls.Add(Me.lblStrasse)
Me.Controls.Add(Me.txtStrasse)
Me.Controls.Add(Me.lblName2)
Me.Controls.Add(Me.txtName2)
Me.Controls.Add(Me.lblNr)
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.txtnrfirma)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmFirma"
Me.Text = "Firmen"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents tsbtnnew As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents tstxtsuche As ToolStripTextBox
Friend WithEvents tsbtnfirst As ToolStripButton
Friend WithEvents tsbtprev As ToolStripButton
Friend WithEvents tsbtnnext As ToolStripButton
Friend WithEvents tsbtnlast As ToolStripButton
Friend WithEvents txtName1 As TextBox
Friend WithEvents txtnrfirma As TextBox
Friend WithEvents lblNr As Label
Friend WithEvents lblAnrede As Label
Friend WithEvents lblName2 As Label
Friend WithEvents txtName2 As TextBox
Friend WithEvents lblStrasse As Label
Friend WithEvents txtStrasse As TextBox
Friend WithEvents lblPostfach As Label
Friend WithEvents txtPostfach As TextBox
Friend WithEvents lblPlz As Label
Friend WithEvents txtPlz As TextBox
Friend WithEvents txtOrt As TextBox
Friend WithEvents lblTelefon As Label
Friend WithEvents txtTel As TextBox
Friend WithEvents lblTelefax As Label
Friend WithEvents txtFax As TextBox
Friend WithEvents lblMobile As Label
Friend WithEvents txtnatel As TextBox
Friend WithEvents lblEmail As Label
Friend WithEvents txtE_Mail As TextBox
Friend WithEvents lblInterner As Label
Friend WithEvents txtweb As TextBox
Friend WithEvents cbboxSprache As MyCombobox
Friend WithEvents cbboxStatus As MyCombobox
Friend WithEvents Label15 As Label
Friend WithEvents Label14 As Label
Friend WithEvents txtBemerkung As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents lblSprache As Label
Friend WithEvents lblStatus As Label
Friend WithEvents Label13 As Label
Friend WithEvents chklbAdresstyp As CheckedListBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents dtgueltigab As DateTimePicker
Friend WithEvents dtgueltigbis As DateTimePicker
Friend WithEvents btndeldatetimeab As Button
Friend WithEvents btndeldatetimebis As Button
Friend WithEvents c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents ToolStripButton9 As ToolStripButton
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripTextBox1 As ToolStripTextBox
Friend WithEvents ToolStripButton10 As ToolStripButton
Friend WithEvents ToolStripButton11 As ToolStripButton
Friend WithEvents ToolStripButton12 As ToolStripButton
Friend WithEvents ToolStripButton13 As ToolStripButton
End Class

602
DPM2016/Firmen/frmFirma.resx Normal file
View File

@@ -0,0 +1,602 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmMr/8UmAMHUhqn8Ap4shoRyO1GmPB9RElHkFA+
jYyaJQibPoa44zYkHXeQ3/EZEbhoKrDtrTiwK6bArblOwSqfwrY3I1cVeJxNDhGuFk4xdxnnC+ESUYXj
7CYEZWhxNleH6MIxJCpmwav7C0Stn6Gk9x8ofe9fkGrvwvxAOBHwfELgYDSSVfMQNn9MkaScx1ZG+LcK
6GPmEL5hg31Y1xshOfBO0RCBHpzNIQKyUSRWzIBXewN5mk9R2HMPxdrPIe65g20HzpkKbCHHklp3HZLO
OxSptdexxfHsdwo8ziuvBUfauIT9x5fXhlBSggjJMFXKNOUiVf/clk8oEUHbJ9jqGGYqsJlYpdQtUbXS
k0IENu0PeWoBfdbt8ttp9nrwrAtbgXDpIGKKxqg+SKteQIZ6iWrG9Iab2EzuayKwcf8ZcNQLVMPo4ZBy
mO07+UwC+tBop19e9+rbsp1+Kd+EFg1QvRBfOoGEsmlwiAyL3HfjvlOmAltpwV9Fq2aQrlqkiCLz39K8
nusvmT6/3uHpvu6PfveO8ltwsXAUkeSt0HOxbBxme4OxxnbvSoFjZ5IHA6XtiK2ZR6x6Hu6ZNbC09/nQ
sPxcWbvzqNkvbN20u8mX85RsAKGCfpyRDeEVhwBTASY33/pYSMLgFrvAhxvt7B7a7vcd2OUYbGFY/j55
aa2lU+yvdh/7woVHvhOKMdIDQaYl+H/n5/R9u1+mOc4zOBLYB8Y92LPn/E8MSy8u+oc6xwgP72WJf2+4
9ENI1qz5H5t6trPpJ4eoAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
<data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="c1daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 908, 108&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 908, 108&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmMr/8UmAMHUhqn8Ap4shoRyO1GmPB9RElHkFA+
jYyaJQibPoa44zYkHXeQ3/EZEbhoKrDtrTiwK6bArblOwSqfwrY3I1cVeJxNDhGuFk4xdxnnC+ESUYXj
7CYEZWhxNleH6MIxJCpmwav7C0Stn6Gk9x8ofe9fkGrvwvxAOBHwfELgYDSSVfMQNn9MkaScx1ZG+LcK
6GPmEL5hg31Y1xshOfBO0RCBHpzNIQKyUSRWzIBXewN5mk9R2HMPxdrPIe65g20HzpkKbCHHklp3HZLO
OxSptdexxfHsdwo8ziuvBUfauIT9x5fXhlBSggjJMFXKNOUiVf/clk8oEUHbJ9jqGGYqsJlYpdQtUbXS
k0IENu0PeWoBfdbt8ttp9nrwrAtbgXDpIGKKxqg+SKteQIZ6iWrG9Iab2EzuayKwcf8ZcNQLVMPo4ZBy
mO07+UwC+tBop19e9+rbsp1+Kd+EFg1QvRBfOoGEsmlwiAyL3HfjvlOmAltpwV9Fq2aQrlqkiCLz39K8
nusvmT6/3uHpvu6PfveO8ltwsXAUkeSt0HOxbBxme4OxxnbvSoFjZ5IHA6XtiK2ZR6x6Hu6ZNbC09/nQ
sPxcWbvzqNkvbN20u8mX85RsAKGCfpyRDeEVhwBTASY33/pYSMLgFrvAhxvt7B7a7vcd2OUYbGFY/j55
aa2lU+yvdh/7woVHvhOKMdIDQaYl+H/n5/R9u1+mOc4zOBLYB8Y92LPn/E8MSy8u+oc6xwgP72WJf2+4
9ENI1qz5H5t6trPpJ4eoAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
</root>

499
DPM2016/Firmen/frmFirma.vb Normal file
View File

@@ -0,0 +1,499 @@
Imports DPM2016.MyCombobox
Public Class frmFirma
Dim m_haschanges As Boolean
Property HasChanges As Boolean
Get
Return m_haschanges
End Get
Set(value As Boolean)
m_haschanges = value
End Set
End Property
Dim m_firmanr As Integer = 0
Property Firmanr As Integer
Get
Return m_firmanr
End Get
Set(value As Integer)
m_firmanr = value
Get_Data()
AddChanges(Me)
Me.HasChanges = False
End Set
End Property
#Region "Deklarationen"
Dim DB As New clsDB
Dim FormReadonly As Boolean = False
Dim log As New clsLog
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Dim spalten As New Tabellenspalte
Dim Firmaap As New DataTable
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.HasChanges Then
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
Select Case msgres
Case MsgBoxResult.Yes
Save_Data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.HasChanges = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.HasChanges = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.HasChanges = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Daten_Laden"
Public Sub Fill_Stammdaten()
log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
Me.cbboxSprache.Table = "Sprache"
Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
Me.cbboxSprache.Valuemember = "Sprachcode"
Me.cbboxStatus.Table = "Status"
Me.cbboxStatus.Displaymember = "Status"
Me.cbboxStatus.Valuemember = "nrstatus"
log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
End Sub
Private Sub frmFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim db As New clsDB
If Firmanr = 0 Then
db.Get_Tabledata("Firma", "", "", "", False)
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
End If
Get_Data()
End Sub
Sub Get_Data()
Dim ctlname As String
Dim colname As String
Try
db.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
colname = c.ColumnName
For Each Ctl As Control In Me.Controls
'Dim objtype As System.Type = Ctl.GetType
'If objtype.Name = "Label" Then
' Exit For
'End If
ctlname = Ctl.Name
log.Writelog("Firmadetails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Ctl.Text = r(c.ColumnName).ToString
Exit For
End If
If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
o.SelectedValue = r(c.ColumnName)
Catch
o.SelectedValue = -1
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim dt As DateTimePicker
dt = Ctl
Try
dt.Value = r(c.ColumnName)
dt.Format = DateTimePickerFormat.Short
Catch
dt.CustomFormat = " " 'An empty SPACE
dt.Format = DateTimePickerFormat.Custom
End Try
Exit For
End If
Next
Select Case UCase(c.ColumnName)
Case "AG"
Set_Adresstype("Arbeitgeber", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
Case "VS"
Set_Adresstype("Versicherung", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
Case "KK"
Set_Adresstype("Krankenkasse", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
Case "IV"
Set_Adresstype("IV", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
Case "FS"
Set_Adresstype("Fürsorge", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
Case "Garant"
Set_Adresstype("Garant", r(c.ColumnName).ToString)
log.Writelog("--Firmendetails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
End Select
Next
Refresh_AP()
Catch ex As Exception
log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
End Try
End Sub
Sub Refresh_AP()
DB.Get_Tabledata("Firmaap", "where aktiv=1 and nrfirma=" + Firmanr.ToString)
Me.Firmaap.Rows.Clear()
Me.Firmaap = DB.dsDaten.Tables(0).Copy
Me.c1daten.DataSource = Firmaap
spalten.Spaltentitel_aktualisieren(Me.c1daten, DB.dsDaten.Tables(0).TableName, DB.dsDaten.Tables(0))
End Sub
Private Sub Set_Adresstype(ByVal feldname, value)
Dim i As Integer
For i = 0 To Me.chklbAdresstyp.Items.Count - 1
If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
Try
If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
Catch ex As Exception
chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
End Try
End If
Next
End Sub
#End Region
#Region "Daten speichern"
Private Sub dtgueltigab_ValueChanged(sender As Object, e As EventArgs) Handles dtgueltigab.ValueChanged, dtgueltigbis.ValueChanged
Dim dt As DateTimePicker
dt = sender
dt.CustomFormat = ""
dt.Format = DateTimePickerFormat.Short
End Sub
Private Sub btndeldatetimeab_Click(sender As Object, e As EventArgs) Handles btndeldatetimeab.Click
dtgueltigab.CustomFormat = " " 'An empty SPACE
dtgueltigab.Format = DateTimePickerFormat.Custom
End Sub
Private Sub btndeldatetimebis_Click(sender As Object, e As EventArgs) Handles btndeldatetimebis.Click
dtgueltigbis.CustomFormat = " " 'An empty SPACE
dtgueltigbis.Format = DateTimePickerFormat.Custom
End Sub
#End Region
#Region "Daten speichern"
Public Sub Save_Data()
DB.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString)
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
For Each Ctl As Control In Me.Controls
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
r(c.ColumnName) = Ctl.Text
Exit For
End If
End If
If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
r(c.ColumnName) = o.selectedvalue
Catch ex As Exception
r(c.ColumnName) = 0
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = Ctl
If dt.CustomFormat = " " Then
r(c.ColumnName) = System.DBNull.Value
Else
r(c.ColumnName) = dt.Value
End If
Exit For
End If
Next
Select Case UCase(c.ColumnName)
Case "AG"
r(c.ColumnName) = Get_Adresstype("Arbeitgeber", r(c.ColumnName))
Case "VS"
r(c.ColumnName) = Get_Adresstype("Versicherung", r(c.ColumnName))
Case "KK"
r(c.ColumnName) = Get_Adresstype("Krankenkasse", r(c.ColumnName))
Case "IV"
r(c.ColumnName) = Get_Adresstype("IV", r(c.ColumnName))
Case "FS"
r(c.ColumnName) = Get_Adresstype("Fürsorge", r(c.ColumnName))
Case "GARANT"
r(c.ColumnName) = Get_Adresstype("GARANT", r(c.ColumnName))
End Select
Next
r("Mutiert_am") = Now
r("mutierer") = Globals.ActUser
DB.Update_Data()
Me.HasChanges = False
End Sub
Private Function Get_Adresstype(ByVal feldname, value) As Integer
Try
Dim i As Integer
For i = 0 To Me.chklbAdresstyp.Items.Count - 1
If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
Return chklbAdresstyp.GetItemChecked(i)
End If
Next
Catch
Return -1
End Try
End Function
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
Save_Data()
End Sub
#End Region
#Region "Scroll"
Private Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB
db.Get_Tabledata("Firma", "", db.Get_SQL(24))
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB
db.Get_Tabledata("Firma", "", db.Get_SQL(25))
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB
Try
db.Get_Tabledata("Firma", "", db.Get_SQL(26), Me.Firmanr.ToString)
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Me.Firmanr = Me.Firmanr
End Try
db.Dispose()
End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB
Try
db.Get_Tabledata("firma", "", db.Get_SQL(27), Me.Firmanr.ToString)
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Me.Firmanr = Me.Firmanr
End Try
db.Dispose()
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
Try
Dim f As New frmFirmaAP
f.nrfirmaap = Me.c1daten.Columns("nrfirmaap").Value
f.firmanr = Me.c1daten.Columns("nrfirma").Value
f.ShowDialog()
Refresh_AP()
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
If MsgBox("Ansprechpartner wirklich löschen?", vbYesNo + vbQuestion) = vbYes Then
Dim f As New frmFirmaAP
f.nrfirmaap = Me.c1daten.Columns("nrfirmaap").Value
f.firmanr = Me.c1daten.Columns("nrfirma").Value
f.Visible = False
f.Show()
f.Delete_ap()
f.Close()
Refresh_AP()
End If
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
Dim f As New frmFirmaAP
f.nrfirmaap = 0
f.firmanr = Me.Firmanr
f.ShowDialog()
Refresh_AP()
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
End Sub
#End Region
End Class

313
DPM2016/Firmen/frmFirmaAP.Designer.vb generated Normal file
View File

@@ -0,0 +1,313 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFirmaAP
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmaAP))
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton()
Me.lblAnrede = New System.Windows.Forms.Label()
Me.cbboxAnrede = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtName = New System.Windows.Forms.TextBox()
Me.txtBriefanrede = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtTelefon = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtTelefax = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtBemerkung = New System.Windows.Forms.TextBox()
Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip2
'
Me.ToolStrip2.AllowDrop = True
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton5, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripButton13})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(266, 25)
Me.ToolStrip2.TabIndex = 23
Me.ToolStrip2.Text = "ToolStrip2"
'
'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 = "Schliessen"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "Speichern"
'
'ToolStripButton7
'
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 = "Dokumentinformationen bearbeiten"
Me.ToolStripButton7.Visible = False
'
'ToolStripButton8
'
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image)
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton8.Text = "Dokument löschen"
Me.ToolStripButton8.Visible = False
'
'ToolStripButton9
'
Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image)
Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton9.Name = "ToolStripButton9"
Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton9.Text = "Dokument anzeigen"
Me.ToolStripButton9.Visible = False
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel2.Text = "Suche"
Me.ToolStripLabel2.Visible = False
'
'ToolStripTextBox1
'
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 23)
Me.ToolStripTextBox1.Visible = False
'
'ToolStripButton10
'
Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image)
Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton10.Name = "ToolStripButton10"
Me.ToolStripButton10.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton10.Text = "Erster Datensatz"
Me.ToolStripButton10.Visible = False
'
'ToolStripButton11
'
Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image)
Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton11.Name = "ToolStripButton11"
Me.ToolStripButton11.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton11.Text = "Vorheriger Datensatz"
Me.ToolStripButton11.Visible = False
'
'ToolStripButton12
'
Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image)
Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton12.Name = "ToolStripButton12"
Me.ToolStripButton12.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton12.Text = "nächster Datensatz"
Me.ToolStripButton12.Visible = False
'
'ToolStripButton13
'
Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image)
Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton13.Name = "ToolStripButton13"
Me.ToolStripButton13.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton13.Text = "Letzter Datensatz"
Me.ToolStripButton13.Visible = False
'
'lblAnrede
'
Me.lblAnrede.AutoSize = True
Me.lblAnrede.Location = New System.Drawing.Point(9, 45)
Me.lblAnrede.Name = "lblAnrede"
Me.lblAnrede.Size = New System.Drawing.Size(41, 13)
Me.lblAnrede.TabIndex = 24
Me.lblAnrede.Text = "Anrede"
'
'cbboxAnrede
'
Me.cbboxAnrede.FormattingEnabled = True
Me.cbboxAnrede.Location = New System.Drawing.Point(77, 42)
Me.cbboxAnrede.Name = "cbboxAnrede"
Me.cbboxAnrede.Size = New System.Drawing.Size(173, 21)
Me.cbboxAnrede.TabIndex = 25
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 75)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 13)
Me.Label1.TabIndex = 26
Me.Label1.Text = "Name"
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(77, 72)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(173, 20)
Me.txtName.TabIndex = 27
'
'txtBriefanrede
'
Me.txtBriefanrede.Location = New System.Drawing.Point(77, 98)
Me.txtBriefanrede.Name = "txtBriefanrede"
Me.txtBriefanrede.Size = New System.Drawing.Size(173, 20)
Me.txtBriefanrede.TabIndex = 28
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 101)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 29
Me.Label2.Text = "Briefanrede"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(10, 127)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(43, 13)
Me.Label3.TabIndex = 31
Me.Label3.Text = "Telefon"
'
'txtTelefon
'
Me.txtTelefon.Location = New System.Drawing.Point(77, 124)
Me.txtTelefon.Name = "txtTelefon"
Me.txtTelefon.Size = New System.Drawing.Size(173, 20)
Me.txtTelefon.TabIndex = 30
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(10, 153)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(42, 13)
Me.Label4.TabIndex = 33
Me.Label4.Text = "Telefax"
'
'txtTelefax
'
Me.txtTelefax.Location = New System.Drawing.Point(77, 150)
Me.txtTelefax.Name = "txtTelefax"
Me.txtTelefax.Size = New System.Drawing.Size(173, 20)
Me.txtTelefax.TabIndex = 32
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(10, 179)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(61, 13)
Me.Label5.TabIndex = 34
Me.Label5.Text = "Bemerkung"
'
'txtBemerkung
'
Me.txtBemerkung.Location = New System.Drawing.Point(12, 195)
Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(238, 126)
Me.txtBemerkung.TabIndex = 35
'
'frmFirmaAP
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(266, 339)
Me.Controls.Add(Me.txtBemerkung)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtTelefax)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtTelefon)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtBriefanrede)
Me.Controls.Add(Me.txtName)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbboxAnrede)
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.ToolStrip2)
Me.Name = "frmFirmaAP"
Me.Text = "Ansprechpartner"
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents ToolStripButton9 As ToolStripButton
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripTextBox1 As ToolStripTextBox
Friend WithEvents ToolStripButton10 As ToolStripButton
Friend WithEvents ToolStripButton11 As ToolStripButton
Friend WithEvents ToolStripButton12 As ToolStripButton
Friend WithEvents ToolStripButton13 As ToolStripButton
Friend WithEvents lblAnrede As Label
Friend WithEvents cbboxAnrede As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents txtName As TextBox
Friend WithEvents txtBriefanrede As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtTelefon As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents txtTelefax As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents txtBemerkung As TextBox
End Class

324
DPM2016/Firmen/frmFirmaAP.resx Normal file
View File

@@ -0,0 +1,324 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmMr/8UmAMHUhqn8Ap4shoRyO1GmPB9RElHkFA+
jYyaJQibPoa44zYkHXeQ3/EZEbhoKrDtrTiwK6bArblOwSqfwrY3I1cVeJxNDhGuFk4xdxnnC+ESUYXj
7CYEZWhxNleH6MIxJCpmwav7C0Stn6Gk9x8ofe9fkGrvwvxAOBHwfELgYDSSVfMQNn9MkaScx1ZG+LcK
6GPmEL5hg31Y1xshOfBO0RCBHpzNIQKyUSRWzIBXewN5mk9R2HMPxdrPIe65g20HzpkKbCHHklp3HZLO
OxSptdexxfHsdwo8ziuvBUfauIT9x5fXhlBSggjJMFXKNOUiVf/clk8oEUHbJ9jqGGYqsJlYpdQtUbXS
k0IENu0PeWoBfdbt8ttp9nrwrAtbgXDpIGKKxqg+SKteQIZ6iWrG9Iab2EzuayKwcf8ZcNQLVMPo4ZBy
mO07+UwC+tBop19e9+rbsp1+Kd+EFg1QvRBfOoGEsmlwiAyL3HfjvlOmAltpwV9Fq2aQrlqkiCLz39K8
nusvmT6/3uHpvu6PfveO8ltwsXAUkeSt0HOxbBxme4OxxnbvSoFjZ5IHA6XtiK2ZR6x6Hu6ZNbC09/nQ
sPxcWbvzqNkvbN20u8mX85RsAKGCfpyRDeEVhwBTASY33/pYSMLgFrvAhxvt7B7a7vcd2OUYbGFY/j55
aa2lU+yvdh/7woVHvhOKMdIDQaYl+H/n5/R9u1+mOc4zOBLYB8Y92LPn/E8MSy8u+oc6xwgP72WJf2+4
9ENI1qz5H5t6trPpJ4eoAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
</root>

100
DPM2016/Firmen/frmFirmaAP.vb Normal file
View File

@@ -0,0 +1,100 @@
Public Class frmFirmaAP
Dim m_firmanr As Integer
Property firmanr As Integer
Get
Return m_firmanr
End Get
Set(value As Integer)
m_firmanr = value
End Set
End Property
Dim m_nrfirmaap As Integer
Property nrfirmaap As Integer
Get
Return m_nrfirmaap
End Get
Set(value As Integer)
m_nrfirmaap = value
End Set
End Property
Dim db As New clsDB
Dim anreden As New DataTable
Dim daten As New DataTable
Private Sub frmFirmaAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
db.Get_Tabledata("Anrede", "", "")
anreden = db.dsDaten.Tables(0).Copy
Me.cbboxAnrede.DataSource = anreden
Me.cbboxAnrede.DisplayMember = "Anrede_D"
Me.cbboxAnrede.ValueMember = "nranrede"
If Me.nrfirmaap <> 0 Then
db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
daten = db.dsDaten.Tables(0).Copy
Me.txtName.Text = daten.Rows(0).Item(3)
Me.txtBriefanrede.Text = daten.Rows(0).Item(4)
Me.txtTelefon.Text = daten.Rows(0).Item(5)
Me.txtTelefax.Text = daten.Rows(0).Item(6)
Me.txtBemerkung.Text = daten.Rows(0).Item(7)
End If
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
If Me.nrfirmaap <> 0 Then
Save_Data()
Me.Close()
Else
db.Insert_New_Entry("firmaap", "nrfirmaap", True, "Select top 1 * from firmaap order by nrfirmaap desc")
Me.nrfirmaap = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
daten = db.dsDaten.Tables(0).Copy
Update_Table("nrfirma", Me.firmanr)
Save_Data()
Me.Close()
End If
End Sub
Sub Save_Data()
Update_Table("Name", Me.txtName.Text)
Update_Table("Briefanrede", Me.txtBriefanrede.Text)
Update_Table("Telefon", Me.txtTelefon.Text)
Update_Table("Telefax", Me.txtTelefax.Text)
Update_Table("Bemerkung", Me.txtBemerkung.Text)
Update_Table("Nranrede", Me.cbboxAnrede.SelectedValue)
Update_Table("Mutiert_am", Now)
Update_Table("Mutierer", Globals.ActUser)
db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
End Sub
Sub Update_Table(ByVal Tag As String, ByVal Val As Object)
Try
Try
If Val = " . ." Then
Val = "1900-01-01"
End If
' Val = Val.ToString.Replace(".", "")
'Val = Trim(Val)
daten.Rows(0).Item(Tag) = Val
Catch
End Try
daten.Rows(0).Item(Tag) = Val
Catch
End Try
End Sub
Sub Delete_ap()
Update_Table("aktiv", False)
Update_Table("Mutiert_am", Now)
Update_Table("Mutierer", Globals.ActUser)
db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.Close()
End Sub
End Class

86
DPM2016/KG/Krankengeschichte.Designer.vb generated Normal file
View File

@@ -0,0 +1,86 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Krankengeschichte
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Krankengeschichte))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.pnlKG = New System.Windows.Forms.Panel()
Me.C1KG = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.pnlKG.SuspendLayout()
CType(Me.C1KG, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(960, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'pnlKG
'
Me.pnlKG.Controls.Add(Me.C1KG)
Me.pnlKG.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlKG.Location = New System.Drawing.Point(0, 25)
Me.pnlKG.Name = "pnlKG"
Me.pnlKG.Size = New System.Drawing.Size(960, 574)
Me.pnlKG.TabIndex = 1
'
'C1KG
'
Me.C1KG.AlternatingRows = True
Me.C1KG.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1KG.FilterBar = True
Me.C1KG.GroupByCaption = "Drag a column header here to group by that column"
Me.C1KG.Images.Add(CType(resources.GetObject("C1KG.Images"), System.Drawing.Image))
Me.C1KG.Location = New System.Drawing.Point(0, 0)
Me.C1KG.Name = "C1KG"
Me.C1KG.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1KG.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1KG.PreviewInfo.ZoomFactor = 75.0R
Me.C1KG.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1KG.Size = New System.Drawing.Size(960, 574)
Me.C1KG.TabIndex = 3
Me.C1KG.Text = "C1TrueDBGrid1"
Me.C1KG.PropBag = resources.GetString("C1KG.PropBag")
'
'Krankengeschichte
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.pnlKG)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "Krankengeschichte"
Me.Size = New System.Drawing.Size(960, 599)
Me.pnlKG.ResumeLayout(False)
CType(Me.C1KG, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents pnlKG As System.Windows.Forms.Panel
Friend WithEvents C1KG As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

163
DPM2016/KG/Krankengeschichte.resx Normal file
View File

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

25
DPM2016/KG/Krankengeschichte.vb Normal file
View File

@@ -0,0 +1,25 @@
Public Class Krankengeschichte
Dim db As New clsDB
Dim m_patientnr As Integer
Dim spalten As New Tabellenspalte
Property Patientnr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
m_patientnr = value
Refresh_KG()
End Set
End Property
Sub Refresh_KG()
db.Get_Tabledata("KG", "where nrprivat=" + Me.Patientnr.ToString + " order by datum desc")
Me.C1KG.DataSource = Nothing
Me.C1KG.DataSource = db.dsDaten.Tables(0)
Me.C1KG.DataMember = db.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1KG, db.dsDaten.Tables(0).TableName, db.dsDaten.Tables(0))
End Sub
End Class

49
DPM2016/Klassen/Archiv/MyCombobox.Designer.vb generated Normal file
View File

@@ -0,0 +1,49 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MyCombobox
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
ComboBox1 = New System.Windows.Forms.ComboBox()
Me.SuspendLayout()
'
'ComboBox1
'
ComboBox1.Dock = System.Windows.Forms.DockStyle.Fill
ComboBox1.FormattingEnabled = True
ComboBox1.Location = New System.Drawing.Point(0, 0)
ComboBox1.Name = "ComboBox1"
ComboBox1.Size = New System.Drawing.Size(205, 21)
ComboBox1.TabIndex = 0
'
'MyCombobox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(ComboBox1)
Me.Name = "MyCombobox"
Me.Size = New System.Drawing.Size(205, 22)
Me.ResumeLayout(False)
End Sub
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
End Class

120
DPM2016/Klassen/Archiv/MyCombobox.resx Normal file
View File

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

118
DPM2016/Klassen/Archiv/MyCombobox.vb Normal file
View File

@@ -0,0 +1,118 @@
Public Class MyCombobox
Dim db As New clsDB
Dim m_sql As String
Property Dataselection As String
Get
Return m_sql
End Get
Set(value As String)
m_sql = value
End Set
End Property
Dim M_TableAlias As String = ""
Property TableAlias As String
Get
Return M_TableAlias
End Get
Set(value As String)
M_TableAlias = value
End Set
End Property
Dim m_table As String
Property Table As String
Get
Return m_table
End Get
Set(value As String)
m_table = value
db.dsDaten.Tables.Clear()
Try
Dim TableFound As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If Me.TableAlias <> "" Then
If t.TableName = Me.TableAlias Then TableFound = True
Else
If t.TableName = value Then TableFound = True
End If
Next
If Not TableFound Then
If Me.Dataselection <> "" Then
db.Get_Tabledata(value, " ", Me.Dataselection)
Else
db.Get_Tabledata(value, " where aktiv=1")
End If
If Me.TableAlias <> "" Then
db.dsDaten.Tables(0).TableName = Me.TableAlias
Else
db.dsDaten.Tables(0).TableName = value
End If
IntTables.Inttables.Tables.Add(db.dsDaten.Tables(0).Copy)
End If
If Me.TableAlias <> "" Then
Me.combobox1.DataSource = IntTables.Inttables.Tables(Me.TableAlias)
Else
Me.combobox1.DataSource = IntTables.Inttables.Tables(value)
End If
Catch ex As Exception
End Try
End Set
End Property
Dim m_displaymember As String
Property Displaymember As String
Get
Return m_displaymember
End Get
Set(value As String)
m_displaymember = value
Me.combobox1.DisplayMember = m_displaymember
End Set
End Property
Dim m_valuememeber As String
Property Valuemember As String
Get
Return m_valuememeber
End Get
Set(value As String)
m_valuememeber = value
Me.combobox1.ValueMember = m_valuememeber
End Set
End Property
Dim m_selectedvalue As String
Property SelectedValue
Get
m_selectedvalue = Me.combobox1.SelectedValue
Return m_selectedvalue
End Get
Set(value)
m_selectedvalue = value
Me.combobox1.SelectedValue = value
End Set
End Property
Dim m_text As String
Property Text As String
Get
m_text = Me.combobox1.Text
Return m_text
End Get
Set(value As String)
m_text = value
Me.combobox1.Text = value
End Set
End Property
End Class

122
DPM2016/Klassen/MyCombobox.vb Normal file
View File

@@ -0,0 +1,122 @@
Public Class MyCombobox
Inherits ComboBox
Dim db As New clsDB
Dim m_sql As String
Property Dataselection As String
Get
Return m_sql
End Get
Set(value As String)
m_sql = value
End Set
End Property
Dim M_TableAlias As String = ""
Property TableAlias As String
Get
Return M_TableAlias
End Get
Set(value As String)
M_TableAlias = value
End Set
End Property
Dim m_table As String
Property Table As String
Get
Return m_table
End Get
Set(value As String)
m_table = value
db.dsDaten.Tables.Clear()
Try
Dim TableFound As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If Me.TableAlias <> "" Then
If t.TableName = Me.TableAlias Then TableFound = True
Else
If t.TableName = value Then TableFound = True
End If
Next
If Not TableFound Then
If Me.Dataselection <> "" Then
db.Get_Tabledata(value, " ", Me.Dataselection)
Else
db.Get_Tabledata(value, " where aktiv=1")
End If
If Me.TableAlias <> "" Then
db.dsDaten.Tables(0).TableName = Me.TableAlias
Else
db.dsDaten.Tables(0).TableName = value
End If
IntTables.Inttables.Tables.Add(db.dsDaten.Tables(0).Copy)
End If
If Me.TableAlias <> "" Then
MyBase.DataSource = IntTables.Inttables.Tables(Me.TableAlias)
Else
MyBase.DataSource = IntTables.Inttables.Tables(value)
End If
Catch ex As Exception
End Try
End Set
End Property
Dim m_displaymember As String
Property Displaymember As String
Get
Return m_displaymember
End Get
Set(value As String)
m_displaymember = value
MyBase.DisplayMember = m_displaymember
End Set
End Property
Dim m_valuememeber As String
Property Valuemember As String
Get
Return m_valuememeber
End Get
Set(value As String)
m_valuememeber = value
MyBase.ValueMember = m_valuememeber
End Set
End Property
Dim m_selectedvalue As String
Property SelectedValue
Get
m_selectedvalue = MyBase.SelectedValue
Return m_selectedvalue
End Get
Set(value)
Try
m_selectedvalue = value
Catch
m_selectedvalue = -1
End Try
MyBase.SelectedValue = value
End Set
End Property
Dim m_text As String
Property Text As String
Get
m_text = MyBase.Text
Return m_text
End Get
Set(value As String)
m_text = value
MyBase.Text = value
End Set
End Property
End Class

117
DPM2016/Klassen/MyCombobox.vb.bak.bak Normal file
View File

@@ -0,0 +1,117 @@
Public Class MyNewCombobox
Inherits ComboBox
Dim db As New clsDB
Dim m_sql As String
Property Dataselection As String
Get
Return m_sql
End Get
Set(value As String)
m_sql = value
End Set
End Property
Dim M_TableAlias As String = ""
Property TableAlias As String
Get
Return M_TableAlias
End Get
Set(value As String)
M_TableAlias = value
End Set
End Property
Dim m_table As String
Property Table As String
Get
Return m_table
End Get
Set(value As String)
m_table = value
db.dsDaten.Tables.Clear()
Try
Dim TableFound As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If Me.TableAlias <> "" Then
If t.TableName = Me.TableAlias Then TableFound = True
Else
If t.TableName = value Then TableFound = True
End If
Next
If Not TableFound Then
If Me.Dataselection <> "" Then
db.Get_Tabledata(value, " ", Me.Dataselection)
Else
db.Get_Tabledata(value, " where aktiv=1")
End If
If Me.TableAlias <> "" Then
db.dsDaten.Tables(0).TableName = Me.TableAlias
Else
db.dsDaten.Tables(0).TableName = value
End If
IntTables.Inttables.Tables.Add(db.dsDaten.Tables(0).Copy)
End If
If Me.TableAlias <> "" Then
MyBase.DataSource = IntTables.Inttables.Tables(Me.TableAlias)
Else
MyBase.DataSource = IntTables.Inttables.Tables(value)
End If
Catch ex As Exception
End Try
End Set
End Property
Dim m_displaymember As String
Property Displaymember As String
Get
Return m_displaymember
End Get
Set(value As String)
m_displaymember = value
MyBase.DisplayMember = m_displaymember
End Set
End Property
Dim m_valuememeber As String
Property Valuemember As String
Get
Return m_valuememeber
End Get
Set(value As String)
m_valuememeber = value
MyBase.ValueMember = m_valuememeber
End Set
End Property
Dim m_selectedvalue As String
Property SelectedValue
Get
m_selectedvalue = MyBase.SelectedValue
Return m_selectedvalue
End Get
Set(value)
m_selectedvalue = value
MyBase.SelectedValue = value
End Set
End Property
Dim m_text As String
Property Text As String
Get
m_text = MyBase.Text
Return m_text
End Get
Set(value As String)
m_text = value
MyBase.Text = value
End Set
End Property
End Class

19
DPM2016/Klassen/clsNullableDatetimePicker.vb Normal file
View File

@@ -0,0 +1,19 @@
Imports System.ComponentModel
<DesignerCategory("Code")>
Public Class NullableDateTimePicker : Inherits DateTimePicker
<Bindable(True)>
Public Shadows Property Value As Date?
Get
If Not Checked Then Return Nothing
Return MyBase.Value
End Get
Set(ByVal value As Date?)
If value.Equals(Me.Value) Then Return
Checked = value.HasValue
If value.HasValue Then MyBase.Value = value.Value
End Set
End Property
End Class

345
DPM2016/Klassen/clsSpalten.vb Normal file
View File

@@ -0,0 +1,345 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClien
Imports C1.Win.C1TrueDBGrid
Public Class Tabellenspalte
Private m_table As String
Private m_field As String
Private m_spaltenname As String
Private m_locked As Boolean
Private m_Width As Integer
Private m_Order As Integer
Private m_alsHacken As Boolean
Private m_tiptext As String
Private m_numberformat As String
Property ColWith() As Integer
Get
Return m_Width
End Get
Set(ByVal Value As Integer)
m_Width = Value
End Set
End Property
Property Order() As Integer
Get
Return m_Order
End Get
Set(ByVal Value As Integer)
m_Order = Value
End Set
End Property
Property Tabelle() As String
Get
Return m_table
End Get
Set(ByVal Value As String)
m_table = Value
End Set
End Property
Property Feld() As String
Get
Return m_field
End Get
Set(ByVal Value As String)
m_field = Value
End Set
End Property
Property spaltenname() As String
Get
Return m_spaltenname
End Get
Set(ByVal Value As String)
m_spaltenname = Value
End Set
End Property
Property locked() As Boolean
Get
Return m_locked
End Get
Set(ByVal Value As Boolean)
m_locked = Value
End Set
End Property
Property AlsHacken() As Boolean
Get
Return m_alsHacken
End Get
Set(ByVal Value As Boolean)
m_alsHacken = Value
End Set
End Property
Property TipText() As String
Get
Return m_tiptext
End Get
Set(ByVal Value As String)
m_tiptext = Value
End Set
End Property
Property Numberformat() As String
Get
Return m_numberformat
End Get
Set(ByVal value As String)
m_numberformat = value
End Set
End Property
Public Sub New()
End Sub
Public Sub New(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
Spaltentitel_aktualisieren(daten, tablename, ds)
End Sub
Public Function getspalte()
Try
Dim myspalten As New MySpaltenTitel()
myspalten.getspalte(Me.Tabelle, Me.Feld, Me.spaltenname, Me.locked, Me.ColWith, Me.Order, Me.AlsHacken, Me.TipText, Me.Numberformat)
Catch ex As Exception
End Try
End Function
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
Dim anzcols As Integer
Dim i As Integer
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
Me.Feld = s
Me.getspalte()
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = True
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Spalte_True_Setzen As Boolean = True)
Dim anzcols As Integer
Dim i As Integer
Dim t As New DataTable()
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
t = dt
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
'If s = "ApplikationNr" Then
' MsgBox("Hallo")
'End If
Me.Feld = s
Me.getspalte()
If Me.spaltenname = "" Then Exit Function
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = True
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
Public Function Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Filter As String = "")
Dim anzcols As Integer
Dim i As Integer
Dim t As New DataTable()
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
t = dt
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
Me.Feld = s
Me.getspalte()
If Me.spaltenname = "" Then
daten.Splits(0).DisplayColumns(i).Width = 0
Else
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Filter <> "" Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = Aktiv_Filter
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
Public Function ColumnOrder(ByVal Tablename As String, ByRef Data As C1TrueDBGrid)
Dim spaltendata As DataTable = Globals.Spaltendaten
Dim dv() As DataRow
Dim dr As DataRow
Dim dc As New Collection
dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, spaltenr")
For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns
dc.Add(c)
Next
While Data.Splits(0).DisplayColumns.Count > 0
Data.Splits(0).DisplayColumns.RemoveAt(0)
End While
For Each dr In dv
For Each e As C1DisplayColumn In dc
If e.Name = dr.Item(3) Then
Data.Splits(0).DisplayColumns.Insert(0, e)
End If
Next
Next
End Function
End Class
Public Class MySpaltenTitel
Private spaltendata As DataTable = Globals.Spaltendaten
Sub New()
load_data()
End Sub
Sub dispose()
spaltendata.Dispose()
Me.dispose()
End Sub
Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean, _
ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
If spaltendata.Rows.Count = 0 Then load_data()
Dim dv() As DataRow
Dim dr As DataRow
dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Spaltenr")
If dv.Length = 0 Then
spaltenname = ""
locked = True
colwidth = 0
order = 0
alshacken = False
tiptext = ""
numberformat = ""
End If
For Each dr In dv
spaltenname = dr.Item(3)
locked = dr.Item(12)
colwidth = dr.Item(4)
order = dr.Item(5)
alshacken = dr.Item(13)
tiptext = dr.Item(6)
numberformat = dr.Item(7).ToString
Next
End Function
Public Sub load_data()
If Me.spaltendata.Rows.Count > 0 Then Exit Sub
Dim db As New clsDB
spaltendata.Rows.Clear()
db.Get_Spaltendata()
spaltendata = db.dsDaten.Tables(0)
Globals.Spaltendaten = spaltendata
End Sub
End Class

414
DPM2016/Klassen/clsStammdaten_Bez.Designer.vb generated Normal file
View File

@@ -0,0 +1,414 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class clsStammdaten_Bez
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_Bez))
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()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.c1Datenleft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.c1DatenRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.BtnFocusRight = New System.Windows.Forms.Button()
Me.BtnFocusLeft = New System.Windows.Forms.Button()
Me.BtnVerbinden = New System.Windows.Forms.Button()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.C1DropDownRight = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1DropDownLeft = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.c1DatenBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1.SuspendLayout()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.SplitContainer2.Panel1.SuspendLayout()
Me.SplitContainer2.Panel2.SuspendLayout()
Me.SplitContainer2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.c1Datenleft, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.c1DatenRight, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.C1DropDownRight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1DropDownLeft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.c1DatenBottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1054, 25)
Me.ToolStrip1.TabIndex = 14
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "ToolStripButton5"
'
'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 = "Neues Dokument"
Me.ToolStripButton1.Visible = False
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 25)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3)
Me.SplitContainer1.Size = New System.Drawing.Size(1054, 478)
Me.SplitContainer1.SplitterDistance = 266
Me.SplitContainer1.TabIndex = 15
'
'SplitContainer2
'
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer2.Name = "SplitContainer2"
'
'SplitContainer2.Panel1
'
Me.SplitContainer2.Panel1.Controls.Add(Me.GroupBox1)
'
'SplitContainer2.Panel2
'
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox2)
Me.SplitContainer2.Size = New System.Drawing.Size(1054, 233)
Me.SplitContainer2.SplitterDistance = 508
Me.SplitContainer2.TabIndex = 1
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.c1Datenleft)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(508, 233)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "GroupBox1"
'
'c1Datenleft
'
Me.c1Datenleft.AlternatingRows = True
Me.c1Datenleft.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1Datenleft.FilterBar = True
Me.c1Datenleft.GroupByCaption = "Drag a column header here to group by that column"
Me.c1Datenleft.Images.Add(CType(resources.GetObject("c1Datenleft.Images"), System.Drawing.Image))
Me.c1Datenleft.Location = New System.Drawing.Point(3, 16)
Me.c1Datenleft.Name = "c1Datenleft"
Me.c1Datenleft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.c1Datenleft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1Datenleft.PreviewInfo.ZoomFactor = 75.0R
Me.c1Datenleft.PrintInfo.PageSettings = CType(resources.GetObject("c1Datenleft.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1Datenleft.Size = New System.Drawing.Size(502, 214)
Me.c1Datenleft.TabIndex = 1
Me.c1Datenleft.Text = "C1TrueDBGrid1"
Me.c1Datenleft.PropBag = resources.GetString("c1Datenleft.PropBag")
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.c1DatenRight)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(542, 233)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "GroupBox2"
'
'c1DatenRight
'
Me.c1DatenRight.AlternatingRows = True
Me.c1DatenRight.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1DatenRight.FilterBar = True
Me.c1DatenRight.GroupByCaption = "Drag a column header here to group by that column"
Me.c1DatenRight.Images.Add(CType(resources.GetObject("c1DatenRight.Images"), System.Drawing.Image))
Me.c1DatenRight.Location = New System.Drawing.Point(3, 16)
Me.c1DatenRight.Name = "c1DatenRight"
Me.c1DatenRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.c1DatenRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1DatenRight.PreviewInfo.ZoomFactor = 75.0R
Me.c1DatenRight.PrintInfo.PageSettings = CType(resources.GetObject("c1DatenRight.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1DatenRight.Size = New System.Drawing.Size(536, 214)
Me.c1DatenRight.TabIndex = 1
Me.c1DatenRight.Text = "C1TrueDBGrid1"
Me.c1DatenRight.PropBag = resources.GetString("c1DatenRight.PropBag")
'
'Panel1
'
Me.Panel1.Controls.Add(Me.BtnFocusRight)
Me.Panel1.Controls.Add(Me.BtnFocusLeft)
Me.Panel1.Controls.Add(Me.BtnVerbinden)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 233)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1054, 33)
Me.Panel1.TabIndex = 0
'
'BtnFocusRight
'
Me.BtnFocusRight.ImageIndex = 2
Me.BtnFocusRight.Location = New System.Drawing.Point(1021, 5)
Me.BtnFocusRight.Name = "BtnFocusRight"
Me.BtnFocusRight.Size = New System.Drawing.Size(30, 23)
Me.BtnFocusRight.TabIndex = 5
Me.BtnFocusRight.UseVisualStyleBackColor = True
'
'BtnFocusLeft
'
Me.BtnFocusLeft.ImageIndex = 1
Me.BtnFocusLeft.Location = New System.Drawing.Point(3, 6)
Me.BtnFocusLeft.Name = "BtnFocusLeft"
Me.BtnFocusLeft.Size = New System.Drawing.Size(30, 23)
Me.BtnFocusLeft.TabIndex = 4
Me.BtnFocusLeft.UseVisualStyleBackColor = True
'
'BtnVerbinden
'
Me.BtnVerbinden.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnVerbinden.ImageIndex = 0
Me.BtnVerbinden.Location = New System.Drawing.Point(479, 5)
Me.BtnVerbinden.Name = "BtnVerbinden"
Me.BtnVerbinden.Size = New System.Drawing.Size(84, 23)
Me.BtnVerbinden.TabIndex = 3
Me.BtnVerbinden.Text = "Verbinden"
Me.BtnVerbinden.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnVerbinden.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.C1DropDownRight)
Me.GroupBox3.Controls.Add(Me.C1DropDownLeft)
Me.GroupBox3.Controls.Add(Me.c1DatenBottom)
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox3.Location = New System.Drawing.Point(0, 0)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(1054, 208)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "GroupBox3"
'
'C1DropDownRight
'
Me.C1DropDownRight.AllowColMove = True
Me.C1DropDownRight.AllowColSelect = True
Me.C1DropDownRight.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1DropDownRight.AlternatingRows = False
Me.C1DropDownRight.CaptionStyle = Style1
Me.C1DropDownRight.ColumnCaptionHeight = 17
Me.C1DropDownRight.ColumnFooterHeight = 17
Me.C1DropDownRight.EvenRowStyle = Style2
Me.C1DropDownRight.FetchRowStyles = False
Me.C1DropDownRight.FooterStyle = Style3
Me.C1DropDownRight.HeadingStyle = Style4
Me.C1DropDownRight.HighLightRowStyle = Style5
Me.C1DropDownRight.Images.Add(CType(resources.GetObject("C1DropDownRight.Images"), System.Drawing.Image))
Me.C1DropDownRight.Location = New System.Drawing.Point(477, 29)
Me.C1DropDownRight.Name = "C1DropDownRight"
Me.C1DropDownRight.OddRowStyle = Style6
Me.C1DropDownRight.RecordSelectorStyle = Style7
Me.C1DropDownRight.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1DropDownRight.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1DropDownRight.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1DropDownRight.ScrollTips = False
Me.C1DropDownRight.Size = New System.Drawing.Size(100, 150)
Me.C1DropDownRight.Style = Style8
Me.C1DropDownRight.TabIndex = 3
Me.C1DropDownRight.Visible = False
Me.C1DropDownRight.PropBag = resources.GetString("C1DropDownRight.PropBag")
'
'C1DropDownLeft
'
Me.C1DropDownLeft.AllowColMove = True
Me.C1DropDownLeft.AllowColSelect = True
Me.C1DropDownLeft.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1DropDownLeft.AlternatingRows = False
Me.C1DropDownLeft.CaptionStyle = Style9
Me.C1DropDownLeft.ColumnCaptionHeight = 17
Me.C1DropDownLeft.ColumnFooterHeight = 17
Me.C1DropDownLeft.EvenRowStyle = Style10
Me.C1DropDownLeft.FetchRowStyles = False
Me.C1DropDownLeft.FooterStyle = Style11
Me.C1DropDownLeft.HeadingStyle = Style12
Me.C1DropDownLeft.HighLightRowStyle = Style13
Me.C1DropDownLeft.Images.Add(CType(resources.GetObject("C1DropDownLeft.Images"), System.Drawing.Image))
Me.C1DropDownLeft.Location = New System.Drawing.Point(68, 3)
Me.C1DropDownLeft.Name = "C1DropDownLeft"
Me.C1DropDownLeft.OddRowStyle = Style14
Me.C1DropDownLeft.RecordSelectorStyle = Style15
Me.C1DropDownLeft.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1DropDownLeft.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1DropDownLeft.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1DropDownLeft.ScrollTips = False
Me.C1DropDownLeft.Size = New System.Drawing.Size(100, 150)
Me.C1DropDownLeft.Style = Style16
Me.C1DropDownLeft.TabIndex = 2
Me.C1DropDownLeft.Text = "C1DropDownLeft"
Me.C1DropDownLeft.Visible = False
Me.C1DropDownLeft.PropBag = resources.GetString("C1DropDownLeft.PropBag")
'
'c1DatenBottom
'
Me.c1DatenBottom.AlternatingRows = True
Me.c1DatenBottom.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1DatenBottom.FilterBar = True
Me.c1DatenBottom.GroupByCaption = "Drag a column header here to group by that column"
Me.c1DatenBottom.Images.Add(CType(resources.GetObject("c1DatenBottom.Images"), System.Drawing.Image))
Me.c1DatenBottom.Location = New System.Drawing.Point(3, 16)
Me.c1DatenBottom.Name = "c1DatenBottom"
Me.c1DatenBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.c1DatenBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1DatenBottom.PreviewInfo.ZoomFactor = 75.0R
Me.c1DatenBottom.PrintInfo.PageSettings = CType(resources.GetObject("c1DatenBottom.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1DatenBottom.Size = New System.Drawing.Size(1048, 189)
Me.c1DatenBottom.TabIndex = 1
Me.c1DatenBottom.Text = "C1TrueDBGrid1"
Me.c1DatenBottom.PropBag = resources.GetString("c1DatenBottom.PropBag")
'
'clsStammdaten_Bez
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsStammdaten_Bez"
Me.Size = New System.Drawing.Size(1054, 503)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.ResumeLayout(False)
Me.SplitContainer2.Panel1.ResumeLayout(False)
Me.SplitContainer2.Panel2.ResumeLayout(False)
Me.SplitContainer2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
CType(Me.c1Datenleft, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
CType(Me.c1DatenRight, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
CType(Me.C1DropDownRight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1DropDownLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.c1DatenBottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents BtnFocusRight As System.Windows.Forms.Button
Friend WithEvents BtnFocusLeft As System.Windows.Forms.Button
Friend WithEvents BtnVerbinden As System.Windows.Forms.Button
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents c1Datenleft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents c1DatenRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents c1DatenBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents C1DropDownLeft As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents C1DropDownRight As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
End Class

341
DPM2016/Klassen/clsStammdaten_Bez.resx Normal file
View File

@@ -0,0 +1,341 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLdS1NhHMcfCPoDuummi+i6KwcmvSBuc5vH
szM3l5vnnG0nXTkzKnqDrOzdt7Qs1EKHqVQYlVoZZdmLopGhlIVUKyoiukiiiKSLgk/HFxa7rB984Pk9
8Hx4vr/nEf9TX14NBX98GP/VsTOT+a256qrI7e0+mEvv4RmkJD2HJC7us3M/vpWpyX4+T1zn++tBzu+2
pgp6KmTSMuysWGUjY81f0ldZWW5ZzXSin0Tvfsaa/HxNPKBrryNV0F0uk2l1YrNL2B2uJNZsJ+mrbbzs
iDDWojPaHGTq+S0uH8hJFTgaBFLVAnLsPiSXgpTjRpJkXC6ZNVaJyXaD0TMhHjYG+TTWMxt1/qgQtmpB
4lMnTlOSm6XhdgZQJD+K7EV2e8hyuHkWDzPSpDPYUMi74QvcqFTmBLYqwcT7VtoHBZmVAnu9wHlKIJcv
xqsE8eT5yc71Md6iMXhSZ/rmUl4MtHGrxotw1Qoeva0kPiJoHTbXb4p5/DbCk4/hWclaT5j8/CCSJ8Dj
ZpV7JzR+9i/j+Y0mBur9c4K7iR3ExwXxMUHbM0H7pODptwiOk4JgfjEFgRDufI2RxgADx4O07nDypKea
Bw2B2QgWuxmh78V6OhOCrJkIxwSOE4K8fUvQ1SiqbuALGgw1+Lldt5YrBxUeXahguFFNDtGSXSPofePD
eVxgBLZhaGUY4RIMI0rEKCIQinKv3svNWh99VV6Gzm5n9HQo5RktTvPKSu1CosZmosWlFEdLZiky0dbF
uFProa8yj6tHPPQ3xRhvjaQIREfZSjaUllEa20Lpxk1JYiZFJZu5XSNz7ahC92E31+pCTLQVIXRdR9dC
aFoYVZ3BXKua2atJVLMvKNTZFQtwrkIxf6DMpUN5THaunxviv1Kup+/u2OP6/epcLDXCP9QikzQhhOUP
pATCqsio1ToAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9fSJNhFMa/CylqduHIEk2pbaWwqMyLpCsL
+oNhSjKCCKTRnQ0lvCgK5mhd2UVQBnYx6tvfNmvbtzWnW20rZjclaCG51ginuc/N3OYu2sjv6R28l22z
Hzyc9z3nOee8L7MVfBKJ831Ly216/T+muroeP2QY6Gpq4JdKP7+TyWppqTLC/JP2uVgErrv38YAMGROJ
8LK+HjMSSSe1lOf37K1keqINichTRBd4jO2X4FFVFTix+A61lGYzqmV/+c4j4WzGkpHBsu8MIitJvFYN
/KCW0ggx7bl0UIGES04GSLE0LkbS04qf1m2Izb5oprZ/E/GotvOB63mebE5NnkLctgtrkx1kkAx/fCIV
tZVmc27Qz7vlWJs6S15wmGxuQ9J7ElnPnjC1lEaI3FSmPO1YdR/DekABnnxh/W0PPo0eEr5Ya6uprTSF
+dE4725F7sMNJCdOIBO8ghTZLgQPXqKW8uS/PkN6wYH0zD1k3nST7RdRCB4fp+XyjIxcFYF3IPvtFTYW
A8jF/ciFOzdouTKNjXvll3s6kPnuQp4PA4WoNbv8cTctV6ahqenCjp3V2FdXx6UWpxtoemuEQqEDarV6
WKPRaFmjUaHTPe8zmUz9drt9qCiHw9FPpCS6xnFcr9PpPO31emW0nWFsNtsRs9ncTZr69Hr9gMFgGCJx
mER1UfRczA0SKVmW7bVYLEcZhmH+Am4yJFh72phxAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="c1Datenleft.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="c1Datenleft.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="c1Datenleft.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 500, 212&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 500, 212&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="c1DatenRight.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="c1DatenRight.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="c1DatenRight.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 534, 212&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 534, 212&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1DropDownRight.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1DropDownRight.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 98, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 98, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1DropDownLeft.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1DropDownLeft.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 98, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 98, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<data name="c1DatenBottom.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="c1DatenBottom.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="c1DatenBottom.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1046, 187&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1046, 187&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

208
DPM2016/Klassen/clsStammdaten_Bez.vb Normal file
View File

@@ -0,0 +1,208 @@
Public Class clsStammdaten_Bez
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Dim m_tablename_left As String
Property Tablename_left As String
Get
Return m_tablename_left
End Get
Set(value As String)
m_tablename_left = value
get_data_left()
End Set
End Property
Dim m_tablename_right As String
Property Tablename_right As String
Get
Return m_tablename_right
End Get
Set(value As String)
m_tablename_left = value
get_data_right()
End Set
End Property
Dim m_tablename_bottom As String
Property Tablename_bottom As String
Get
Return m_tablename_bottom
End Get
Set(value As String)
m_tablename_bottom = value
get_data_bottom()
End Set
End Property
Dim m_keyfield_left As String
Property KeyField_left As String
Get
Return m_keyfield_left
End Get
Set(value As String)
m_keyfield_left = value
End Set
End Property
Dim m_keyfieldbez_left As String
Property Keyfieldbez_left As String
Get
Return m_keyfieldbez_left
End Get
Set(value As String)
m_keyfieldbez_left = value
End Set
End Property
Dim m_keyfield_right As String
Property KeyField_right As String
Get
Return m_keyfield_right
End Get
Set(value As String)
m_keyfield_right = value
End Set
End Property
Dim m_keyfieldbez_right As String
Property Keyfieldbez_right As String
Get
Return m_keyfieldbez_right
End Get
Set(value As String)
m_keyfieldbez_right = value
End Set
End Property
Dim db_left As New clsDB
Dim db_right As New clsDB
Dim db_bottom As New clsDB
Dim Focus_Left As Boolean = True
Private Sub get_data_left()
Try
db_left.dsDaten.Tables.Clear()
db_left.Get_Tabledata(Me.Tablename_left)
Me.c1Datenleft.DataSource = db_left.dsDaten.Tables(0)
Catch
End Try
End Sub
Private Sub get_data_right()
Try
db_right.dsDaten.Tables.Clear()
db_right.Get_Tabledata(Me.Tablename_left)
Me.c1DatenRight.DataSource = db_right.dsDaten.Tables(0)
Catch
End Try
End Sub
Private Sub get_data_bottom(Optional wherestatement As String = "")
Try
db_bottom.dsDaten.Tables.Clear()
db_bottom.Get_Tabledata(Me.Tablename_bottom, wherestatement)
Me.c1DatenBottom.DataSource = db_bottom.dsDaten.Tables(0)
Me.C1DropDownLeft.DataSource = db_left.dsDaten.Tables(0)
Me.C1DropDownLeft.DisplayMember = Me.Keyfieldbez_left
Me.C1DropDownLeft.ValueMember = Me.KeyField_left
Me.c1DatenBottom.Columns(Me.KeyField_left).DropDown = Me.C1DropDownLeft
Me.C1DropDownLeft.ValueTranslate = True
Me.C1DropDownLeft.DisplayColumns(0).Width = 0
Me.c1DatenBottom.Columns(Me.KeyField_left).ValueItems.Translate = True
Me.C1DropDownRight.DataSource = db_right.dsDaten.Tables(0)
Me.C1DropDownRight.DisplayMember = Me.Keyfieldbez_right
Me.C1DropDownRight.ValueMember = Me.KeyField_right
Me.c1DatenBottom.Columns(Me.KeyField_right).DropDown = Me.C1DropDownRight
Me.C1DropDownRight.ValueTranslate = True
Me.C1DropDownRight.DisplayColumns(0).Width = 0
Me.c1DatenBottom.Columns(Me.KeyField_right).ValueItems.Translate = True
Catch ex As Exception
End Try
End Sub
Private Sub clsStammdaten_Bez_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.BtnFocusRight.Left = Me.Panel1.Width - 10 - Me.BtnFocusRight.Width
Me.BtnVerbinden.Left = Me.SplitContainer2.SplitterDistance - (Me.BtnVerbinden.Width / 2)
End Sub
Private Sub clsStammdaten_Bez_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.BtnFocusRight.Left = Me.Panel1.Width - 10 - Me.BtnFocusRight.Width
Me.BtnVerbinden.Left = Me.SplitContainer2.SplitterDistance - (Me.BtnVerbinden.Width / 2)
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub BtnFocusLeft_Click(sender As Object, e As EventArgs) Handles BtnFocusLeft.Click
Me.Focus_Left = True
refresh_bottom()
End Sub
Private Sub BtnFocusRight_Click(sender As Object, e As EventArgs) Handles BtnFocusRight.Click
Me.Focus_Left = False
Refresh_Bottom()
End Sub
Sub Refresh_Bottom()
Dim s As String
If Me.Focus_Left Then
s = " where " + Me.KeyField_left + "=" + Me.c1Datenleft.Columns(KeyField_left).Value.ToString
Else
s = " where " + Me.KeyField_right + "=" + Me.c1DatenRight.Columns(KeyField_right).Value.ToString
End If
Me.get_data_bottom(s)
End Sub
Private Sub c1Datenleft_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles c1Datenleft.RowColChange, c1DatenRight.RowColChange
If db_bottom.dsDaten.HasChanges Then
If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.YesNo + vbQuestion) = MsgBoxResult.Yes Then
db_bottom.Update_Data()
End If
End If
Refresh_Bottom()
End Sub
Private Sub C1DatenBottom_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles c1DatenBottom.AfterColUpdate
Dim i As Integer
For i = 0 To Me.C1DatenBottom.Columns.Count - 1
If LCase(Me.C1DatenBottom.Columns(i).DataField) = "mutiert_am" Then Me.C1DatenBottom.Columns(i).Value = Now
If LCase(Me.c1DatenBottom.Columns(i).DataField) = "mutierer" Then Me.c1DatenBottom.Columns(i).Value = Globals.ActUser
Next
End Sub
Private Sub BtnVerbinden_Click(sender As Object, e As EventArgs) Handles BtnVerbinden.Click
Dim r As DataRow
r = db_bottom.dsDaten.Tables(0).NewRow
r(KeyField_left) = Me.c1Datenleft.Columns(KeyField_left).Value
r(KeyField_right) = Me.c1DatenRight.Columns(KeyField_right).Value
r("erstellt_am") = Now
r("mutiert_am") = Now
r("mutierer") = Globals.actuser
r("aktiv") = True
db_bottom.dsDaten.Tables(0).Rows.Add(r)
db_bottom.Update_Data()
Refresh_Bottom()
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
db_bottom.Update_Data()
End Sub
End Class

150
DPM2016/Klassen/clsStammdaten_flat.Designer.vb generated Normal file
View File

@@ -0,0 +1,150 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class clsStammdaten_flat
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_flat))
Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'c1daten
'
Me.c1daten.AlternatingRows = True
Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.c1daten.FetchRowStyles = True
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.Size = New System.Drawing.Size(758, 376)
Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.c1daten.TabIndex = 0
Me.c1daten.Text = "C1TrueDBGrid1"
Me.c1daten.PropBag = resources.GetString("c1daten.PropBag")
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(758, 25)
Me.ToolStrip1.TabIndex = 13
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "ToolStripButton5"
'
'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 = "Neues Dokument"
Me.ToolStripButton1.Visible = False
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "ToolStripButton6"
'
'clsStammdaten_flat
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.c1daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsStammdaten_flat"
Me.Size = New System.Drawing.Size(758, 401)
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton
End Class

433
DPM2016/Klassen/clsStammdaten_flat.resx Normal file
View File

@@ -0,0 +1,433 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="c1daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 756, 374&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6KwcWZYjb3Obx
7MzN5dY5Z9tJV86MirIgK8t++KssC63IYSoVRaVWRmn2Q9FIUcpCyiXVRXiRRCFIFwWfjhqLXdYDH3if
F94P7/d5X/E/9XVyIDj7aexn295M/mwt1vWK3K6Oyly6js0jJek8KnHjkJ2n8V3MTPTwZfwes+/7ubrf
mirorJBJW2tnzXobazf8JX29ldWWDOYSPSS6DjPa5Odb4hnXDzpSBR3lMplWJza7hN3hSmLNdpKeYeNd
W4TRSzrD54PMvHnIrSM5qQJHg0CqXkKO3YfkUpBy3EiSjMsls8EqMdFqMHwxxPPGINOjnQtR/xwVwlYj
SEy34zQluVkabmcARfKjyF5kt4csh5vX8TBDTTr9DZv4OHiN+1XKosBWLRj/1ExrvyCzSmCvFzjPCeTy
5XiVIJ48P9m5PsYuafSf1Zl7sJK3fS08rPUiXHWCFx+qiA8JmgfN9VQRIx8ivPwcXpBs9ITJzw8ieQKM
nFd5ckbjR88q3txvoq/evyh4nCgjPiaIjwpaXgtaJwSvvkdwnBUE84soCIRw52sMNQboOx2kuczJy84a
njUEFiJY7GaE7rdbaE8IsuYjnBQ4zgjyDq1AV6OouoEvaDDQ4Kf31EZuVyq8uFbBYKOaHKIlu1bQNeXD
eVpgBHZjaKUY4WIMI0rEKCQQivKk3suDOh/d1V4GLu9h+EIo5RktTvPKSt1SosYOokUlFEWLFyg00TbH
eFTnobsqjzvHPfQ0xRhrjqQIRFvpOraWlFIS20nJtu1JYiaFxTvorZW5e0Kh45ibu6dCjLcUInRdR9dC
aFoYVZ3HXKua2atJVLMv2KSzLxbgSoVi/kCZm0fzmGjfsjjEf6VcT99/+YDj1+SVWGqEf6hlJmlCCMtv
k4rCoiUUiGcAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL
+sAwJRlBBNLozoYSXhQFc7Su7CLoC7sYte82a5/N6VbbktVNKFpIrjXCae3tnbnNXbSR779n8Fz2bvaD
P+d5zvmfc56H2QwBicQ13dJyg17/j6nu7gf3GAa6mhoEpdKPb2WyWlqqDL/wqGM+EYPn1h3cJUPGRCK8
qK/HjETSRS3l+T13nctMtCMVe4L4IouxvRLcr6qCWyy+SS3CbMS1+l+BM0i5mrFsYrASOInYDw6vVIPf
qEUYPqE9nQkrkPLIyQAplsfF4Hxt+G7bgsTc82Zq+zcxn2orG7pSYMnm9ORxJO07sDrZSQbJ8CcgUlGb
MBvzQ0HWK8fq1CnygoNkczs4/zHkfLui1CIMH7umTPs68NN7GGshBVjyhbU3vZh9fID/ZKutpjZhigsP
k6y3Dfn3V8FNHEU2fBFpsp0P7z9PLeUpfH6KzKITmZnbyL7uIdvPoRg+Mk7L5RkdvSQC60Tuy0usL4WQ
TwaRj3at03JlGht3yy/0diL71YMCGwWKcVtu5cNOWq5MQ1PT2W3bq7Gnrs6dXnrXQNObIxKJ7FOr1SMa
jUarN5kUOt2zfrPZPOBwOIZLcjqdA0RKostut7vP5XKd8Pv9MtrOMHa7vdVisfSQpn6DwTBoNBqHSRwh
UV0SPZdyQ0RKvV7fZ7VaDzEMw/wFdbwkXMoYBpEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsrSURBVHhe7Z0HnBRVuvbXdXf1fu53PyNJicKQBhgYwgBD
hmEGSSKKSAZBcoYBJIkC5tU17bqua85kEEFFRIzsehUloyIgCiooihI993lO1Vt9qvr0THXAhf3m/PjT
qfp09fs85z2hqnp+U1SKSlEpKkWlqBSVolJUikpRKSpFpagUlaJilm7duvW6ossVu/r37//LiBEj1KhR
o9To0aPVmDFj1NixY9W4cePU+PHj1cQJE1T+xIkqPz9fTZo0SU0G48eNV0MGD1ZPPv2sevyZF9STz85T
Tz+/UC1YuFQtXPSiWrRkuVqybIVa9uJK9eLyV9TyFa+ql15+Ta185XX18qtr1CuvvaF59bW1flavVatW
v6l57XWTt9Rra4S31Wryxtvq9bXvqDVr343w5nvqjbdM1qm1b69z7r/Jbd7Be5z3rkZdq1A3P/PV1dif
VWuwb9y/1WrFy6s0y1e+in1/Rb340stq2fKV+D4r1NJlL6klS5erxUvwPRcvw/ddohaA+QsXq/kLFql5
8xeoF+bNV8+/ME899cxz6vEnn1GPPvGUeuTRx9SggQN1jCcinhMQV8Z3POLMWI9DzBl3xn8MthkNPajJ
qJEj1ciRI38ZM2rUnn59+g1y5UuuDBs8rM9IiL5s2TL1GHZsAgQNy8TxE9Ttt96mOnXoqHbs3qveXb/V
Y9O2neBzHxu3JkawHqfunWqzsH1XhE92qS0euzVbP/WzTfjsC4/two4v1Ccmn5M9mk8NPjPYsTPC52RX
gN171IebPlEfAN5+8dXXqlPHjurmOXOtcS2IGdNnqI0bNqpVr65SUyZNGe7KmHgZNmTo7htvmKU2b96s
nn3mWTXkusFxMWlivmrVspXae+CQ2rp7v8fXB35W+4LsF34KgbutpZ6vDxxWX3/n55vvj/j4lhz0s//g
UYcfHA6Y/HhUfWfwPTl0THNQ+MnhB4MffybHNYfIYYefhCPH1c/g873fq51k3/f4vJ9V61at1dgxY60x
LYwpkyar8WPHqQcffPBLV8bEy9DBQ44PHnSdEgYOuFZ1u/IqH7169PReD+IYoCWE8RsgKMg33x2JEi0s
fG9UfS42oR2xCxEcmIIHRQ8KHy16OOF/PnJCQ+EFzwCjx1hjGpa7/nTXCUh4hqNkguW6gYN8ldavV19l
ZGSozDqZqm5mJm7rqOrVqqmrr+rm207InzDRMcB3h9S2L/Z72ETxEOEKw/beAD6hDbHDCF6Y6HG3dovw
h486mAb4ThugVdIGuO2WWxUkTN4AJnVq11HNmjZVbVq3Vm1zcrS4NEXnjp182wk0QMsW0QbwhDDFSQVS
r0tQZI+A0IUKTgKCR0QP29od4Q8bwpMjhgF20QA/wgDoNjnAs8U0LLfcfDMNkFwJVlqvbl3dp3fs0EFd
3rmzysvNVQ2zGqrOnTr7thM4M6ABvoYBthsGsIqSYmwCmwTFtgmesOg24QOia46dUEcBhdd87RiAMR4z
KjkD3Dz3JBggq0EDtPy26upuV6tevXpB+E6qSXa2NkNwWxI0gGATJNVogYkrbpAwYscUPKzoNuEhuAiv
Of6LFl5InQHmJm+AQdcOVCZNmzRVI4aP0HP86VOnYU46TvXu3VtdjgwQ3JZMwFSwZfMWMMBP6pM9BzTb
gYiw/tN9J42P4uEzh48/+zoUG4QddjZa2PS5yTeaYxCfRBkAjWb0yFHWmIZl7pw5qTdA82bNVU+M+keN
GKnFpdOu7Nq1cAN8HzEAkRb3/ravThr/Uxjbhb0+PgjBhzY+ic16AWYzofjHT0QMsDuVBpidAgNw2mfC
QWCXLl208EOHDFH9+/XXg0J2BcFtCRcnWsA0QQNIerUKkwo8cQW/yGGFFuIVnMQSnUjmofgnAIV3OIhu
6zC6zRa6kdliGpY5N81OvQEyatZSl7Vrp3pc00P17tlLdcdYIKtBlp4FBLclYoBvYIBPIbwg/alNmGSx
CRgPiYhNPMGJIXZQdJMTv8AAgMIL3x9KjQFmp8IA1/YfoEyyG2freX/tjNrIBrVVRq0MVa1qVXXN1d19
2wlckWK3oQ3wJcR3kUHTwZ+OppQfCuLnCD9GERnsHbJx+Bj218KRYxjsEXPwdxwDPj9HhGMORzUnFLTX
7P7moPoCOBngZ9UC3SYNYItpWGbfeFPqDUD69+3nYwC6Adt2xDFAM22AzyC8IIHiqDmVmCL4cRZehODo
3MScopl4o3biDt6CMKWbML1r3JYugmuUU3g/0gU4YwAagMdgbDENy0033nhyDBAPYoBvD8IAX33n4Qt6
QJxEKEhQG57IxBXYKjSBsIkKjrs+0bXgrui/6Ned7YOzgJQYYFYKDMDWnQzjxozFIDHaAD4BXGxChcFW
lwbi2YgSWICgsYQmQbHDCI5/uvCWgpuiR+o5EW0AdJucbttiGhYexHNlTLzYKo4H0wA7ILxgFcDAJpyJ
7T0FAgELE1gwBTbxxCaukPjnx9Hb2sojop/A50Q4CmQlkMvBPBiUCgPMSoUBgv19vPCARrMmTaMMYAv8
r0VQWBOfyEQEBPgXhRTnsb+FE6feE+q4IbgWXRszMiiUYwFigOZoNCOGDbfGNCw3zJx5ihlgL8R3CQb+
18InriCiafwCe4jQRD9niE3wxsjnWAQPim7MEA4fPaY+R0yE/aeSAfr16auSYYxrgP0//OT7khK0k4Ip
jA8RLwaOxrrwvvN8QGiCinxiW1J6sIUTU3Bn6ujAqaTEhY2DsaIBhg8dZo1pWGbOOBUMMGq0atqkiXa1
aQDE8dfDFVSKPI5sYxfZL7Qjtim0X+yA4IEWHhTcWUc4qg65mN3jfmRLrq4mbYDpM5I3QN/efVQyaANk
0wD+DCBBx79oTJFigf/sSL0RfMISV1ybwLb07QlNLC3bL3Y4wQ/5FqGOYGZ0wIPdJQ0wbOhQa0zDMmPa
9H+/AXhAowkMUNgYwBQlEYL1+YktrElQ5HiF9otdsOA//BThIJAFMq6SMlY86jpsSHIGmH7KGcBIczYB
Uo0nKPHSNLGISyBqtMh2of1iG0JbxLYJfvAQOazX/Ym5TP5NqgwwdVryBujTq7dKBq5n84QRfikzzUnQ
t+3+9qSztUC+cdjlZ0tB7Iyw2WDTzq8dfMf9HTb62Kc27tinNgBO+bjw8+me/R5cNue4aejgIdaYhmXa
9VNPIQNEHQs4plvW+k++Uh9GYT/aFo3tvWB74XwQJ/5Dy186bPPzfiy2fqn+FQNmRg6QP4HwwtffHzp1
DMBDvsnA9WweQfwGX+rTL+FwF+knExEj1fjFNQSOR2TBInIUW8ge9U/AhkETbIfwAg3AbpPn+NtiGpbr
p1x/ChhgeMQApsuljxQBgqLEQ7SANlxBYwgrWEUNYhM1FlrsL7XYNniuJAXf/sW3mm2Az6XGAFOSNwAv
+kgGrmZlN2qsv5RpABkQsQ9MNUyp+w8WDlueB1uiC1ulDQqlBXPhqe4eBxz2HvjRz/4f1VcGX+7/QX35
bQR5P4UXtAHQaHhuvy2mYbl+8ilgAC5miAHMNCej31+FHyN8FxOYhwTM5BmKeOYxjGMYyG8Yp2VbDRM0
CoxhDkr34TkaYNDAQdaYhoWXiLkyJl5sFccDpzI0QNDlDDaD7scmTGFE1xNLyCCesMTIDLEEtmWHoMhB
oSlmUGxbRqDwW1y4nTbAtQOtMQ1LSgzQ85oeKhk4km3cqBEC8qPPAP6Ag6Ag8RKsT4MRtkuUoCYWYSNA
1IJEJiGE/opCB9L/HvKNgznN5HuzGzdW1w4YYI1pWCblT/r3G4ADGW0ABMWcf9uCLa0sXmx1FYwrqkXY
KHFJrP4d+EUuQGhPbOfcP0FOBBXxNwPWow3QP1kD5CdvgB7dr1HJwIFMo4aNdLCY3mThxRb4VBMlpOAK
am25JlHiCgWITCxCm2IL+gygfQ7mghI/ozG6zf79+lljGhZel+nKmHixVRwPvH5AGwBfypfmbAE/2fhE
tOEKGxA3HpG/CIgcFFrO+vHY+70+OGauIvLzaYB+fftaYxqWlBiAp3snAwcyjRo21AFmehP4JRnwCDZB
4sGpxxNQcMWLhU9U4vbJVnGJRWBP5BBCm5jHRszlYu4Xu82+ffpaYxoW/kKLK2PixVZxPPAChUZZNMAP
vjTnBTooQDJ44gWxCBnEIqqJTeAwIgeFJvp4iLEszgNA5rECbQBkzT69+1hjGhZelOPKmHjhlT/JwIEM
Lx+nAbw0B2xBJhQiLLb3h8UT1CJqlLCC+zMuYUSOJbSHvkQusjC24XPn4BChAdht9u7V2xrTsJwSBuC1
gw2zsnQ6prvl6Jgt6KnGKqKJK2gsUQWbuMQ7uukKbBM5KDTRi2HGpfL8vYSPIbyw59uDutvs1bOnNaZh
4TUZroyJF1vF8cCTEyMG2OdhC/SvgU3IIJ6wAXGjBCYxRNZCGyKL0HodBNPg4GHqj/Wl6WSv7rK0AXqc
Agbgb/8kA09M4MWjdLVOcy4S4HVbvojinyGwvY+8lwibY/OuyabCeWfTbjsbHd4OIHP/jyC8wDEJu02O
5G0xDcvYMWNOMQO4fRzRLQct6M0Nu1LPx9GsTQFvaHY6fFQwa2ysj0amfh99yiuKHThGoQGu6d7dGtOw
8JR8V8bES/An4eKlT89e+mdl6OpImtvnpUVboH8tfIKGENXEKjCxiLxm/ec+XjfgL4fwF0XWf/qVBy8Q
ZbfJNG6LaVh4Qq4rY+LFVnE8cCAjBpAUx35O+kFbcP9dWAU1sYpLYgtcEKuBNAjzjCYxAFuxLaZhSY0B
ul6pkqHXNT1UVn2/AYisCJrdQspBYAUn0I75YmHunw+kZTNFB/mQxDhN7QOy3XbyinMCitSrt3PhDKYh
uk0tpCWmYeEJua6MiZerUFEycCDTAAZgv2YGbdNOnkQZjblYFAZbHeZ6gw9jGiqYCzA2Ij/8ZBjLxZu6
eQZzkB+cKsw8pmE+MM5WogE4brLFMx54PqYrY+LFVnE8xDKALdgpxxMvtohBYonqF9YVN5TA/qzgtfSo
rBAxANcoaIArr+hqjWlYUmIA7kQycCDToF593a+ZgfACawY9WaTOEFjFNASNJapQYMonhsBRIiP1B88/
5PNyf+e+73S32bVLF2tMw8LzMV0ZEy+2iuOBAxkagEuuXnAAg2gGO5UExQpDRNBoUX3CEqu4BQss/Ivo
E0b3ePwTmNvs3OsY4IrLkzPAiOHDU2CALleoZLgaA5kGdeuhX/sOwfrSwxbkk41PRGKIGCQiajhhhcgZ
wX6BPdyzgdd5OAtY5vZcscxCo+nSubM1pmEZMXRY8gboioqS4Sr0RfVhAKY1L5CaYJD92EQxsb0nGvPz
XCCSiU3EIJFWG05cv8ARkde5q4tRq42bvvDVw2snmTX545vBeMYDT8h1ZUy8dEUaSgamovp162oDvG8I
YQv0yUCLR3wCkoiIJqYQGlfQAoUtQFwSWSre7RFcIjbr3vHVARignurcsaM1pmEZPmRo8gZgP5QMdCJ/
YZxpzRRGB9QW8FTAugvBL6TgF7QgUYn/+EBEXJvA0ccBdqm3N+xSb7mYn82DTvVhAP6pHVtMwzJsyJAU
GKDz5SoZuiCN1cusq5asWI3AO30dRZIgSqBThSlQPNgP+MQQVXCFtYobEFiwHrsArJ/iv7d5t1q6crXu
Ntu3u8wa07DwjGxXxsSLreJ4oAFq16qlf/y4bZucIkLQGrHiT/J2at/BGtOwDL1ucPIG6IKKkoW/Fs6U
xmPcvOq1RfPmqk2r1io3p63+3WGmOm7HXx2/uls353eIe/XSZ8UOvHagGowvMgwDmlEjR+k/meb8ebp8
/ZP1vP5t2tSpavq0afovZs2cOVPNuuEGdeONN6qbbrpJzZk9W82dO1f/9Yxbb7lF3Xbrrer2225Td9x+
u7rzjjvUnXfe6dwCPsfXuA23vRnv4U+uz0Y9/NXNG2fNUjeg7pkzZuCzpqtp+Myp11+vJk+erM/B55/M
Gz9+vP5zbrwodij64OsGXafP7+/bp48+LsIjfN2uukp3jRzkdWjfXrXLy1M5EJ5/I4A/qslY8XeVgnGM
F8bNlTHxwhb8a2JzcmHYBkC/JrZ9Kgzbd081PCXflTHxQpcWcXrCU/JdGRMvl3fspIo4PbkO3acrY+KF
fwegiNMTXpPhyph46YwBWhGnJ7wmw5Ux8WKruIjTg4H9ByRvAE7Rijg94UU5royJFy5GFHF6MqBfv+QN
0BEVFXF6MqBvKgxwWXtVxOlJ/z59iwzw/zP8xXBXxsRLh3aXqSJOT3hVlitj4sVWcRGnB3179U7eAO3z
2qlTGfmyTHky+vXmwh07OsuinSIHSIIHZWwHd2wE3yf16XV3vfLmfKbsg6Rh2T/bvp9s+vTqdfoYQERk
EBlQBpknNvIKl+7duqme3a9RvXv01GmNo1sucnCtm79CxlOfRg4brkaPHKkvhxo3Zoy+NJo/kJA/foKa
NGGimpyfr383j7+eOXXK9fqHlKdPnapmTJ2m/7DCzOlkRoDp+jX+7Dq35Xv4XtbBulgn6+Zn8LP4meNG
j9H7MHrESP0rqfydxCHXXaf3lfvcv29f3TL5XXp07666X9VNnzdJk2lD4bt36tAhJabp3bPnf34GKCI2
NJkrY+Llstw8dTJp27qNblXr1q1T27dv97Ntm9pmsnWrZqvJli1qS5DNm9Vmk02bNJuEjRs1GwNs2LBB
bXThfZOPP/7Yx0cffRTF+vXrNR9++KF6/PHHVetWrVSN6uma9OrVI1SLwL/DXL1qNf33l6tVqaqqVK6s
qqRVVrVq1NSxscUsLLwu05Ux8dKuba46mTBF7t+/X+3atUvt2LHjP4Y9e/ao1atXQ/zqELOGPi0uM6O2
R52MDIdaDvwj3DwNrGZ6ujZE5Upp2gS2mIWF3aYrY+LFVnGqyMtpq//E+ZtvvvkfCTNBzfQaELq2vtCD
v5amaZDlwauAG9ZvoK8E4qngPIG2NszA7FA5LU3HyBa7MHCM4cqYeOEOnCxy2+To8/dswftPgAag+LzI
gz+YzfP8IjTRf01N4I9Dc5tGWVn6OgpmDHYJjJEtdmG4ptvVyRuAO5Bq2D/JtG3unLnqnXfeUW+//bZ6
6623fEgg33jjDY81a9bE5PXXX9e33G7t2rU+pC7zueDnmcg+2eBr7777rt7OrE8+Q/jggw9U3cxM3cop
eKvmLVTL5s0dmkVo0ayZag5TkCaNG+uMkFm7jh4vcBxgi2EYOMNwZUy8cAdSCVOTzKM5d+ZZuyIYg8ag
msF+7733PDhQlPsUIYj5PhHSFJr3xURiFrkV4wgioogr+yfvN7cl8roJDcDW3Bhpv0XTZvp0b4GnydMQ
gjYCtmmana23rwfj1MB4wBbDsPC6TFfGxEtOq9YqlXB6Yi6i3Dz3Zi9gFIm3plCmALHgtsH3mfB58zPk
c8z7QeQ1m6mCj7m9fIbsA3n//fdjG8AQ3zQAMwV/JZRjAQ4ebTEMC9dQXBkTLzktW6lUwgxAE7AbaJ+X
p8/dl4AJIhzvm+IFW7sIYMLng9mASB2CfI75GWb9BcH0b8L6+dmsg3Uyq3AGwIxVH0JGGQCCEy0+hCfa
ABwbYDyQDQPQODRAG0sMw3LVFV2TNwB3IJVwcCILFTQDL7KgAIIpEuHFGlxRK5hhavjQoWrI4MHuRRh9
VZ/evdG9zIkySFBE6VJ4n89TTN5yWxHWdivbyX7SSCL8a6+9platWqXrtGUAM/3zohlvLKC7ACcD8H0Z
NWvq7W1xDANXUl0ZEy+ea1OMBIBX9UhLJKb4pAlGxgxgQejpFAZO9epkqrqAc+n0atX0AozUS8RgFNEG
XzO3tWHWJ1B4Ef/VV1/VvPLKK9okzAAc2XOAZ35vLb4rvIjfvGlTxwD4TnwfDcDtgrELCy8QdWVMvJg7
nAqY+nnKshy0kVYqrcsUnzB4hdGwgTOHrlunjsoEFJ8ra1xVo0A2IYPws2z7wOd4y21Yl5ni2dIp9ssv
v6xWrFihVq5cqe/zlvB9vDKa+0hxW7VADEBL4s4GeJkcZwGE08OmmA7SAPXq1tMGoDlscQwDx1mujIkX
06WpgIMTWahgN8Br7hjkWAbQCyWFwUUUBKwOpk5cRKlVo6ZeVauFAIq5gp8hz0tXIJhdAl/ntqb4YoDg
Y8K0TyO89NJLavny5fo1pnIu/jADMPXrlO/SAvHQ6NYvBmisM5pkgJZ43hbHMPDAkitj4oU7l0qYmmSU
2hr9FP/CNcUQQUzxCVfIwsDLqTl35q9rZbIbwACKCylm6zaRzxSCLdzE7NclxUual9YvopMXX3xRLVu2
TL+Po3kagH8O3hNet3oHCi/icwDIBSExABeDbDEMCzOsK2PihSPTVEJnUvzLmAUwILxh5kxPhKD4hEuo
hcGVNr2EilbPfp+pv9KlFVVFQNEoHqEghKJSaAouSGsWA8h7BFNwEd0Ue8mSJZqlS5dqeJ/v4X7xVz8p
sDaA2zpFJG0AvOYYIFuPeTwD4PvwNVscw8Bu1pUx8dIcrkwlWnwerXK7ARrAJryQhZZdGEz/HABmIPVX
q1JFi39p+fKqQrnyntBSn2QEafGm+DQLRSbsw6Vlm63bfMxbGsA0weLFi9WiRYs0NAoXdCgoW7ee7kFw
og0AkSiwxIb9P5eDZUDLbozvM+MXD1xtdWVMvHAHUgmnJxQ+N8dZruQ1/aYoIpRAcQuDraUu0j/nzen6
SFolbQIeTDHrYv0ivLR0ZgQztZutXExgM4OITsQEbPkLFy5UCxYsUPPnz9fbclbCcQrF9bV8V3xJ/UTP
eDAF5G8riwH4PjN+8cCTSlwZEy/cgVTCHdMObeLcTp402WuBZksVKG6hIFg8xForvYZz7L1adVW1chU9
GzDFltQvfbpAA4gJzH7dTPOS2iW9Syun4KboZN68eeqFF17Q5qAxOUbh4M4nvCtSMyM2XADiDIDb0zja
ADCFGb944CDblTHxQleeTCZNzPcE4m3QAGwJhYIg85g6DcBj7DyIUhXjgLSKlXxjABFYRJaWbbZoM41T
WN7ysZnaTWQbGoCiP//885rnnntO10VjMkvxu3qiAxHJiwXEz4b4jTFe4JiGxqEBvNct5LZuYxz9y9Hr
/+br7GZdGRMv3LFUwvmpecSKK4GccskKXZQBEIjCYLDqIFhcAGJGYOAkE4joZoo3DSBIeqcJpJWbopv3
KTZbOVu7tHw+pvDPPvuseuaZZzTclsakAZjavdYOcYgWyo2LI76zqMXtnS6tpi92QTiW0gd+3FkVBTdf
Z1fryph44Y6lEgbAHKhMzp+k07T0z0ED1K1du1DYympjzsyzbzIwdXJaf0VVCZjpXVK72ZfLrWQAM80H
TSDp3kz5QQM8/fTT6qmnnlJPPvmkfp5TOQ4E2bJ5qLdJI4gDsklDxARQeL5O8bPq13entE6XZouhwJav
l33dlT8+Nl9nA3NlTLw0xk6lEvaDeh0AO86+kH/flqlfTBA0gJxCVRBM+5wBsMXXQeDYBXANIA2DQWn1
FN9M+6bwpvgivGkEMYEpNtM9YaqXVk/xKfwTTzyhzwmkIbiY4wwEG+g+Xvfznug8Q8gR3hGfK5owAAwj
XZothgK7ADmQRCi4+Tqzgytj4kV2LlWw//OOfsEMPL3aXIwJGoBn1BSKu/pH0TnwS6uUpipWuFRdWqGC
T3AKbbZ2s8XbUr/Z0kV03kprp/giPFu9CP/YY4+pRx99VBuDIuoFKojrCB7BXM3k63pNA62f3RpXNGui
G7PFUGDq17MKd2DJx+brbGiujIkXzklTiThfHo8fN843SqfoMlUjDESh6P6/hqqa5pxRWwmDP7Z+Ii1d
BBehTfGl1QfTPcW3tXrBbPmS9h955BHNP/7xD/0cT+qgQZnWPcHxvbXgxF3I0lB8ZIu6MDW7Do5jJE42
mP7NmQQfB193ZUy8NMSOpRIOTmQxhEgGkOVZc9rG6RrFLQymf7aWapj60RBcCWTrL1umrE9ss2UHBTZF
ZusW2MoFEZzCmqILbP0PP/yw+vvf/64eeugh/ZjdEveRK4LB1UsKLsiUtl4dDGhhAP2d8F5bDAWeUyAD
Pvb5fBx83ZUx8WJbeUsGupUDFj1wwQ7yKhtp7RRelmtlfl4bgSiMDLT+Gpz7o/Xr1cCq6P+RBWgCEd9s
5aYRKLwYgQawGSHY0kV4Sflm2qfwf/vb39SDDz6oH6djXzJq1NBpnd+/AUQ24RqGQPH1mAatn10aF7WC
8SPS9zP1S3/fCC2eg2o+x/EVt+M2royJl+AOJwt3lumKO8opIX9dU9K/bVWOfagHWnkQtnxSnRdVoO/n
OfWVLr1UVShfXpUvV94T3+zPTZGDrZsiy61AwSm2iCwp3mztFF2E/+tf/6r+8pe/6Ne5X7XQDVBYv9jO
+oU5lWXqZ3fBjMHvRAPYYshGxCmkk+rdrALBmUnYvXKKye2YYV0ZEy/mTqcC7iAHLBy8cCDIMYBM1Wxz
9BoIQjqCyEA6VHFAuheY+ik+B340gPT/XA5ma6fwsVq0CCwtOtiqY4lNoSkyxTZFf+CBB9T999+v4XZc
kWR2oqhaZE5dITTxZjIQnTji19RL2tKl2WJI2IB09wGhZTWUMLbmfVfGxItvxS0FsPXrExb0LKCpNoA5
VQtO06qmpel0zlZdCQKTiuUreFxK0NLLly2rypYurbflUUA+X75cOV8/TuEFEZ0iB1u2IAM6eT4oPsUm
9913n+bee+/1bu+55x69DY3JlsyuKSi2hzuW0eMZGIADWr6HBrDFkDDlc6RvPsdxALOCPOYA0ZUx8eK4
NnXQmWba4/l8MkWTaZo5VauIfrxcmTKqzCWXqNIXX6y5pFQpzcWkZElVqkQJVbJ4cVUClIEJLsY2JfBc
sYsusrbugkQnbO0CW30wzct93gazAoX/85//rO6++26dBXhgihmL5ydwZO8BoQkF92DL53jGTf8c0wTj
Z8JUbz5m12A+ZmNzZUy8SLpKFboLgDMFXkptztOD07NyGMlfXLIUBC6hShQrrooXK6aKQ9hiF16kLrrw
QnXRBReqCy+4QF1w/gX6tjSMQgOUgjFKwgSS9pkB5FayQHBgJ/08TUFziBlEZIFim+meLV6g8HfddZf6
05/+pM3AFcmqMABFZRYI4hvjUHx0FxSfXRuzny2GAhsTx1S8z9avG5XxOmcHroyJF7h0paStVMAd1YtA
6J/YR40ZNcpL9zRAcD7Ols+WrQUXsV3BLzj/fHXBeeer8887T513rgNbPYXne3hLYc2+XoQ2swHFptAU
V9K7wJROkSXd876kecLWLi2ewuufnwd33HGHfsxxCdcmKCwFlkGrCV8TtPgY61TDeyqjO7PF0MQ0QPA1
PgcJzzCIu5xRs2bNc2qn13yZ/VQqYB8lswAaYTQMYLb84CLM4MGDkT4xJUKgqiNA1fQJn85Jn1URqCpo
XZz3VyYImn4d8HzAQQMHeq1Z0r2k/GCKNx+bKV1auyBm4K0JTcEWf/vtt6vb+DcH+DcJYAKOUygkRfUJ
LeC7CBzAmoNavs8WwyAcS9mepzmaNWv2O+h4JrV0CV3kDWdWrFjxv2tVr/6KbQ4eL5yusO/SS5iAGYAG
IDRAcJrGAaJ5upgcNDLXDgSZTsqUktnE7ONFZDOVc/Rua93SqqVlC0zt0sIpNjHv33rrreqWW27R0AQc
oKZhUEpROZsJomc2eM2b0dDEwDFARWsMw8KBIvQ7OzMz8/fUEfzW1TRU4YZ8A9989jnnnFMsvWrV12z9
WDywn+K8lQdFmAVGDh/upXwKb07XzPm52V9zUGcuxJiDOjOtU3xJ6xRapmyCPMeWLSYQzNG8mebNPt40
AsU2xRcDVChbTs9cqnKNQkQuCIivl7TR+jl+sMUwLIwztPtv8H/AH0BcmUC3fsA3ngMuOOussypWrVR5
LVfeEoXzVi5i8AwZZgL+dUvp95n6ExHdbOXBx5LWzZQu9wUxgC2tyy2NIOLzVgwRNIJpABqifOky6AbK
a0GldRcEjSKtn5nDFsOwcJ0AuhUH/w/8F2BjDp0FuBH7j7MBXcSKLv3d737XEDv2T9uqXBg4OJElTTLo
2mt1upcWn4joIjJv+bo8Z7Z+CiwDN0JRg+nebNm8FURgM9WT4DbENAAph2kpu4HKEJPiFgaNQmgALmTZ
YhgWrgVAs/KgmKvhWYCaxm2Ac0EpUBU0OvPMM7tWKl9+Aw9WxAsXO3iggv0Tb3ktn216ZhrAZgQxgQjN
Vm327dK6zdQvRqDwFJ2tWqABBDGCCCuCm2l+zpw5+o9RmfC5oAHKXlJadwNpnA244hYEhZfWz67DFsMw
0ABsbNCrGigNzgfsCiQLFFrEAEwdNMAloDpoCq787W9/m39p2fI7uFQbD5yyyBo2DcA/aiD9fjD9B7OA
YBogmAlEfOnbgyN3Sedmny4ii8AiMv9qWBA+z+0Evo+ZQbKEKT4pi2lshbJlISZnA464hUHx09yVT1sM
w8CxFozwC7TKBBXAReCPgF16qG6AG3AMwAzAPkQyQDboCsafccYZD5UvU2afbQdiwdGprASSnj16aOEI
RTQFlSkZBTX77qC4wf46KLJt0GaKLK1XBCbB1i2IEeQ+TcB6pe7Zs2f74DoGl6njNYAsfdtiWBgyDcSA
80fo1ACkAXbh/xeYg8ECixiA/QbfyAoqgvqgPRgO7oMJXsJA54BtR2xIehI6duigA0UBzMDxsSDP8W8B
zprl/O0+/ff7Zs5UM2bMUNPlb/hNnaqud/+On/5bfpMmqfz8fDVx4kQ1btw4/ff8Ro8erZH7ozANJXxM
JkyYUCD8u4CsK4g8P3bsWB8VynEW4IjPwV1YuAZAbDEsCKZ9NjLer1Kp0lZolJQBZBrIvoN9SBlQAzQH
PcBM8BhMsByDnb0YxR7GFOYwvsARG3wNXcDh7KyGh5s0bHQYs4DDOa1aHe1y+eXHPDpffvzyzp01nTt1
8m47dex4vH379h6XtWunaZeXdzwvN1c4QXLbtvUwH+fl5bmPHXLatDnRpnVrDe8Tbtc2J+c4nvPgY5Ij
tGmjkefzcvOOod5juTltj7Vq2Qq01LRs0eJYeuUqR6qnVT6CAd4RiU9hMSoI1mEjvUrVn9OrVvsJn/UD
ttuHAeR6TN3ZSBPuAljMLCAzAVZWG7QBvcBEMAfcCe4B94H7wQMGfMxscW/x4sX/UrNmzb+1bt36oe7d
uz8+dOjQ59ByFqClLpoyZcoStOKlaNEvokUvx+0KtPJX0OpXofWvBmuQet9E+n4bqfddpNx1SPH/Qqr/
H/AhWI/U/xHYADaBzegOtuD5LRjtb8XjbXi8jffx3FZ0DVvQHWxGPZtwuxH1foy0/iH4AN3A+7j9Fz5v
HW7fwe1beP1N3Oc+rEZm4j5x31YiGy0Hy7Dvi5FFnh8+fPizAwcOfKZbt25PNWvW7Im0tLSHzz333Pt/
//vfMz5/Bry9lzEpAL7O7YLw/SZ3g7vAbYANkqJ3B3mgIeAgkOO3uAeBLGYWkMFgCUAT1AJNwGXgStAT
9AX9wQBwrQEf98fAsV+xYsUGZWZmjkArHj9o0KAZSNNzkcZvRcDvQD96N/rqeyDqfRDoAfTx6PIf/Dv6
/n+ARzEeeBzjgicxPngKPIPB4HMYKM7DtHE+WAQWY/C4FLdkGQaUL+LxcgwuV+D+Cjz3kglfI3htGepZ
gvtL8PxibL8Yzy3E7QI8Nx+D0OfBc5iB8DOfxEAUdx/H3ccewWAUw5eHH8J+PYj9vR/f4xaYg99pDow9
q0ePHlOaNGkyukyZMgPPPvvsPogDYZz6MSYFwNfDwvrYGLuBjqAVyALpoBzgNJDpP65poBTJAkwddBBN
wExQFlQGNUFdQLdxgMhZQrMAfI5myU5PT29zxRVXdEIr6YYW3xetcDAGdUMh6DAMAIcj0KMgxmgIMRYC
jIMQE+bNm5e/aNGiyWDK4sWLr8fttKVLl85YsmTJTILHN+D5WQsWLLgBM4rp2J7P3bhw4cJZvM/nXGYI
qHcmZh434HUyk8yfP38G6uB7Z+K90436p+HxVLw2Bfe5H5Ox7STUM5H7x/3kPsMMQ2Hc3shOveCDHshg
3YcMGdKlXbt2uRUrVmz2xz/+sTFiQBgnxoNxSQWsi/VSA2rBxkltqBHFT2ghSAo3Nk3AiugmphRmA6YX
uowDxEqAH1wlAJ/jQKRS6dKlqzdq1CijZ8+eDTAIa4zU2QwpuAVafQuk5xZoRa1giNZoVW0IWpkGLS4H
5miLQOeiVbaDeHkQQQPx9S1EzIUobfka4XYQ6DIB72+H1pvH+zBYewLT5UG4tjBgLj5Hw/vclmAbbp9r
1J2DeltjP1oSbNscs48myF6N0T00gvB1b7rpprrowjIxaKyD71krOzu7WqlSpdL+8Ic/MD6EsbDFKVEk
vtSACz+c95cEF4KEl4LNYpqALmIqYaU0AjMCzcAP40CDjosFX7+wZMmSF2ZkZFzUpk2bYghQsQEDBhQf
PHhwMaRMDUbwxZFC9a17v4SA4JYkCHQpGzDTxclgq5PI55r7IvsnyP7zu/A78bvxO6L1X1SiRAn93d0Y
BOPCjJooZj2s+wJwHqDwXMLnNJ6aUbu4W3+w8M2shJWxL6Gr+AHMCjQE4YfGQm9zySWX/FdWVpamT58+
Z+fm5p41YsQIHwjw2acTwf3n98IA8Gz5nvzO8v3dWJwMWDc/h5qwkVJ46pRwy49VpDIxgxgiLGdeeeWV
ZyJwvyV4rOuTx6c7we/C78rvDIJxoECpwqxXPs+LLbCU3/zmfwGMIYrtwba35AAAAABJRU5ErkJggg==
</value>
</data>
</root>

84
DPM2016/Klassen/clsStammdaten_flat.vb Normal file
View File

@@ -0,0 +1,84 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class clsStammdaten_flat
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Dim m_tablename As String
Property Tablename As String
Get
Return m_tablename
End Get
Set(value As String)
m_tablename = value
Try
'get_data()
Catch
End Try
End Set
End Property
Dim db As New clsDB
Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Connectionstring = My.Settings.ConnectionString
Me.c1d = Me.c1daten
End Sub
Public Sub get_data()
Try
Me.C1Daten.datasource = Nothing
Me.C1Daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.Splits(0).DisplayColumns.Clear()
db.dsDaten.Tables.Clear()
db.Get_Tabledata(Me.Tablename)
Me.C1Daten.DataSource = db.dsDaten
Me.c1daten.DataMember = Tablename
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.C1Daten, Me.Tablename, db.dsDaten.Tables(0))
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
db.Update_Data()
End Sub
Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
db.Update_Data()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
Try
IntTables.Inttables.Tables.Remove(Tablename)
Catch ex As Exception
End Try
MsgBox("Daten wurden gespeichert")
End Sub
End Class

38
DPM2016/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten,
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DPM2016.frmMain
End Sub
End Class
End Namespace

10
DPM2016/My Project/Application.myapp Normal file
View File

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

35
DPM2016/My Project/AssemblyInfo.vb Normal file
View File

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

63
DPM2016/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
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.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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("DPM2016.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
DPM2016/My Project/Resources.resx Normal file
View File

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

122
DPM2016/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,122 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
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 "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, 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
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=dpmneu;integrated security=SSPI;persist securit"& _
"y info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)
End Get
Set
Me("ConnectionString") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("2")> _
Public Property LogLevel() As String
Get
Return CType(Me("LogLevel"),String)
End Get
Set
Me("LogLevel") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm")> _
Public Property TempPath() As String
Get
Return CType(Me("TempPath"),String)
End Get
Set
Me("TempPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\docarchiv")> _
Public Property DocArchivPath() As String
Get
Return CType(Me("DocArchivPath"),String)
End Get
Set
Me("DocArchivPath") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DPM2016.My.MySettings
Get
Return Global.DPM2016.My.MySettings.Default
End Get
End Property
End Module
End Namespace

18
DPM2016/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,18 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=dpmneu;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="LogLevel" Type="System.String" Scope="User">
<Value Profile="(Default)">2</Value>
</Setting>
<Setting Name="TempPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm</Value>
</Setting>
<Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value>
</Setting>
</Settings>
</SettingsFile>

1
DPM2016/My Project/licenses.licx Normal file
View File

@@ -0,0 +1 @@
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

1
DPM2016/My Project/licenses.licx.bak Normal file
View File

@@ -0,0 +1 @@
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

431
DPM2016/Patient/Patient.Designer.vb generated Normal file
View File

@@ -0,0 +1,431 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Patient
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Patient))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = 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()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = 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.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = 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.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1006, 25)
Me.ToolStrip1.TabIndex = 15
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 = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel1.Text = "Suche"
'
'tstxtsuche
'
Me.tstxtsuche.Name = "tstxtsuche"
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
Me.tsbtnfirst.Text = "Erster Datensatz"
'
'tsbtprev
'
Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtprev.Name = "tsbtprev"
Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
Me.tsbtprev.Text = "Vorheriger Datensatz"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnext.Text = "nächster Datensatz"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz"
'
'SuperTabControl1
'
'
'
'
'
'
'
Me.SuperTabControl1.ControlBox.CloseBox.Name = ""
'
'
'
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1006, 728)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 18
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Krankengeschichte, Me.Finanzen})
Me.SuperTabControl1.Text = "SuperTabControl1"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1006, 703)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
'
'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 = " "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1006, 703)
Me.PatientDetails1.TabIndex = 17
'
'Stammdaten
'
Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
Me.Stammdaten.GlobalItem = False
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 703)
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(1006, 703)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1006, 568)
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(1006, 568)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
'
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
Me.Behandlungen.GlobalItem = False
Me.Behandlungen.Name = "Behandlungen"
Me.Behandlungen.Text = "Behandlungen"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 568)
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(1006, 568)
Me.PatientAbrechnung1.TabIndex = 0
'
'Abrechnung
'
Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
Me.Abrechnung.GlobalItem = False
Me.Abrechnung.Name = "Abrechnung"
Me.Abrechnung.Text = "Abrechnung"
'
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 568)
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(1006, 568)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte
'
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "Krankengeschichte"
Me.Krankengeschichte.Text = "Krankengeschichte"
'
'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(1006, 24)
Me.MenuStrip1.TabIndex = 19
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"
'
'Patient
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1006, 777)
Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Patient"
Me.ShowInTaskbar = False
Me.Text = "Patient"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
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 tsbtnnew As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents PatientDetails1 As DPM2016.PatientDetails
Friend WithEvents SuperTabControl1 As DevComponents.DotNetBar.SuperTabControl
Friend WithEvents SuperTabControlPanel1 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Stammdaten As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Abrechnung As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents tsbtnSave As System.Windows.Forms.ToolStripButton
Friend WithEvents PatientAbrechnung1 As DPM2016.PatientAbrechnung
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents tstxtsuche As System.Windows.Forms.ToolStripTextBox
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 tsbtnfirst As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtprev As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtnnext As System.Windows.Forms.ToolStripButton
Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripButton
Friend WithEvents SuperTabControlPanel3 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Behandlungen As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Behandlung1 As DPM2016.Behandlung
Friend WithEvents SuperTabControlPanel4 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Krankengeschichte1 As DPM2016.Krankengeschichte
Friend WithEvents Krankengeschichte As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Finanzen1 As DPM2016.Finanzen
End Class

342
DPM2016/Patient/Patient.resx Normal file
View File

@@ -0,0 +1,342 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
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+tmmA6yCVxmuX/8pMAcOpDRO4RXwZDUikNuNMOH7iJKOIKF8
Ghk1SxA2fQxxx21IOu4gv+MzInDRVGDbW3FgV0yBW3OdglU+hW1vRq4q8DibHCJcLZxi7jLOF8IlogrH
2U0IytDibK4O0YVjSFTMglf3F4haP0NJ7z9Q+t6/INXehfmBcCLg+YTAwWgkq+YhbP6YIkk5j62M8G8V
0MfMIXzDBvuwrjdCcuCdoiECPTibQwRko0ismAGv9gbyNJ+isOceirWfQ9xzB9sOnDMV2EKOJbXuOiSd
dyhSa69ji+PZ7xR4nFdeC460cQn7jy+vDaGkBBGSYaqUacpFqv65LZ9QIoK2T7DVMcxUYDOxSqlbomql
J4UIbNof8tQC+qzb5bfT7PXgWRe2AuHSQcQUjVF9kFa9gAz1EtWM6Q03sZnc10Rg4/4z4KgXqIbRwyHl
MNt38pkE9KHRTr+87tW3ZTv9Ur4JLRqgeiG+dAIJZdPgEBkWue/GfadMBbbSgr+KVs0gXbVIEUXmv6V5
PddfMn1+vcPTfd0f/e4d5bfgYuEoIslboedi2TjM9gZjje3elQLHziQPBkrbEVszj1j1PNwza2Bp7/Oh
Yfm5snbnUbNf2Lppd5Mv5ynZAEIF/TgjG8IrDgGmAkxuvvWxkITBLXaBDzfa2T203e87sMsx2MKw/H3y
0lpLp9hf7T72hQuPfCcUY6QHgkxL8P/Oz+n7dr9Mc5xncCSwD4x7sGfP+Z8Yll5c9A91jhEe3ssS/95w
6YeQrFnzP84KtrvywWJtAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
</root>

171
DPM2016/Patient/Patient.vb Normal file
View File

@@ -0,0 +1,171 @@
Public Class Patient
Dim m_nrpatient As Integer
Property PatientNr As Integer
Get
Return m_nrpatient
End Get
Set(value As Integer)
Globals.OnLoad = True
m_nrpatient = value
Me.PatientDetails1.PatientNr = value
Me.PatientAbrechnung1.PatientNr = value
Me.Behandlung1.PatientNr = value
Me.Finanzen1.Patientnr = value
Globals.OnLoad = False
End Set
End Property
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If detail_has_changes() = False Then
e.Cancel = True
End If
End Sub
Function detail_has_changes()
Dim res As Boolean = False
If Me.PatientDetails1.HasChanges Then res = True
If PatientAbrechnung1.HasChanges Then res = True
If res = True Then
Dim qres As MsgBoxResult
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
Select Case qres
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Return True
Case MsgBoxResult.Yes
save_data()
Return True
End Select
Else
Return True
End If
End Function
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.tsbtnfirst_Click(sender, e)
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
save_data()
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat
db.Dispose()
End If
End Sub
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
If nr = Me.PatientNr Then Me.Text = name
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub save_data()
evh.Fire_PatSaved(Me.PatientNr)
End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
Me.Text = PatientDetails1.Patientname
End Sub
Private 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", "", db.Get_SQL(9))
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
Try
db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
Try
db.Get_Tabledata("Patient", "", db.Get_SQL(12), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Privat")
db.Get_Tabledata("Privat", " where nrprivat=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
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.Add(r)
db.Update_Data()
Me.PatientNr = newkey
db.Dispose()
End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data()
End If
End Sub
End Class

650
DPM2016/Patient/PatientAbrechnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,650 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PatientAbrechnung
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cbboxnrzahnarzt = New DPM2016.MyCombobox()
Me.cbboxnrhausarzt = New DPM2016.MyCombobox()
Me.CBBOXNRFs = New DPM2016.MyCombobox()
Me.CBBOXNRIV = New DPM2016.MyCombobox()
Me.cbboxNRKK = New DPM2016.MyCombobox()
Me.cbboxNRVS = New DPM2016.MyCombobox()
Me.cbboxNrGarant = New DPM2016.MyCombobox()
Me.cbboxNrGesVertreter = New DPM2016.MyCombobox()
Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label()
Me.txtFSNR = New System.Windows.Forms.TextBox()
Me.Label25 = New System.Windows.Forms.Label()
Me.Label26 = New System.Windows.Forms.Label()
Me.txtIVNR = New System.Windows.Forms.TextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtKKNR = New System.Windows.Forms.TextBox()
Me.Label23 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtVSNR = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtKorrespondenzadresse = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.cbboxzazRecallTyp = New DPM2016.MyCombobox()
Me.txtzazRecallBemerkung = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtZAZRecallfixmonat = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.chkZAZRECALLTELEFON = New System.Windows.Forms.CheckBox()
Me.txtzazrecall = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbboxESTyp = New DPM2016.MyCombobox()
Me.cbboxNrRGTyp = New DPM2016.MyCombobox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtRabatt = New System.Windows.Forms.TextBox()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox4
'
Me.GroupBox4.BackColor = System.Drawing.Color.Transparent
Me.GroupBox4.Controls.Add(Me.cbboxnrzahnarzt)
Me.GroupBox4.Controls.Add(Me.cbboxnrhausarzt)
Me.GroupBox4.Controls.Add(Me.CBBOXNRFs)
Me.GroupBox4.Controls.Add(Me.CBBOXNRIV)
Me.GroupBox4.Controls.Add(Me.cbboxNRKK)
Me.GroupBox4.Controls.Add(Me.cbboxNRVS)
Me.GroupBox4.Controls.Add(Me.cbboxNrGarant)
Me.GroupBox4.Controls.Add(Me.cbboxNrGesVertreter)
Me.GroupBox4.Controls.Add(Me.Label30)
Me.GroupBox4.Controls.Add(Me.Label29)
Me.GroupBox4.Controls.Add(Me.Label27)
Me.GroupBox4.Controls.Add(Me.Label28)
Me.GroupBox4.Controls.Add(Me.txtFSNR)
Me.GroupBox4.Controls.Add(Me.Label25)
Me.GroupBox4.Controls.Add(Me.Label26)
Me.GroupBox4.Controls.Add(Me.txtIVNR)
Me.GroupBox4.Controls.Add(Me.Label24)
Me.GroupBox4.Controls.Add(Me.txtKKNR)
Me.GroupBox4.Controls.Add(Me.Label23)
Me.GroupBox4.Controls.Add(Me.Label22)
Me.GroupBox4.Controls.Add(Me.txtVSNR)
Me.GroupBox4.Controls.Add(Me.Label19)
Me.GroupBox4.Controls.Add(Me.Label20)
Me.GroupBox4.Controls.Add(Me.Label21)
Me.GroupBox4.Location = New System.Drawing.Point(259, 3)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(348, 424)
Me.GroupBox4.TabIndex = 11
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Beziehungen"
'
'cbboxnrzahnarzt
'
Me.cbboxnrzahnarzt.Dataselection = Nothing
Me.cbboxnrzahnarzt.Displaymember = Nothing
Me.cbboxnrzahnarzt.Location = New System.Drawing.Point(122, 305)
Me.cbboxnrzahnarzt.Name = "cbboxnrzahnarzt"
Me.cbboxnrzahnarzt.SelectedValue = Nothing
Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 22)
Me.cbboxnrzahnarzt.TabIndex = 45
Me.cbboxnrzahnarzt.Table = Nothing
Me.cbboxnrzahnarzt.Valuemember = Nothing
'
'cbboxnrhausarzt
'
Me.cbboxnrhausarzt.Dataselection = Nothing
Me.cbboxnrhausarzt.Displaymember = Nothing
Me.cbboxnrhausarzt.Location = New System.Drawing.Point(123, 277)
Me.cbboxnrhausarzt.Name = "cbboxnrhausarzt"
Me.cbboxnrhausarzt.SelectedValue = Nothing
Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 22)
Me.cbboxnrhausarzt.TabIndex = 44
Me.cbboxnrhausarzt.Table = Nothing
Me.cbboxnrhausarzt.Valuemember = Nothing
'
'CBBOXNRFs
'
Me.CBBOXNRFs.Dataselection = Nothing
Me.CBBOXNRFs.Displaymember = Nothing
Me.CBBOXNRFs.Location = New System.Drawing.Point(123, 223)
Me.CBBOXNRFs.Name = "CBBOXNRFs"
Me.CBBOXNRFs.SelectedValue = Nothing
Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 22)
Me.CBBOXNRFs.TabIndex = 43
Me.CBBOXNRFs.Table = Nothing
Me.CBBOXNRFs.Valuemember = Nothing
'
'CBBOXNRIV
'
Me.CBBOXNRIV.Dataselection = Nothing
Me.CBBOXNRIV.Displaymember = Nothing
Me.CBBOXNRIV.Location = New System.Drawing.Point(123, 176)
Me.CBBOXNRIV.Name = "CBBOXNRIV"
Me.CBBOXNRIV.SelectedValue = Nothing
Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 22)
Me.CBBOXNRIV.TabIndex = 42
Me.CBBOXNRIV.Table = Nothing
Me.CBBOXNRIV.Valuemember = Nothing
'
'cbboxNRKK
'
Me.cbboxNRKK.Dataselection = Nothing
Me.cbboxNRKK.Displaymember = Nothing
Me.cbboxNRKK.Location = New System.Drawing.Point(123, 122)
Me.cbboxNRKK.Name = "cbboxNRKK"
Me.cbboxNRKK.SelectedValue = Nothing
Me.cbboxNRKK.Size = New System.Drawing.Size(208, 22)
Me.cbboxNRKK.TabIndex = 41
Me.cbboxNRKK.Table = Nothing
Me.cbboxNRKK.Valuemember = Nothing
'
'cbboxNRVS
'
Me.cbboxNRVS.Dataselection = Nothing
Me.cbboxNRVS.Displaymember = Nothing
Me.cbboxNRVS.Location = New System.Drawing.Point(123, 70)
Me.cbboxNRVS.Name = "cbboxNRVS"
Me.cbboxNRVS.SelectedValue = Nothing
Me.cbboxNRVS.Size = New System.Drawing.Size(208, 22)
Me.cbboxNRVS.TabIndex = 40
Me.cbboxNRVS.Table = Nothing
Me.cbboxNRVS.Valuemember = Nothing
'
'cbboxNrGarant
'
Me.cbboxNrGarant.Dataselection = Nothing
Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(123, 42)
Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.SelectedValue = Nothing
Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 22)
Me.cbboxNrGarant.TabIndex = 39
Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.Valuemember = Nothing
'
'cbboxNrGesVertreter
'
Me.cbboxNrGesVertreter.Dataselection = Nothing
Me.cbboxNrGesVertreter.Displaymember = Nothing
Me.cbboxNrGesVertreter.Location = New System.Drawing.Point(123, 14)
Me.cbboxNrGesVertreter.Name = "cbboxNrGesVertreter"
Me.cbboxNrGesVertreter.SelectedValue = Nothing
Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 22)
Me.cbboxNrGesVertreter.TabIndex = 38
Me.cbboxNrGesVertreter.Table = Nothing
Me.cbboxNrGesVertreter.Valuemember = Nothing
'
'Label30
'
Me.Label30.AutoSize = True
Me.Label30.Location = New System.Drawing.Point(17, 307)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(99, 13)
Me.Label30.TabIndex = 37
Me.Label30.Text = "Überweisender Arzt"
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Location = New System.Drawing.Point(17, 280)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(49, 13)
Me.Label29.TabIndex = 35
Me.Label29.Text = "Hausarzt"
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(17, 254)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(90, 13)
Me.Label27.TabIndex = 33
Me.Label27.Text = "Fürsorge-Nummer"
'
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.Location = New System.Drawing.Point(17, 229)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(48, 13)
Me.Label28.TabIndex = 32
Me.Label28.Text = "Fürsorge"
'
'txtFSNR
'
Me.txtFSNR.Location = New System.Drawing.Point(123, 251)
Me.txtFSNR.Name = "txtFSNR"
Me.txtFSNR.Size = New System.Drawing.Size(208, 20)
Me.txtFSNR.TabIndex = 31
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Location = New System.Drawing.Point(17, 204)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(34, 13)
Me.Label25.TabIndex = 29
Me.Label25.Text = "IV-Nr."
'
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.Location = New System.Drawing.Point(17, 179)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(17, 13)
Me.Label26.TabIndex = 28
Me.Label26.Text = "IV"
'
'txtIVNR
'
Me.txtIVNR.Location = New System.Drawing.Point(123, 201)
Me.txtIVNR.Name = "txtIVNR"
Me.txtIVNR.Size = New System.Drawing.Size(208, 20)
Me.txtIVNR.TabIndex = 27
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Location = New System.Drawing.Point(17, 153)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(92, 13)
Me.Label24.TabIndex = 25
Me.Label24.Text = "Krankenkasse-Nr."
'
'txtKKNR
'
Me.txtKKNR.Location = New System.Drawing.Point(123, 150)
Me.txtKKNR.Name = "txtKKNR"
Me.txtKKNR.Size = New System.Drawing.Size(208, 20)
Me.txtKKNR.TabIndex = 24
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(17, 128)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(75, 13)
Me.Label23.TabIndex = 23
Me.Label23.Text = "Krankenkasse"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(17, 102)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(91, 13)
Me.Label22.TabIndex = 21
Me.Label22.Text = "Versicherungs-Nr."
'
'txtVSNR
'
Me.txtVSNR.Location = New System.Drawing.Point(123, 95)
Me.txtVSNR.Name = "txtVSNR"
Me.txtVSNR.Size = New System.Drawing.Size(208, 20)
Me.txtVSNR.TabIndex = 7
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(17, 75)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(69, 13)
Me.Label19.TabIndex = 6
Me.Label19.Text = "Versicherung"
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(17, 49)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(39, 13)
Me.Label20.TabIndex = 5
Me.Label20.Text = "Garant"
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Location = New System.Drawing.Point(17, 24)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(57, 13)
Me.Label21.TabIndex = 4
Me.Label21.Text = "Ges. Vertr."
'
'GroupBox3
'
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
Me.GroupBox3.Controls.Add(Me.Label12)
Me.GroupBox3.Controls.Add(Me.txtKorrespondenzadresse)
Me.GroupBox3.Location = New System.Drawing.Point(4, 302)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(249, 125)
Me.GroupBox3.TabIndex = 10
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Korrespondenzadresse"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(17, 22)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(45, 13)
Me.Label12.TabIndex = 19
Me.Label12.Text = "Adresse"
'
'txtKorrespondenzadresse
'
Me.txtKorrespondenzadresse.Location = New System.Drawing.Point(81, 19)
Me.txtKorrespondenzadresse.Multiline = True
Me.txtKorrespondenzadresse.Name = "txtKorrespondenzadresse"
Me.txtKorrespondenzadresse.Size = New System.Drawing.Size(161, 100)
Me.txtKorrespondenzadresse.TabIndex = 18
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
Me.GroupBox2.Controls.Add(Me.cbboxnrbehandler)
Me.GroupBox2.Controls.Add(Me.cbboxzazRecallTyp)
Me.GroupBox2.Controls.Add(Me.txtzazRecallBemerkung)
Me.GroupBox2.Controls.Add(Me.Label11)
Me.GroupBox2.Controls.Add(Me.Label10)
Me.GroupBox2.Controls.Add(Me.txtZAZRecallfixmonat)
Me.GroupBox2.Controls.Add(Me.Label9)
Me.GroupBox2.Controls.Add(Me.chkZAZRECALLTELEFON)
Me.GroupBox2.Controls.Add(Me.txtzazrecall)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.Label7)
Me.GroupBox2.Location = New System.Drawing.Point(3, 111)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(250, 184)
Me.GroupBox2.TabIndex = 9
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Recall"
'
'cbboxnrbehandler
'
Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(82, 18)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.SelectedValue = Nothing
Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 22)
Me.cbboxnrbehandler.TabIndex = 18
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.Valuemember = Nothing
'
'cbboxzazRecallTyp
'
Me.cbboxzazRecallTyp.Dataselection = Nothing
Me.cbboxzazRecallTyp.Displaymember = Nothing
Me.cbboxzazRecallTyp.Location = New System.Drawing.Point(82, 72)
Me.cbboxzazRecallTyp.Name = "cbboxzazRecallTyp"
Me.cbboxzazRecallTyp.SelectedValue = Nothing
Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxzazRecallTyp.TabIndex = 9
Me.cbboxzazRecallTyp.Table = Nothing
Me.cbboxzazRecallTyp.Valuemember = Nothing
'
'txtzazRecallBemerkung
'
Me.txtzazRecallBemerkung.Location = New System.Drawing.Point(82, 129)
Me.txtzazRecallBemerkung.Multiline = True
Me.txtzazRecallBemerkung.Name = "txtzazRecallBemerkung"
Me.txtzazRecallBemerkung.Size = New System.Drawing.Size(161, 49)
Me.txtzazRecallBemerkung.TabIndex = 17
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(17, 132)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(61, 13)
Me.Label11.TabIndex = 16
Me.Label11.Text = "Bemerkung"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(17, 102)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(62, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "Fixer Monat"
'
'txtZAZRecallfixmonat
'
Me.txtZAZRecallfixmonat.Location = New System.Drawing.Point(82, 99)
Me.txtZAZRecallfixmonat.Name = "txtZAZRecallfixmonat"
Me.txtZAZRecallfixmonat.Size = New System.Drawing.Size(58, 20)
Me.txtZAZRecallfixmonat.TabIndex = 14
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(17, 75)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(25, 13)
Me.Label9.TabIndex = 12
Me.Label9.Text = "Typ"
'
'chkZAZRECALLTELEFON
'
Me.chkZAZRECALLTELEFON.AutoSize = True
Me.chkZAZRECALLTELEFON.Location = New System.Drawing.Point(157, 47)
Me.chkZAZRECALLTELEFON.Name = "chkZAZRECALLTELEFON"
Me.chkZAZRECALLTELEFON.Size = New System.Drawing.Size(77, 17)
Me.chkZAZRECALLTELEFON.TabIndex = 11
Me.chkZAZRECALLTELEFON.Text = "telefonisch"
Me.chkZAZRECALLTELEFON.UseVisualStyleBackColor = True
'
'txtzazrecall
'
Me.txtzazrecall.Location = New System.Drawing.Point(82, 46)
Me.txtzazrecall.Name = "txtzazrecall"
Me.txtzazrecall.Size = New System.Drawing.Size(58, 20)
Me.txtzazrecall.TabIndex = 10
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(17, 49)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(44, 13)
Me.Label8.TabIndex = 9
Me.Label8.Text = "Intervall"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(17, 22)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(55, 13)
Me.Label7.TabIndex = 8
Me.Label7.Text = "Behandler"
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
Me.GroupBox1.Controls.Add(Me.cbboxESTyp)
Me.GroupBox1.Controls.Add(Me.cbboxNrRGTyp)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.txtRabatt)
Me.GroupBox1.Location = New System.Drawing.Point(3, 3)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(250, 102)
Me.GroupBox1.TabIndex = 8
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Abrechnung"
'
'cbboxESTyp
'
Me.cbboxESTyp.Dataselection = Nothing
Me.cbboxESTyp.Displaymember = Nothing
Me.cbboxESTyp.Location = New System.Drawing.Point(84, 72)
Me.cbboxESTyp.Name = "cbboxESTyp"
Me.cbboxESTyp.SelectedValue = Nothing
Me.cbboxESTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxESTyp.TabIndex = 8
Me.cbboxESTyp.Table = Nothing
Me.cbboxESTyp.Valuemember = Nothing
'
'cbboxNrRGTyp
'
Me.cbboxNrRGTyp.Dataselection = Nothing
Me.cbboxNrRGTyp.Displaymember = Nothing
Me.cbboxNrRGTyp.Location = New System.Drawing.Point(83, 14)
Me.cbboxNrRGTyp.Name = "cbboxNrRGTyp"
Me.cbboxNrRGTyp.SelectedValue = Nothing
Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxNrRGTyp.TabIndex = 7
Me.cbboxNrRGTyp.Table = Nothing
Me.cbboxNrRGTyp.Valuemember = Nothing
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(17, 75)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(59, 13)
Me.Label6.TabIndex = 6
Me.Label6.Text = "Einzahlung"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(17, 49)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Rabatt"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(17, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(25, 13)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Typ"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(194, 49)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(15, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "%"
'
'txtRabatt
'
Me.txtRabatt.Location = New System.Drawing.Point(83, 46)
Me.txtRabatt.Name = "txtRabatt"
Me.txtRabatt.Size = New System.Drawing.Size(108, 20)
Me.txtRabatt.TabIndex = 1
'
'PatientAbrechnung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "PatientAbrechnung"
Me.Size = New System.Drawing.Size(617, 436)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents txtFSNR As System.Windows.Forms.TextBox
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents txtIVNR As System.Windows.Forms.TextBox
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents txtKKNR As System.Windows.Forms.TextBox
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents txtVSNR As System.Windows.Forms.TextBox
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtKorrespondenzadresse As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents txtzazRecallBemerkung As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtZAZRecallfixmonat As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents chkZAZRECALLTELEFON As System.Windows.Forms.CheckBox
Friend WithEvents txtzazrecall As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtRabatt As System.Windows.Forms.TextBox
Friend WithEvents cbboxNrRGTyp As DPM2016.MyCombobox
Friend WithEvents cbboxESTyp As DPM2016.MyCombobox
Friend WithEvents cbboxzazRecallTyp As DPM2016.MyCombobox
Friend WithEvents cbboxnrbehandler As DPM2016.MyCombobox
Friend WithEvents cbboxNrGarant As DPM2016.MyCombobox
Friend WithEvents cbboxNrGesVertreter As DPM2016.MyCombobox
Friend WithEvents CBBOXNRFs As DPM2016.MyCombobox
Friend WithEvents CBBOXNRIV As DPM2016.MyCombobox
Friend WithEvents cbboxNRKK As DPM2016.MyCombobox
Friend WithEvents cbboxNRVS As DPM2016.MyCombobox
Friend WithEvents cbboxnrzahnarzt As DPM2016.MyCombobox
Friend WithEvents cbboxnrhausarzt As DPM2016.MyCombobox
End Class

120
DPM2016/Patient/PatientAbrechnung.resx Normal file
View File

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

407
DPM2016/Patient/PatientAbrechnung.vb Normal file
View File

@@ -0,0 +1,407 @@
Public Class PatientAbrechnung
#Region "Properties"
Dim m_patientnr As Integer
Property PatientNr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
Try
If value = 0 Then Exit Property
m_patientnr = value
Fill_Stammdaten()
Get_Data()
Catch ex As Exception
log.Writelog("PatientAbrechnung: PatientNr Set: " + ex.Message, clsLog.Logtype.ApplError)
Dim a As Integer = 1
End Try
End Set
End Property
Dim m_haschanges As Boolean
Property HasChanges As Boolean
Get
Return m_haschanges
End Get
Set(value As Boolean)
m_haschanges = value
End Set
End Property
#End Region
#Region "Deklarationen"
Dim DB As New clsDB
Dim log As New clsLog
Dim FormReadonly As Boolean = False
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.HasChanges Then
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
Select Case msgres
Case MsgBoxResult.Yes
Save_Data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.HasChanges = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.HasChanges = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.HasChanges = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Daten_Laden"
Public Sub Fill_Stammdaten()
Me.cbboxNrRGTyp.Table = "RGTyp"
Me.cbboxNrRGTyp.Displaymember = "BezD"
Me.cbboxNrRGTyp.Valuemember = "nrrgtyp"
Me.cbboxESTyp.Table = "ESTyp"
Me.cbboxESTyp.Displaymember = "estyp"
Me.cbboxESTyp.Valuemember = "nrestyp"
Me.cbboxzazRecallTyp.Table = "RecallTyp"
Me.cbboxzazRecallTyp.Displaymember = "RecallTyp"
Me.cbboxzazRecallTyp.Valuemember = "nrrecalltyp"
Me.cbboxnrbehandler.Dataselection = DB.Get_SQL(2)
Me.cbboxnrbehandler.Table = "Behandler"
Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat"
Me.cbboxNrGesVertreter.Dataselection = DB.Get_SQL(3)
Me.cbboxNrGesVertreter.Table = "GesVertreter"
Me.cbboxNrGesVertreter.Displaymember = "Name"
Me.cbboxNrGesVertreter.Valuemember = "nrprivat"
Me.cbboxNrGarant.Dataselection = DB.Get_SQL(4)
Me.cbboxNrGarant.Table = "Garant"
Me.cbboxNrGarant.Displaymember = "Name"
Me.cbboxNrGarant.Valuemember = "nrprivat"
Me.cbboxNRVS.Dataselection = DB.Get_SQL(5)
Me.cbboxNRVS.Table = "Versicherung"
Me.cbboxNRVS.Displaymember = "Firmenname"
Me.cbboxNRVS.Valuemember = "nrfirma"
Me.cbboxNRKK.Dataselection = DB.Get_SQL(6)
Me.cbboxNRKK.Table = "Krankenkasse"
Me.cbboxNRKK.Displaymember = "Firmenname"
Me.cbboxNRKK.Valuemember = "nrfirma"
Me.CBBOXNRIV.Dataselection = DB.Get_SQL(7)
Me.CBBOXNRIV.Table = "IVStelle"
Me.CBBOXNRIV.Displaymember = "Firmenname"
Me.CBBOXNRIV.Valuemember = "nrfirma"
Me.CBBOXNRFs.Dataselection = DB.Get_SQL(8)
Me.CBBOXNRFs.Table = "Fürsorgestelle"
Me.CBBOXNRFs.Displaymember = "Firmenname"
Me.CBBOXNRFs.Valuemember = "nrfirma"
Me.cbboxnrhausarzt.Dataselection = DB.Get_SQL(13)
Me.cbboxnrhausarzt.Table = "Hausarzt"
Me.cbboxnrhausarzt.Displaymember = "Name"
Me.cbboxnrhausarzt.Valuemember = "nrprivat"
Me.cbboxnrzahnarzt.Dataselection = DB.Get_SQL(14)
Me.cbboxnrzahnarzt.Table = "Zahnarzt"
Me.cbboxnrzahnarzt.Displaymember = "Name"
Me.cbboxnrzahnarzt.Valuemember = "nrprivat"
End Sub
Sub Get_Data()
DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
Get_Data_Controls(Me, r)
AddChanges(Me)
Me.HasChanges = False
End Sub
Sub Get_Data_Controls(ByVal ictl As Control, ByRef R As DataRow)
For Each ctl As Control In ictl.Controls
If ctl.Controls.Count = 0 Or (ctl.Controls.Count = 1 And Microsoft.VisualBasic.Left(UCase(ctl.Name), 5) = "CBBOX") Then
get_data_for_control(ctl, R)
Else
Get_Data_Controls(ctl, R)
End If
Next
End Sub
Sub get_data_for_control(ByRef ctl As Control, ByRef R As DataRow)
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
Try
If UCase(ctl.Name) = "TXT" + UCase(c.ColumnName) Then
ctl.Text = R(c.ColumnName)
Exit For
End If
If UCase(ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
If UCase(c.ColumnName) = "NRFS" Then
End If
Dim ct As MyCombobox
Dim o As Object = ctl
Try
o.SelectedValue = R(c.ColumnName)
Catch
o.selectedvalue = -1
End Try
Exit For
End If
If UCase(ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = ctl
dt.Value = R(c.ColumnName)
Exit For
End If
If UCase(ctl.Name) = "CHK" + UCase(c.ColumnName) Then
Dim dt As CheckBox
dt = ctl
Try
dt.Checked = R(c.ColumnName)
Exit For
Catch
dt.Checked = False
End Try
End If
Catch ex As Exception
MsgBox(ex.Message + " / " + ctl.Name + " / " + R(c.ColumnName))
End Try
Next
End Sub
#End Region
#Region "Daten speichern"
Public Sub Save_Data()
DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
Save_Data_Controls(Me, r)
r("Mutiert_am") = Now
r("mutierer") = Globals.ActUser
DB.Update_Data()
Me.HasChanges = False
End Sub
Sub Save_Data_Controls(ByVal ictl As Control, ByRef r As DataRow)
For Each ctl As Control In ictl.Controls
If ctl.Controls.Count = 0 Or (ctl.Controls.Count = 1 And Microsoft.VisualBasic.Left(UCase(ctl.Name), 5) = "CBBOX") Then
Save_Data_for_Control(ctl, r)
Else
Save_Data_Controls(ctl, r)
End If
Next
End Sub
Sub Save_Data_for_Control(ByRef ctl As Control, ByRef r As DataRow)
Dim ctlname As String
Dim colname As String
ctlname = ctl.Name
Try
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
colname = c.ColumnName
If UCase(ctl.Name) = "TXT" + UCase(c.ColumnName) Then
r(c.ColumnName) = ctl.Text
Exit For
End If
If UCase(ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = ctl
Try
If o.selectedvalue Is System.DBNull.Value Or o.selectedvalue Is Nothing Then
r(c.ColumnName) = -1
Else
r(c.ColumnName) = o.selectedvalue
End If
Catch ex As Exception
r(c.ColumnName) = -1
End Try
Exit For
End If
If UCase(ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = ctl
r(c.ColumnName) = dt.Value
Exit For
End If
If UCase(ctl.Name) = "CHK" + UCase(c.ColumnName) Then
Dim dt As CheckBox
dt = ctl
r(c.ColumnName) = dt.Checked
Exit For
End If
Next
Catch ex As Exception
log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
End Try
End Sub
#End Region
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
If Nr = Me.PatientNr Then
Me.Save_Data()
End If
End Sub
End Class

781
DPM2016/Patient/PatientDetails.Designer.vb generated Normal file
View File

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

120
DPM2016/Patient/PatientDetails.resx Normal file
View File

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

446
DPM2016/Patient/PatientDetails.vb Normal file
View File

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

4
DPM2016/Reporting/clsAllgemein.vb Normal file
View File

@@ -0,0 +1,4 @@
Class clsAllgemein
End Class

125
DPM2016/Reporting/frmReportView.Designer.vb generated Normal file
View File

@@ -0,0 +1,125 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmReportView
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReportView))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.previewControl1 = New FastReport.Preview.PreviewControl()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(792, 25)
Me.ToolStrip1.TabIndex = 23
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 = "Schliessen"
'
'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(792, 24)
Me.MenuStrip1.TabIndex = 22
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"
'
'previewControl1
'
Me.previewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.previewControl1.Buttons = CType(((((((((((FastReport.PreviewButtons.Print Or FastReport.PreviewButtons.Open) _
Or FastReport.PreviewButtons.Save) _
Or FastReport.PreviewButtons.Email) _
Or FastReport.PreviewButtons.Find) _
Or FastReport.PreviewButtons.Zoom) _
Or FastReport.PreviewButtons.Outline) _
Or FastReport.PreviewButtons.PageSetup) _
Or FastReport.PreviewButtons.Edit) _
Or FastReport.PreviewButtons.Watermark) _
Or FastReport.PreviewButtons.Navigator), FastReport.PreviewButtons)
Me.previewControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.previewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
Me.previewControl1.Location = New System.Drawing.Point(0, 49)
Me.previewControl1.Name = "previewControl1"
Me.previewControl1.PageOffset = New System.Drawing.Point(10, 10)
Me.previewControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.previewControl1.Size = New System.Drawing.Size(792, 464)
Me.previewControl1.TabIndex = 24
Me.previewControl1.UIStyle = FastReport.Utils.UIStyle.VisualStudio2005
'
'frmReportView
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(792, 513)
Me.Controls.Add(Me.previewControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmReportView"
Me.Text = "frmReportView"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
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 MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Private WithEvents previewControl1 As FastReport.Preview.PreviewControl
End Class

145
DPM2016/Reporting/frmReportView.resx Normal file
View File

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

300
DPM2016/Reporting/frmReportView.vb Normal file
View File

@@ -0,0 +1,300 @@
Public Class frmReportView
Dim splitter() As String
Dim WithEvents freport As New FastReport.Report
Dim ReportNr As Integer
Dim Design As Boolean
Dim Parameter As String
Dim NrBehandlung As String
Dim daten As New DataSet
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 = "")
InitializeComponent()
Me.ReportNr = Reportnr
Me.Design = design
Me.Text = "Auswertung " + Titel
Me.Parameter = Parameter
Me.NrBehandlung = NrBehandlung
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Dim paramdaten As New DataTable
Dim dbr As DataRow = paramdaten.NewRow
Dim db As New clsDB
Public Sub Fakturierung(ByVal reportnr As Integer, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer)
Me.ReportNr = reportnr
Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung
Print_Rechnung(False, False, rate)
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 Print_Rechnung(Optional vorschaue As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0)
Me.ReportNr = Me.ReportNr + 9
If Rate > 1 Then ReportNr = ReportNr + 1
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 / Empä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)
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
'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) = "3"
'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"
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
'paramdaten.Rows.Add(dbr)
'dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "4"
'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"
get_esdaten(Rate)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten"
freport.RegisterData(daten)
'freport.GetDataSource("Daten").Enabled = True
freport.GetDataSource("Behandlungsdaten").Enabled = True
freport.GetDataSource("Leistungen").Enabled = True
freport.GetDataSource("Leistungen_LR").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 vorschaue = True Then
freport.Preview = Me.previewControl1
freport.Show()
End If
If vorschaue = False And design = False Then
freport.PrintSettings.Printer = "Microsoft Print to PDF"
freport.PrintSettings.ShowDialog = False
freport.Print()
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss_" + Me.NrBehandlung.ToString + ".pdf")
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 = True
freport.Export(pdfExport, s)
End If
End Sub
Private Sub get_esdaten(ratenr As Integer)
'ES-Daten auselsen
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) = "1"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@Betrag"
dbr(1) = "0"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@rate"
dbr(1) = ratenr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
Dim Referenznr As String
Dim s As String
Dim S1 As String
s = db.dsDaten.Tables(0).Rows(0).Item("Nur_Franken").ToString
S1 = db.dsDaten.Tables(0).Rows(0).Item("Nur_Rappen").ToString
While Len(S1) < 2
S1 = S1 + "0"
End While
s = s + S1
While Len(s) < 10
s = "0" + s
End While
s = db.dsDaten.Tables(0).Rows(0).Item("vs_belegart").ToString + s
s = s + Trim(Pruefziffer(s)) + ">"
Referenznr = s
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 = Year(Now).ToString
dd = dd.Substring(0, 2)
s = s + dd
dd = Month(Now).ToString
While Len(dd) < 2
dd = "0" + dd
End While
s = s + dd
dd = DatePart(DateInterval.Day, Now)
While Len(dd) < 2
dd = "0" + dd
End While
s = s + Trim(Pruefziffer(s))
Referenznr = Referenznr + "+" + s
db.dsDaten.Tables(0).Rows(0).Item("referenzzeile1") = s + " "
s = db.dsDaten.Tables(0).Rows(0).Item("Vs_teilnehmernummer")
s = s + Trim(Pruefziffer(s)) + ">"
Referenznr = Referenznr + " " + s
db.dsDaten.Tables(0).Rows(0).Item("Referenzzeile2") = Referenznr
End Sub
Public Function Pruefziffer(ByVal zahl As String) As String
Dim ptab(9, 9) As Integer
Dim pz(9) As Integer
Dim s1, s2, s3 As String
Dim i1, i2 As Long
s1 = "0,9,4,6,8,2,7,1,3,5"
s2 = s1
For i1 = 0 To 9
For i2 = 0 To 9
ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
Next
s3 = Microsoft.VisualBasic.Left(s1, 1)
s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
s1 = s1 + "," + s3
s2 = s1
Next
pz(0) = 0
pz(1) = 9
pz(2) = 8
pz(3) = 7
pz(4) = 6
pz(5) = 5
pz(6) = 4
pz(7) = 3
pz(8) = 2
pz(9) = 1
Dim i, x, y, z, e As Integer
Dim xx As String
y = 0
For i = 1 To Len(zahl)
x = Val(Mid(zahl, i, 1))
y = ptab(x, y)
Next
Pruefziffer = Str(pz(y))
End Function
Sub DesignReport()
Dim db As New clsDB
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
Dim daten As New DataSet
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(0).TableName = "Daten"
freport.RegisterData(daten)
'If splitter.Length > 1 Then
' Dim i As Integer
' For i = 0 To splitter.Length - 1
' If splitter(i).ToString.Length > 10 Then
' If i = 0 Then
' freport.GetDataSource("Daten").Enabled = True
' Else
' freport.GetDataSource("Daten_" + i.ToString).Enabled = True
' End If
' End If
' Next
'Else
'End If
'freport.SetParameterValue("Parcours", allg.Get_Option(2))
'freport.SetParameterValue("Spruch", allg.Get_Option(3))
'freport.Preview = Me.previewControl1
freport.GetDataSource("Daten").Enabled = True
If Me.Design = True Then
freport.Design()
MsgBox("Hallo")
Me.Close()
Else
Me.previewControl1.RefreshReport()
freport.Show()
End If
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
End Class

195
DPM2016/Reporting/frmReportauswahl.Designer.vb generated Normal file
View File

@@ -0,0 +1,195 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmReportauswahl
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReportauswahl))
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.TreeAuswertungen = New DevComponents.AdvTree.AdvTree()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node2 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DesignToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReportDateiSpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.TreeAuswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.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(318, 24)
Me.MenuStrip1.TabIndex = 20
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.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(318, 25)
Me.ToolStrip1.TabIndex = 21
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 = "Schliessen"
'
'TreeAuswertungen
'
Me.TreeAuswertungen.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeAuswertungen.AllowDrop = True
Me.TreeAuswertungen.AllowExternalDrop = False
Me.TreeAuswertungen.AllowUserToResizeColumns = False
Me.TreeAuswertungen.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeAuswertungen.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeAuswertungen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeAuswertungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.TreeAuswertungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeAuswertungen.DragDropEnabled = False
Me.TreeAuswertungen.DragDropNodeCopyEnabled = False
Me.TreeAuswertungen.ImageList = Me.ImageList1
Me.TreeAuswertungen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeAuswertungen.Location = New System.Drawing.Point(0, 49)
Me.TreeAuswertungen.Name = "TreeAuswertungen"
Me.TreeAuswertungen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2})
Me.TreeAuswertungen.NodesConnector = Me.NodeConnector1
Me.TreeAuswertungen.NodeStyle = Me.ElementStyle1
Me.TreeAuswertungen.PathSeparator = ";"
Me.TreeAuswertungen.Size = New System.Drawing.Size(318, 436)
Me.TreeAuswertungen.Styles.Add(Me.ElementStyle1)
Me.TreeAuswertungen.TabIndex = 22
Me.TreeAuswertungen.Text = "AdvTree1"
'
'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, "default-document-icon.png")
Me.ImageList1.Images.SetKeyName(1, "Report-48.png")
'
'Node2
'
Me.Node2.Name = "Node2"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DesignToolStripMenuItem, Me.ReportDateiSpeichernToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(196, 48)
'
'DesignToolStripMenuItem
'
Me.DesignToolStripMenuItem.Name = "DesignToolStripMenuItem"
Me.DesignToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.DesignToolStripMenuItem.Text = "Design"
'
'ReportDateiSpeichernToolStripMenuItem
'
Me.ReportDateiSpeichernToolStripMenuItem.Name = "ReportDateiSpeichernToolStripMenuItem"
Me.ReportDateiSpeichernToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
Me.ReportDateiSpeichernToolStripMenuItem.Text = "Report-Datei speichern"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'frmReportauswahl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(318, 485)
Me.Controls.Add(Me.TreeAuswertungen)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmReportauswahl"
Me.Text = "Auswertungen"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.TreeAuswertungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
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 TreeAuswertungen As DevComponents.AdvTree.AdvTree
Friend WithEvents Node2 As DevComponents.AdvTree.Node
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DesignToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ReportDateiSpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
End Class

201
DPM2016/Reporting/frmReportauswahl.resx Normal file
View File

@@ -0,0 +1,201 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>352, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABW
CQAAAk1TRnQBSQFMAgEBAgEAAUABAAFAAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
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/wUAAf8B8gH/CQAB/wEH
Au8K9wHvAbwkAAHsAbwB7QHsAfAB/wgAAfMLByUAAfQBFQHsAv8BBwHsAZIB8gH/BQAB8wsHJQABBwEV
Ae0B8QP/AfQB7wHsAQcEAAHzAbwIBwK8JAAB/wHqARQBBwFJAXIBmAH0A/8B7AH/AwAB8wG8AQcH7QK8
JAAB8gEUAewB8wH0AQgBcgFJAW0B8QHzAfcEAAHzAvAH8QLwJAAB7QESAQcBSQFyAQgC9AHvAfIB9wHz
BAAB8wLwB/EC8CMAAf8BbQHsAvQBBwFyAUkBcgHxAf8B7AUAAfMB8QEHB+0C8SMAAQcCvAERAXIBBwH0
AfIBkgEHArwFAAHzAfIB8QbyA/EjAAHsAfQB8wHyAfcB6gFJAewBvAH0AewB/wUAAfQC8gHwAeoB8wFt
AfIBbQPyIgAB8wH3AfIBEAFtAQcB9AHxAewB7QHzAfcGAAH0C/IiAALwAfQB8QHtARQBEQHsAbwB9AH3
AfMGAAL0CLMBkAHzIgAB/wHvAewB7wLzAbwB6wFtAfQB7AcAAvQJswH0JAAB/wHxAZIB7AEHAfQB8wK8
BwAB9AjzAewBbQHzJwAB/wHwAuwB6wH/BwAB9AjzAesB8ysAAv8JAAn0JAABQgFNAT4HAAE+AwABKAMA
AUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAfEB/wYAAfABPwHAAQMEAAHgAQcBwAEDBAAB4AEDAcABAwQA
AcABAQHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAYABBwHAAQMEAAGAAQcBwAEDBAABgAEHAcABAwUA
AQ8BwAEDBQABDwHAAQMFAAEfAcABAwQAAcABHwHAAQMEAAH4AR8BwAEHBAAB/wE/AeABDwQACw==
</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>509, 17</value>
</metadata>
</root>

55
DPM2016/Reporting/frmReportauswahl.vb Normal file
View File

@@ -0,0 +1,55 @@
Public Class frmReportauswahl
Dim db As New clsDB
Dim grpalt As String = ""
Dim tn As New DevComponents.AdvTree.Node
Private Sub frmReportauswahl_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeAuswertungen.Nodes.Clear()
db.Get_Tabledata("Auswertungen", "", "SELECT * FROM dbo.Auswertung WHERE aktiv=1 ORDER BY gruppe, bezeichnung", "")
For Each r As DataRow In db.dsDaten.Tables(0).Rows
If grpalt <> r.Item("Gruppe") Then
grpalt = r.Item("Gruppe")
tn = New DevComponents.AdvTree.Node
tn.Tag = r.Item("Auswertungnr") * -1
tn.Text = r.Item("Gruppe")
tn.ImageIndex = 0
Me.TreeAuswertungen.Nodes.Add(tn)
End If
Dim tc As New DevComponents.AdvTree.Node
tc.Tag = r.Item("Auswertungnr")
tc.Text = r.Item("Bezeichnung")
tc.ImageIndex = 1
tn.Nodes.Add(tc)
Next
Me.TreeAuswertungen.ExpandAll()
End Sub
Private Sub TreeAuswertungen_Click(sender As Object, e As EventArgs) Handles TreeAuswertungen.Click
End Sub
Private Sub TreeAuswertungen_DoubleClick(sender As Object, e As EventArgs) Handles TreeAuswertungen.DoubleClick
If Me.TreeAuswertungen.SelectedNode.Tag > 0 Then
Dim f As New frmReportView(Me.TreeAuswertungen.SelectedNode.Tag, False, Me.TreeAuswertungen.SelectedNode.Text)
f.MdiParent = Me.MdiParent
f.Show()
End If
End Sub
Private Sub DesignToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignToolStripMenuItem.Click
Dim rpt As New frmReportView(Me.TreeAuswertungen.SelectedNode.Tag, True, Me.TreeAuswertungen.SelectedNode.Text)
rpt.DesignReport()
rpt = Nothing
End Sub
Private Sub ReportDateiSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportDateiSpeichernToolStripMenuItem.Click
Dim db As New clsDB
Dim filename As String
'Me.OpenFileDialog1.AddExtension = "Report-Dateien|*.frx"
OpenFileDialog1.ShowDialog()
If Me.OpenFileDialog1.FileName <> "" Then db.Save_RptDatei(Me.TreeAuswertungen.SelectedNode.Tag, Me.OpenFileDialog1.FileName)
End Sub
End Class

127
DPM2016/Sysadmin/frmAuswertungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,127 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAuswertungen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertungen))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
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(772, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.SchliessenToolStripMenuItem.Text = "Schliessen"
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(772, 25)
Me.ToolStrip1.TabIndex = 16
Me.ToolStrip1.Text = "ToolStrip1"
'
'C1Auswertungen
'
Me.C1Auswertungen.AlternatingRows = True
Me.C1Auswertungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Auswertungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Auswertungen.FilterBar = True
Me.C1Auswertungen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Auswertungen.Images.Add(CType(resources.GetObject("C1Auswertungen.Images"), System.Drawing.Image))
Me.C1Auswertungen.Location = New System.Drawing.Point(0, 49)
Me.C1Auswertungen.Name = "C1Auswertungen"
Me.C1Auswertungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Auswertungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Auswertungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Auswertungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Auswertungen.Size = New System.Drawing.Size(772, 400)
Me.C1Auswertungen.TabIndex = 17
Me.C1Auswertungen.Text = "C1TrueDBGrid1"
Me.C1Auswertungen.PropBag = resources.GetString("C1Auswertungen.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(153, 48)
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
'
'frmAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(772, 449)
Me.Controls.Add(Me.C1Auswertungen)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmAuswertungen"
Me.Text = "frmAuswertungen"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SchliessenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents C1Auswertungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
End Class

169
DPM2016/Sysadmin/frmAuswertungen.resx Normal file
View File

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

36
DPM2016/Sysadmin/frmAuswertungen.vb Normal file
View File

@@ -0,0 +1,36 @@
Public Class frmAuswertungen
Dim db As New clsDB
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub frmAuswertungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
db.Get_Tabledata("Auswertung")
dt = db.dsDaten.Tables(0).Copy
Me.C1Auswertungen.DataSource = dt
Me.C1Auswertungen.DataMember = dt.TableName
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
Try
If C1Auswertungen.Columns("Design_Funktion").Value = "Fakturierung" Then
Dim fnkt As String = Me.C1Auswertungen.Columns("Design_Funktion").Value
Dim param As String = Me.C1Auswertungen.Columns("SQL").Value
Dim behandlung As String = db.Get_Datavalue("Select top 1 nrbehandlung from behandlu order by nrbehandlung desc", "")
Dim f As New frmReportView(Me.C1Auswertungen.Columns("AuswertungNr").Value - 9, True, "Design" + Me.C1Auswertungen.Columns("Bezeichnung").Value, param, behandlung)
f.Show()
f.Print_Rechnung(False, True)
f.Close()
End If
Catch
End Try
End Sub
End Class

210
DPM2016/Sysadmin/frmStammdaten.Designer.vb generated Normal file
View File

@@ -0,0 +1,210 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmStammdaten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Titel")
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Orte")
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Status")
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Patienten", New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4, TreeNode5, TreeNode6})
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif")
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarife")
Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("TarifGruppe")
Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Taxpunkte")
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14})
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode16, TreeNode17, TreeNode18, TreeNode19})
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode21})
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()
Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(957, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'SchliessenToolStripMenuItem
'
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
'
'DentotarImportToolStripMenuItem
'
Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(106, 20)
Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Location = New System.Drawing.Point(0, 24)
Me.TreeView1.Name = "TreeView1"
TreeNode1.Name = "Konto"
TreeNode1.Text = "Konto"
TreeNode2.Name = "Knoten0"
TreeNode2.Text = "Finanzen"
TreeNode3.Name = "Anrede"
TreeNode3.Text = "Anreden"
TreeNode4.Name = "Titel"
TreeNode4.Text = "Titel"
TreeNode5.Name = "Orte"
TreeNode5.Text = "Orte"
TreeNode6.Name = "Status"
TreeNode6.Text = "Status"
TreeNode7.Name = "Knoten7"
TreeNode7.Text = "Patienten"
TreeNode8.Name = "Tarif"
TreeNode8.Text = "Tarif"
TreeNode9.Name = "Tarife"
TreeNode9.Text = "Tarife"
TreeNode10.Name = "tarifgrp"
TreeNode10.Text = "TarifGruppe"
TreeNode11.Name = "Taxpunkt"
TreeNode11.Text = "Taxpunkte"
TreeNode12.Name = "Tarpaket"
TreeNode12.Text = "Tarifpakete"
TreeNode13.Name = "Paketpositionen"
TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar"
TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Knoten8"
TreeNode15.Text = "Tarif"
TreeNode16.Name = "Ansatz"
TreeNode16.Text = "Ansatz"
TreeNode17.Name = "Abrtyp"
TreeNode17.Text = "Abrechnungstyp"
TreeNode18.Name = "ESTyp"
TreeNode18.Text = "Einmzahlungsscheine"
TreeNode19.Name = "RGTyp"
TreeNode19.Text = "Rechnungstyp"
TreeNode20.Name = "Knoten14"
TreeNode20.Text = "Abrechnung"
TreeNode21.Name = "Spalten"
TreeNode21.Text = "Spalten"
TreeNode22.Name = "Diverse"
TreeNode22.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode15, TreeNode20, TreeNode22})
Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(204, 24)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(753, 425)
Me.C1TrueDBGrid1.TabIndex = 2
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'ClsStammdaten_Bez1
'
Me.ClsStammdaten_Bez1.Connectionstring = Nothing
Me.ClsStammdaten_Bez1.KeyField_left = Nothing
Me.ClsStammdaten_Bez1.KeyField_right = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(575, 294)
Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(434, 170)
Me.ClsStammdaten_Bez1.TabIndex = 4
Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
Me.ClsStammdaten_Bez1.Tablename_left = Nothing
Me.ClsStammdaten_Bez1.Tablename_right = Nothing
'
'ClsStammdaten_flat1
'
Me.ClsStammdaten_flat1.Connectionstring = Nothing
Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(232, 56)
Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(558, 232)
Me.ClsStammdaten_flat1.TabIndex = 3
Me.ClsStammdaten_flat1.Tablename = Nothing
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
'
'frmStammdaten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(957, 449)
Me.Controls.Add(Me.ClsStammdaten_Bez1)
Me.Controls.Add(Me.ClsStammdaten_flat1)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Controls.Add(Me.TreeView1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmStammdaten"
Me.Text = "frmStammdaten"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ClsStammdaten_flat1 As DPM2016.clsStammdaten_flat
Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog
End Class

7375
DPM2016/Sysadmin/frmStammdaten.resx Normal file
View File

File diff suppressed because it is too large Load Diff

149
DPM2016/Sysadmin/frmStammdaten.vb Normal file
View File

@@ -0,0 +1,149 @@
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Public Class frmStammdaten
Dim db As New clsDB
Dim spalten As New Tabellenspalte
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Try
If Me.TreeView1.SelectedNode.Tag <> "" Then
Dim splitter()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
If splitter.Length > 1 Then
Dim i As Integer = 0
For Each s As String In splitter
i = i + 1
If i = 1 Then ClsStammdaten_Bez1.KeyField_left = s
If i = 2 Then ClsStammdaten_Bez1.Keyfieldbez_left = s
If i = 3 Then ClsStammdaten_Bez1.KeyField_right = s
If i = 4 Then ClsStammdaten_Bez1.Keyfieldbez_right = s
If i = 5 Then ClsStammdaten_Bez1.Tablename_left = s
If i = 6 Then ClsStammdaten_Bez1.Tablename_right = s
If i = 7 Then ClsStammdaten_Bez1.Tablename_bottom = s
Try
Catch ex As Exception
End Try
Next
End If
Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
Exit Sub
End If
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = True
Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
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
Me.ClsStammdaten_flat1.get_data()
Try
Catch
End Try
Catch
End Try
End Sub
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll()
End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
If MsgBox("Sind Sie sicher, dass Dentotaf neu importier werden soll?", vbYesNo + vbQuestion) = vbYes Then
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
import_dentotar(OpenFileDialog1.FileName)
End If
End If
End Sub
Private Sub import_dentotar(ByVal Filename As String)
Try
Dim xls As New XlsFile(Filename)
Dim f As New frmprogress(1, xls.RowCount, "Dentotar einlesen")
f.Show()
Dim db As New clsDB
db.Get_Tabledata_for_Update("Dentotar", False, False)
db.daten.WriteXml(Globals.ActUser)
Dim dt As New DataTable
Dim dt_Original As New DataTable
dt = db.daten.Tables(0).Copy
dt_Original = db.daten.Tables(0).Copy
db.Exec_Prod("sp_update_dentotar")
dt.Rows.Clear()
dt.AcceptChanges()
Dim colindex1 As Integer
xls.ActiveSheet = 1
Dim i As Integer = 0
For row As Integer = 2 To xls.RowCount
Dim dr As DataRow = dt.NewRow
i = row
Application.DoEvents()
f.ProgressBar1.Value = row
For colIndex As Integer = 1 To 18
Try
dr.Item(colIndex - 1) = xls.GetCellValue(row, colIndex)
Catch
dr.Item(colIndex - 1) = System.DBNull.Value
End Try
Next
dt.Rows.Add(dr)
Next
f.Init_Progressbar(1, i, "Privat-Punkte nachführen")
For Each r As DataRow In dt.Rows
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
Application.DoEvents()
If Not IsDBNull(r.Item("Leistungnrneu")) Then
Dim dv As New DataView(dt_Original, "leistungnrneu='" + r.Item("Leistungnrneu") + "'", "", DataViewRowState.CurrentRows)
Dim drv As DataRowView = dv.Item(0)
r.Item("PP_Privat") = drv.Item("PP_Privat")
End If
'For Each rr As DataRow In dt_Original.Rows
' Try
' If r.Item("LeistungNrneu") = rr.Item("Leistungnrneu") Then
' Try
' r.Item("PP_Privat") = rr.Item("PP_Privat")
' Catch
' End Try
' Exit For
' End If
' Catch
' End Try
'Next
Next
f.Close()
db.daten.Tables.Clear()
db.daten.Tables.Add(dt.Copy)
db.Update_Tabeldata()
Try
IntTables.Inttables.Tables.Remove("Dentotar")
Catch
End Try
MsgBox("Update Dentotar ist abgeschossen.", vbInformation)
Catch ex As Exception
MsgBox("Update Dentotar: Fehler: " + ex.Message)
End Try
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
End Class

165
DPM2016/Sysadmin/frmSysadminTableSelector.resx Normal file
View File

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

145
DPM2016/Sysadmin/frmSysadminTableSelector.vb Normal file
View File

@@ -0,0 +1,145 @@
Imports System.IO
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmSysadminTableSelector
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Friend WithEvents DataSet1 As System.Data.DataSet
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSysadminTableSelector))
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.DataSet1 = New System.Data.DataSet
Me.ListBox1 = New System.Windows.Forms.ListBox
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "sysobjects", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("xtype", "xtype"), New System.Data.Common.DataColumnMapping("uid", "uid"), New System.Data.Common.DataColumnMapping("info", "info"), New System.Data.Common.DataColumnMapping("status", "status"), New System.Data.Common.DataColumnMapping("base_schema_ver", "base_schema_ver"), New System.Data.Common.DataColumnMapping("replinfo", "replinfo"), New System.Data.Common.DataColumnMapping("parent_obj", "parent_obj"), New System.Data.Common.DataColumnMapping("crdate", "crdate"), New System.Data.Common.DataColumnMapping("ftcatid", "ftcatid"), New System.Data.Common.DataColumnMapping("schema_ver", "schema_ver"), New System.Data.Common.DataColumnMapping("stats_schema_ver", "stats_schema_ver"), New System.Data.Common.DataColumnMapping("type", "type"), New System.Data.Common.DataColumnMapping("userstat", "userstat"), New System.Data.Common.DataColumnMapping("sysstat", "sysstat"), New System.Data.Common.DataColumnMapping("indexdel", "indexdel"), New System.Data.Common.DataColumnMapping("refdate", "refdate"), New System.Data.Common.DataColumnMapping("version", "version"), New System.Data.Common.DataColumnMapping("deltrig", "deltrig"), New System.Data.Common.DataColumnMapping("instrig", "instrig"), New System.Data.Common.DataColumnMapping("updtrig", "updtrig"), New System.Data.Common.DataColumnMapping("seltrig", "seltrig"), New System.Data.Common.DataColumnMapping("category", "category"), New System.Data.Common.DataColumnMapping("cache", "cache")})})
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "[pv_sysobjects_insert]"
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.NVarChar, 128, "name"), New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"), New System.Data.SqlClient.SqlParameter("@xtype", System.Data.SqlDbType.VarChar, 2, "xtype"), New System.Data.SqlClient.SqlParameter("@uid", System.Data.SqlDbType.Int, 2, "uid"), New System.Data.SqlClient.SqlParameter("@info", System.Data.SqlDbType.Int, 2, "info"), New System.Data.SqlClient.SqlParameter("@status", System.Data.SqlDbType.Int, 4, "status"), New System.Data.SqlClient.SqlParameter("@base_schema_ver", System.Data.SqlDbType.Int, 4, "base_schema_ver"), New System.Data.SqlClient.SqlParameter("@replinfo", System.Data.SqlDbType.Int, 4, "replinfo"), New System.Data.SqlClient.SqlParameter("@parent_obj", System.Data.SqlDbType.Int, 4, "parent_obj"), New System.Data.SqlClient.SqlParameter("@crdate", System.Data.SqlDbType.DateTime, 8, "crdate"), New System.Data.SqlClient.SqlParameter("@ftcatid", System.Data.SqlDbType.Int, 2, "ftcatid")})
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
"station id=SHU;packet size=4096"
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "[pv_sysobjects_select]"
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
'
'DataSet1
'
Me.DataSet1.DataSetName = "NewDataSet"
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(8, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(240, 316)
Me.ListBox1.TabIndex = 0
'
'frmSysadminTableSelector
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(256, 349)
Me.Controls.Add(Me.ListBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSysadminTableSelector"
Me.Text = "Tabelle auswählen"
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmSysadminTableSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "dbo.sp_sysobjects_select"
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Catch ex As Exception
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
Me.ListBox1.Items.Add(ds.Tables(0).Rows(i)(0))
Next
Me.SqlConnection1.Close()
End Sub
Private Sub listbox1_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Close()
End Sub
Public Function get_tablename() As String
get_tablename = ""
Me.ShowDialog()
Return Me.ListBox1.SelectedItem
End Function
End Class

33
DPM2016/Utils/Globals.vb Normal file
View File

@@ -0,0 +1,33 @@
Imports System.Math
Module Globals
Public Spaltendaten As New DataTable
Public SQLStatements As New DataTable
Public ActUser As Integer = 1
Public WithEvents EVH As New Generic_Event_Handler
Public OnLoad As Boolean = False
Public Function Round5(ByVal inp As String) As String
Dim Rappen5 As Double
Rappen5 = CDbl(inp)
Rappen5 = Round(Rappen5 * 2, 1) / 2
Return CStr(Rappen5.ToString("#,##0.00"))
End Function
Public Function FindNode(ByVal _nodeCollection As DevComponents.AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As DevComponents.AdvTree.Node
Dim tmpNode As DevComponents.AdvTree.Node
For Each _child As DevComponents.AdvTree.Node 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 Module

14
DPM2016/Utils/clsLog.vb Normal file
View File

@@ -0,0 +1,14 @@
Public Class clsLog
Dim db As New clsDB
Public Enum Logtype
Information = 0
Wartning = 1
ApplError = 2
End Enum
Public Function Writelog(ByVal entry As String, ByVal Ltype As Logtype)
If Ltype >= My.Settings.LogLevel Then db.WriteLog(entry, Ltype)
End Function
End Class

44
DPM2016/app.config Normal file
View File

@@ -0,0 +1,44 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<DPM2016.My.MySettings>
<setting name="ConnectionString" serializeAs="String">
<value>data source=shu00;initial catalog=dpmneu;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
<setting name="LogLevel" serializeAs="String">
<value>2</value>
</setting>
<setting name="TempPath" serializeAs="String">
<value>h:\dpm</value>
</setting>
<setting name="DocArchivPath" serializeAs="String">
<value>h:\dpm\docarchiv</value>
</setting>
</DPM2016.My.MySettings>
</userSettings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>

11692
DPM2016/bin/Debug/1 Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
DPM2016/bin/Debug/Aga.Controls.dll Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Aga.Controls.pdb Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/C1.Win.C1TrueDBGrid.2.dll Normal file
View File

Binary file not shown.

10613
DPM2016/bin/Debug/C1.Win.C1TrueDBGrid.2.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
DPM2016/bin/Debug/DPM2016.exe Normal file
View File

Binary file not shown.

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