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

Update 27.01.2018

Browse Source
This commit is contained in:
Stefan Hutter
2018-01-27 14:40:31 +01:00
parent 29bc02d707
commit 482a2ae3ce
92 changed files with 28687 additions and 1563 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

4
DPM2016.sln
View File

@@ -1,7 +1,7 @@
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013 # Visual Studio 15
VisualStudioVersion = 12.0.40629.0 VisualStudioVersion = 15.0.26228.4
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
EndProject EndProject

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

@@ -27,11 +27,15 @@ Partial Class Behandlung
Me.tsbtndelete = New System.Windows.Forms.ToolStrip() Me.tsbtndelete = New System.Windows.Forms.ToolStrip()
Me.tsbtnnewbehandlung = New System.Windows.Forms.ToolStripButton() Me.tsbtnnewbehandlung = New System.Windows.Forms.ToolStripButton()
Me.tsbtndeletebehandlung = New System.Windows.Forms.ToolStripButton() Me.tsbtndeletebehandlung = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.treebehandlungen = New DevComponents.AdvTree.AdvTree() Me.treebehandlungen = New DevComponents.AdvTree.AdvTree()
Me.ctxmenubehandlung = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ctxmenubehandlung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node2 = New DevComponents.AdvTree.Node() Me.Node2 = New DevComponents.AdvTree.Node()
@@ -49,18 +53,16 @@ Partial Class Behandlung
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail() Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem() Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Leistungen1 = New DPM2016.Leistungen() Me.Leistungen1 = New DPM2016.Leistungen()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem() Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton() Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip() Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtndelete.SuspendLayout() Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -77,10 +79,10 @@ Partial Class Behandlung
' '
'tsbtndelete 'tsbtndelete
' '
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung}) Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0) Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtndelete.Name = "tsbtndelete" Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(1050, 25) Me.tsbtndelete.Size = New System.Drawing.Size(1285, 25)
Me.tsbtndelete.TabIndex = 1 Me.tsbtndelete.TabIndex = 1
Me.tsbtndelete.Text = "ToolStrip1" Me.tsbtndelete.Text = "ToolStrip1"
' '
@@ -102,13 +104,22 @@ Partial Class Behandlung
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(23, 22) Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(23, 22)
Me.tsbtndeletebehandlung.Text = "Behandlung löschen" Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
' '
'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 = "Aktualisieren"
'
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.treebehandlungen) Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25) Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(220, 558) Me.GroupBox1.Size = New System.Drawing.Size(220, 813)
Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen" Me.GroupBox1.Text = "Behandlungen"
@@ -137,16 +148,16 @@ Partial Class Behandlung
Me.treebehandlungen.NodesConnector = Me.NodeConnector1 Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1 Me.treebehandlungen.NodeStyle = Me.ElementStyle1
Me.treebehandlungen.PathSeparator = ";" Me.treebehandlungen.PathSeparator = ";"
Me.treebehandlungen.Size = New System.Drawing.Size(214, 539) Me.treebehandlungen.Size = New System.Drawing.Size(214, 794)
Me.treebehandlungen.Styles.Add(Me.ElementStyle1) Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
Me.treebehandlungen.TabIndex = 0 Me.treebehandlungen.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1" Me.treebehandlungen.Text = "AdvTree1"
' '
'ctxmenubehandlung '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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.KopieErstellenToolStripMenuItem})
Me.ctxmenubehandlung.Name = "ContextMenuStrip1" Me.ctxmenubehandlung.Name = "ContextMenuStrip1"
Me.ctxmenubehandlung.Size = New System.Drawing.Size(210, 104) Me.ctxmenubehandlung.Size = New System.Drawing.Size(210, 148)
' '
'NeueBehandlungToolStripMenuItem1 'NeueBehandlungToolStripMenuItem1
' '
@@ -154,12 +165,28 @@ Partial Class Behandlung
Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung" Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
' '
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(206, 6)
'
'BehandlungabschliessenToolStripMenuItem1 'BehandlungabschliessenToolStripMenuItem1
' '
Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1" Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen"
' '
'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"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(206, 6)
'
'BehandlungLöschenToolStripMenuItem1 'BehandlungLöschenToolStripMenuItem1
' '
Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1" Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
@@ -247,15 +274,15 @@ Partial Class Behandlung
Me.SuperTabControl1.ControlBox.Name = "" Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox}) 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.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(220, 25) Me.SuperTabControl1.Location = New System.Drawing.Point(220, 25)
Me.SuperTabControl1.Name = "SuperTabControl1" Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0 Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(830, 558) Me.SuperTabControl1.Size = New System.Drawing.Size(1065, 813)
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.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.TabIndex = 9
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
@@ -267,17 +294,16 @@ Partial Class Behandlung
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1" Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(830, 533) Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1065, 788)
Me.SuperTabControlPanel1.TabIndex = 1 Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
' '
'Panel2 'Panel2
' '
Me.Panel2.Controls.Add(Me.Behandungdetail1) 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.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(830, 533) Me.Panel2.Size = New System.Drawing.Size(1062, 788)
Me.Panel2.TabIndex = 9 Me.Panel2.TabIndex = 9
' '
'Behandungdetail1 'Behandungdetail1
@@ -288,7 +314,7 @@ Partial Class Behandlung
Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6) Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
Me.Behandungdetail1.Name = "Behandungdetail1" Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0 Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(627, 642) Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
Me.Behandungdetail1.TabIndex = 0 Me.Behandungdetail1.TabIndex = 0
' '
'STBehandlung 'STBehandlung
@@ -298,21 +324,13 @@ Partial Class Behandlung
Me.STBehandlung.Name = "STBehandlung" Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung" 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 'SuperTabControlPanel2
' '
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1) Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2" Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(830, 533) Me.SuperTabControlPanel2.Size = New System.Drawing.Size(988, 788)
Me.SuperTabControlPanel2.TabIndex = 0 Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.STLeistung Me.SuperTabControlPanel2.TabItem = Me.STLeistung
' '
@@ -322,7 +340,7 @@ Partial Class Behandlung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(830, 533) Me.Panel1.Size = New System.Drawing.Size(988, 788)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'Leistungen1 'Leistungen1
@@ -330,11 +348,12 @@ Partial Class Behandlung
Me.Leistungen1.behandler = 0 Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0 Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0 Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0) Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Name = "Leistungen1" Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(830, 533) Me.Leistungen1.Size = New System.Drawing.Size(988, 788)
Me.Leistungen1.TabIndex = 0 Me.Leistungen1.TabIndex = 0
' '
'STLeistung 'STLeistung
@@ -344,6 +363,14 @@ Partial Class Behandlung
Me.STLeistung.Name = "STLeistung" Me.STLeistung.Name = "STLeistung"
Me.STLeistung.Text = "Leistungen" Me.STLeistung.Text = "Leistungen"
' '
'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(1065, 813)
Me.SuperTabControlPanel3.TabIndex = 0
'
'tsbtnnew 'tsbtnnew
' '
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -377,21 +404,11 @@ Partial Class Behandlung
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142) Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
' '
'BehandlungZurücksetzenToolStripMenuItem 'KopieErstellenToolStripMenuItem
' '
Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem" Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen" Me.KopieErstellenToolStripMenuItem.Text = "Kopie erstellen"
'
'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 'Behandlung
' '
@@ -401,7 +418,7 @@ Partial Class Behandlung
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.tsbtndelete) Me.Controls.Add(Me.tsbtndelete)
Me.Name = "Behandlung" Me.Name = "Behandlung"
Me.Size = New System.Drawing.Size(1050, 583) Me.Size = New System.Drawing.Size(1285, 838)
Me.tsbtndelete.ResumeLayout(False) Me.tsbtndelete.ResumeLayout(False)
Me.tsbtndelete.PerformLayout() Me.tsbtndelete.PerformLayout()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
@@ -457,4 +474,6 @@ Partial Class Behandlung
Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
Friend WithEvents BehandlungZurücksetzenToolStripMenuItem As ToolStripMenuItem Friend WithEvents BehandlungZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents KopieErstellenToolStripMenuItem As ToolStripMenuItem
End Class End Class

79
DPM2016/Behandlung/Behandlung.resx
View File

@@ -130,10 +130,10 @@
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6 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 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 T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaQdFf3Y+sP3f/sDqf9gm8Q8gMRgG cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwAsbvzUSNPIp4AAAAASUVORK5CYII= 7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -150,6 +150,79 @@
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII= ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA+oSURBVHhe7Z0J8H5THcYp2cJky5IpCqP8LSnrVBSViBiy
VfaQrMkSypYskbQRZQuhKSRbY6eikq1sWcJEEWXLlup5+P/G6/W87+++7znn3nvOfT4zn2nS796cc+/7
vvee812mMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMKZN54FJwVbgR
3BHuAw+Ah8Aj4Dfh4VP/2V5wZ7gZXB3yWJ7jddCYLJkWLgY/DQ+FP4U3wafg/yL5PLwdngsPg1vC98A3
QGNaxUzwo5A36hXwcahu6jr8N7wGHgn5a2NMI0yBfDS6HD4L1c3atJ+AxtTGkvAgeBtUN2SbfBHODvt5
LzwYcizGBMObbCd4C1Q3Ylu9ESrmhxN/ww/6/vCd0JiRWAGeAvlM33vj5SJXwgbxEOz/+5shHxkXhsYM
ZA14Fey/gXJzXTiIX0B1zITXwz3ggtCYl5ZlN4R8LFE3TG7+F84JB3EgVMcpr4W7wgWg6SDcsOM3pro5
cpWPS8Pg6pY6bpj80F0Nd4DzQlM4S8ALoboZcvfbcBj8NVDHVZUrZJfBbeFc0BTEG+FR8D9QXfwSXA9O
xt+hOnZUX4AXQ+7kq2VlkxF8Ab8PqgtdinwUmhtORopfT4a/cAHgM3A2aDJhDngGVBe1NP8Iq/BVqI6P
JaMLzoYMyOSvtmkpK8MHoLqIJfpdWAUuA6vjU/g0PAvy0Y9xa6YFTAf5LckXSnXRSvWTsApvg+r41D4J
T4NrwxmgaQAuQzKiVV2g0mWuSFX+AdU56vJf8CT4Megw/ZpYBnbpkapXxlaNAlef1Hma8FF4PFwNvh6a
BGwA+byrLkAXPAaOAjMY1XmalkvQ34OrQGdORoKBdmqyuyRXjEZhfajO0yYfhN+CK0GGBJkxaOs3Yd2O
GgKyEFTnaav3Q+bsLwtNBfiNcjRUk9k174Dj8BhU52u7d8P9oH9VBsBn0+Ogmrw2+xzky/R5kO8MzFBk
QharlmwMuVewDuTj0haQwYGsbsKx8pg/QZ6j/7zfh+NwCew/Vw4+AleERsBVjh9BNXFtkjcyc0v4WMAb
nslIMV46OX6eix8mlgfi/0eV+CsFC02of/c2exdcBBoBb7A2h43cA/mBYJWTmWHb4cqfGkdbZX5KlViz
zsKbT01ck3KlhfWvWJcqN/hLpMbURs+BOXzpNMZ2UE1cEzJq9gLI9wWGteQKX3K5o63G2CaZ4+I9kSGw
7GYbcjiY/8D3n8VhKTD5SY21DfKL6IvQDIE1nJ6AagLrkhfqVMi9g9Jo42MrZcg8awWYIcwHuUGkJrAu
L4WM8SoVLi+rcTcp92feD80Q+MzJWrdqAuvwYbgJLJ1FoRp/U94LWfzbTMKeUE1gHZ4MmYnYBfii3vQj
7IS/h66aUgE+0jDHWU1iSrmi08Xn3iuhmo865b+D03MrwLTMJgpEcxOqq9UEvwHVnNTpX6A/IBVgjJKa
wJTykarLKaBs9qPmpW6H1RQ2YE2oJi6VzFn3OvvLFd7V/NQtr8dy0AhmhFzBUBOXQm48fgqal1cMWVBB
zVPdsl2dc9QFdWYFcgFg3AjYUmHtXTVXTch7wfTAxi4xm1wO8xnIRznzatqUfMZddO7PmKmwWY2aqNjy
l4Oh6Oa1bArVnDUluwMbsDxkrJOapNgyS89oGICp5qwpeU+UHOJTmd9ANUGxZaVFMxhmKratbNL5sNOw
qp6amNieDp3gPzm/hmr+mrTTuefsM64mJaY3QNeBrQYTk9QcNimjqTsJe3arCYkpu9S6zXF1+I6m5rFp
WWWxc7AkvpqMmDJN11SHyWlqHpv2l7BTvAOmTqFlAxczGsyv5z6Rms8m5YoW75nOwOLEaiJi+U/o8jDj
cR1UczrM38HUVRpZOaYTzAJTLyeyWqEZj1G/vM6FLMfDOVf/eyxZ9b0TMVps8qgmIJa3wJxL8TTNVlDN
q/I7cKIcD+ecPRLV38WShe6K5yKoBh/LD0EzPktDNa+9DirHwwY46u9jWfyS75thypdz/tybMPgYw2BB
Nb+U/9uwb3JeA3VcDPnBZDXIYtkRqoHH0sk2ceBLt5pftkp7HxwG46fUsbHcHRZLyrirzu64JuBY2D+/
7MlRNQSd+xb9x8eS1eyLJHVHIz7/mjhsA3vnlku/fDyuyqqw9/iY8hG9yJJMKYtP85HAxIOV6ifmdmIZ
d1QGPabFsMhU6TOhGmwM+Y1n4jE9ZAOgkKrqKSulsEdMcXCjRw02VIZGvAmauLC1QwiscZUqjZqREkXt
dU2BaqAxZNCjaScpW+VNtpqWFSmXdz8OTTth/r+6ZjHcFRbDz6AaZKispeuwkvbCNN6HoLp2oZ4Gi4Gt
BNQgQ+UHz7QblnVV1y7U22ERcP1cDTCGn4Om3aQKTmXYyawwe1aGaoAx7FQSTaawS5i6djEsIhU31QYh
e5KbPLgVqmsYahGFx1OVtCxys6hQUmWQngCzJ1Xg2t7Q5AHfFdU1DLWIYg4PQDW4UL3/kQ/sWKuuYah8
dMsaJt+ogcXwrdDkAaNv1TUMlc1Hs2YeqAYWavYT00EehOpahjobzJZUrb3Y5NPkBROd1LUM9V0wWxhQ
pgYV6hXQ5AX7fahrGepHYLasDdWgQvUSb36oNN4YZl0KaHOoBhUq91ZMXhwE1bUMNevswi9ANahQvwJN
XqRKeeCXcLZwM08NKtR9ocmL/kIQsdwaZgtrGKlBheo2wfmxLVTXMtSsI7p3gWpQoTrMJD9SBa1mXaj8
81ANKtQvQZMX20N1LUPdDWZLqufOA6DJix2gupah8oOXLal63jF82uTFflBdy1A3gtmSqnjYT6DJi1Q5
IVnvpK8B1aBCdahJfqQKNWG35GxZCqpBhZp9HkAHuQaqaxlq1nUJ5oRqUKGy//m4NWNNM9wL1bUMdXaY
NbyZ1cBCXQSaPGB5HpbpUdcxRLZCmBZmzZ+hGlyo60KTBytBdQ1DvRNmz+VQDS5UByzmQ6qiDUX0pDwF
qsGF6qXefDgGqmsY6qEwe/aAanChst9I9s+fHeEGqK5hqJvC7GHfcjW4GC4JTbthbeYUL+h0WZg97P6U
aoKYkGXaDTP+1LULlffULLAIUq1kXQBNu0nV/oD7KsXwY6gGGerTkL3wTDvhO2Kqelj84BUDq3CrQcaw
yJbAhcD2BOqaxXAzWAyparPSi6BpJydCdc1iWFTpWdboZT9BNdBQGW4wLwxhw6n/aeLBR98nobpmod4N
i+NMqAYbw5COp8xO5DkWeum/mVikar1GfwCLI+WE3QXZUXUU+Kt2Epw4x3rQxONq2HuNYroJLA6Gvr8I
1YBjOMpjEiuC9zf2+Ro0cUhVk5m+AOeGRZIqaYb+AVbhLfAm2H/8xdDEgftT/fMby6L3vvaCatCxnCw/
eQk4qOPVI9CEszRU8xtL1jkoFiY5qUHHkr9Qg1gNPg7VcRO6a1U4Z0E1tzHkxnAx4SWDuAyqwcdyY9gP
N5Weh+rve10HmvFJud9FGZFRPHyZVoOPJR+hZoYTMLFK/Z2SJfrNeHAV8Uao5jWWnWjcOj18GKoJiOWB
cDr4w55/VkUHP45PqjKzE/IdkUvzneAwqCYhls/AcR7l/gbN6MwFH4NqTmPJL73OwFpGqXJEQuUysBmN
c6Cay1iyMk6xex+D6N+oa4trQVOdVAUZemVOe+dYGarJaNr9oakGWzCnqns2IaMvsq6eGMIlUE1Kk54H
zeTMCFVEQmw7Xb1mBagmpUn/Cs1wmCmYckOw1+Vgpzkfqolp0tD8ktI5HKp5i+3PYedZBrZtRWtNaDR1
vJTT56DrL08lVe+Icf0yNK9lbcgMTjVnsf06NFNZGHJzT01UE3Jd37waJpRViWeLITdsmbNjekgdCj+K
90PzCqwcU9cvB90Kmj4YO5U62G0UO7dzO4CtYcpM0H6vh26ONAD2m6vzm2qYq8Ousy+scwGFj3BZ9xys
gyOhmry63Rt2lZlgyio0g+zynFeGuRz3QDWBdcqVtS7CBRM+5qg5SelV0I9WFZgf3gLVJNZpUcWRK8LM
y1TF3obJooJOd67AFMgVJDWJTTgH7ALs4XEGVHNQh0XWuYoNG+2kKk86rh+GpbMlfBSq8dfhadBMAqsu
1rUJNYp7wlJZHqasflhFvuu4fcUkcClRTV4bZMRqafAlvIkVqn5ZXIPvm2YA3Bg8HqrJa4us+VsK74b8
YLRhn+kJ6P6SQ5gVXgjV5LVN9ljMFVYB2QBeCtXYmpAfUG/CDmE+mKotcAq5eJATTGZiIho3XNkqW42p
SbeDZgCLw/ugmri2yvZxbYflOFlU7WjYpmXyfg+GZgAfhG1bxq3iuOUuGQF7JWT2HUPFF4V87wqF51gM
sojzUfBXkC0B1L97m2SFSzMAXkxmiKmJa7t3wHE4Bfafi0vZt0FWcGTVR36j7gK3gZyj9eFGkMveDPne
DR4K2VGJvRi5aJDDh6Hf3aEZAGu27gyvhWry2i6jWcdJ3sntUTKFnDuWJDUVWRDuAZsIhguRNbxGgf0O
1Xm6JHNInPgUABPy94E3QzXBbXLUJqGbQ3WervgsVG0ozJiwQh+7zd4O1YQ37alwFHqbg3bNhyCXmU0i
loKHwDbkhEx4KxwFhsqr85QuH50XgKYmloVHwKbX9vk8XbX1F/Ma1DlK93TY27jI1Ah3h1eC3Ah7EKoL
lFq2Nq7CplAdX6pPwS2gaQlMy1wFsiR+6k5Vve4EqzBqV6ucZettboCalsI9FiY1cSMtdYejk2EVuJmn
ji9JblZyA5Pt9EwmMHKVNXW5gz1Zu+dxZJ78ZPAFVR1bkr+FXEgxGcPeFWzpzDxrPiOrCz2qDNOe7CWU
8Vfq2BJkMQeGxbjySGHwpmZOBMv4hNb/XREO4ziojstZfjFwXG4J0QGYqMVvefadGCd4crK4ojuhOi5X
2buFKQqmgzBTkMuTjJKtGiF7AhwEE8HUMTnKOfkANOYl2OebIedMTR1WqJnFtQfBMHV1TC5y3CxSwYZG
xgyEz9o7QJbE6S/czF8aLgAojoW9f5uLj0BGK7ibkxkZLtsykvc6OHFDDWoqyUSo3huvzfKDfwVkxO0M
0JhgmOPBQnKq2uI8UN2IbZIfCqbncqnWAYWmVriMrG7KpmUNgLPh9tAfCtMYS0Dml18CU+ziV5WBnFzC
ZiIaczIYimNMq+BOM/cO+Hy/P+RuPle/Yu3oUza55CLCiZAfhrWgy3ia7OFGJaNfucewIfwsZEELNjBl
RiUDAA+CbEPN9x0uEHCvhjWvWGz67dDFno0xxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhj
jDHGGGOMMcYYUx7TTPN/9I/rQHu06TcAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="ctxmenubehandlung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ctxmenubehandlung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -163,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAATABAgEwAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DQAAAk1TRnQBSQFMAgEBBQEAAYABAgGAAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

453
DPM2016/Behandlung/Behandlung.vb
View File

@@ -188,7 +188,6 @@ Public Class Behandlung
End Function End Function
#End Region #End Region
#Region "Daten_Laden" #Region "Daten_Laden"
@@ -331,6 +330,270 @@ Public Class Behandlung
End Sub 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
If Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag" Then
Neue_Behandlung(4)
Else
Neue_Behandlung(1)
End If
End Sub
Sub Neue_Behandlung(ByVal Status As Integer)
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("nrestyp") = pat.dsDaten.Tables(0).Rows(0).Item("estyp")
If Status = 4 Then
Dim db1 As New clsDB
db1.Get_Tabledata("ESTYP", "where default_bei_kv=1")
If db1.dsDaten.Tables(0).Rows.Count > 0 Then
r.Item("nrestyp") = db1.dsDaten.Tables(0).Rows(0).Item("nrestyp")
End If
db1.Dispose()
Else
Dim db1 As New clsDB
db1.Get_Tabledata("ESTYP", "where default_bei_rg=1")
If db1.dsDaten.Tables(0).Rows.Count > 0 Then
r.Item("nrestyp") = db1.dsDaten.Tables(0).Rows(0).Item("nrestyp")
End If
db1.Dispose()
End If
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("behandlungsbeginn") = Now
r.Item("status") = Status
r.Item("statusdatum") = Now
r.Item("erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
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("Status") = 9
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
' If MsgBox("Behandlung/KV abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString)
'End If
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
Try
i = Me.treebehandlungen.SelectedNode.Parent.Tag
Catch
i = Me.treebehandlungen.SelectedNode.Tag
End Try
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 -23
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Case -2
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungLöschenToolStripMenuItem1.Enabled = False
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 And
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = True
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
Private Sub BehandlungZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungZurücksetzenToolStripMenuItem.Click
Dim fakt As New clsFakturierung
Dim Result = fakt.verrechnet(Me.treebehandlungen.SelectedNode.Tag)
Select Case Result
Case 0
If MsgBox("Behandlung zurücksetzen?", vbYesNo + vbQuestion, "Behandlung zurücksetzen") = MsgBoxResult.Yes Then
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
End If
Case 1
If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then
fakt.storno(Me.treebehandlungen.SelectedNode.Tag)
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
End If
Case 2
MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
End Select
End Sub
Private Sub Behandlung_Zurücksetzen(ByVal nrbehandlung As Integer)
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
Dim db As New clsDB
Dim result As String
result = db.Get_Datavalue(db.Get_SQL(29), nrbehandlung)
If result <> 0 Then
MsgBox("Behandlung kann nicht zurückgesetzt werden, da Zahlungen vorhanden sind.", vbExclamation)
Exit Sub
End If
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = 1
If db.dsDaten.Tables(0).Rows(0).Item("Status") > 3 Then
db.dsDaten.Tables(0).Rows(0).Item("Status") = 4
Else
db.dsDaten.Tables(0).Rows(0).Item("Status") = 1
End If
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
Sub Behandlung_Abschliessen(ByVal nrbehandlung)
Dim istKV As Boolean = False
If MsgBox("Behandlung/KKV abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Me.Behandungdetail1.Save_Data()
Dim db As New clsDB
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 1 Then
db.dsDaten.Tables(0).Rows(0).Item("Status") = 2
Else
db.dsDaten.Tables(0).Rows(0).Item("Status") = 5
istKV = True
End If
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()
If istKV Then Exit Sub
Dim pat As New clsDB
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Try
If pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall") > 0 Then
Dim Newdate As DateTime
Newdate = DateAdd(DateInterval.Day, pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall"), Now)
evh.Fire_Recall_Anzeigen(Newdate, Me.PatientNr, 1)
End If
Catch ex As Exception
End Try
End If
End Sub
#Region "EVH"
Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
If Me.PatientNr = patientnr Then If Me.PatientNr = patientnr Then
Dim tn As DevComponents.AdvTree.Node Dim tn As DevComponents.AdvTree.Node
@@ -362,133 +625,85 @@ Public Class Behandlung
End Sub End Sub
Private Sub Benhandungdetail1_Load(sender As Object, e As EventArgs) Handles Behandungdetail1.Load Private Sub evh_Behandlung_Zurücksetzen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Zurücksetzen
Behandlung_Zurücksetzen(behandlungsnummer)
End Sub End Sub
Private Sub evh_Behandlung_Abschliessen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Abschliessen
Behandlung_Abschliessen(behandlungsnummer)
End Sub
Private Sub tsbtnnewbehandlung_Click(sender As Object, e As EventArgs) Handles tsbtnnewbehandlung.Click Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs)
Dim db As New clsDB Neue_Behandlung(4)
Dim pat As New clsDB End Sub
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Dim newkey As Integer = db.Get_DBKey("Behandlung")
db.Get_Tabledata("Behandlu", " where nrbehandlung=0")
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Get_Behandlungen()
End Sub
Dim r As DataRow Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click
r = db.dsDaten.Tables(0).NewRow Dim anzahlraten As Integer = 0
DB.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
Dim behandlungsnr As Integer = DB.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
anzahlraten = DB.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
DB.Get_Tabledata("estyp", "where nrestyp=" + DB.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
Dim reportnr As Integer
reportnr = DB.Get_ReportNr(DB.dsDaten.Tables(0).Rows(0).Item("estyp"))
For Each c As DataColumn In db.dsDaten.Tables(0).Columns Dim fakturanr As Integer
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 Try
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey) DB.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
Me.nodeselected() fakturanr = DB.dsDaten.Tables(0).Rows(0).Item(0)
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 Catch
Me.ctxmenubehandlung.Enabled = False fakturanr = 0
End Try End Try
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
DB.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = DB.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = DB.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString)
f.Show()
If fakturanr = 0 Then
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
'f.Print_Rechnung(False, False, i)
f.Close()
'If i = 1 Then
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, 1)
' hauptfaktura = fakt.fakturanr
'Else
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, i, hauptfaktura)
'End If
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
DB.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = DB.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = DB.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub End Sub
#End Region
End Class End Class

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

@@ -42,6 +42,18 @@ Partial Class Benhandungdetail
Me.txtcKVTotal = New System.Windows.Forms.Label() Me.txtcKVTotal = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.GrpGaramt = New System.Windows.Forms.GroupBox() Me.GrpGaramt = New System.Windows.Forms.GroupBox()
Me.lblGesetz = New System.Windows.Forms.Label()
Me.cbboxNrGesetz = New DPM2016.MyCombobox()
Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnDeleteKogudatum = New System.Windows.Forms.Button()
Me.btnDeleteUnfalldatum = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtKostengutsprache_Nummer = New System.Windows.Forms.TextBox()
Me.DDTDatum_Kostengutsprache = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.lblDatumKostengutsprache = New System.Windows.Forms.Label()
Me.DDTUnfalldatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.lblUnfalldatum = New System.Windows.Forms.Label()
Me.lblFallNummer = New System.Windows.Forms.Label() Me.lblFallNummer = New System.Windows.Forms.Label()
Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox() Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.lblAnsprechpartner = New System.Windows.Forms.Label() Me.lblAnsprechpartner = New System.Windows.Forms.Label()
@@ -93,12 +105,20 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
Me.VorschaRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VorschaRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DesignRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DesignRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.GrpRechnungstext = New System.Windows.Forms.GroupBox() Me.GrpRechnungstext = New System.Windows.Forms.GroupBox()
Me.cbboxrgtext = New DPM2016.MyCombobox() Me.cbboxrgtext = New DPM2016.MyCombobox()
Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox() Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
Me.lblDiagnose = New System.Windows.Forms.Label()
Me.txtDiagnose = New System.Windows.Forms.TextBox()
Me.lblGLNListe = New System.Windows.Forms.Label()
Me.txtGLN_Liste = New System.Windows.Forms.TextBox()
Me.grpglndiagnose = New System.Windows.Forms.GroupBox()
Me.GrpPatient.SuspendLayout() Me.GrpPatient.SuspendLayout()
Me.grpZusammenfassugn.SuspendLayout() Me.grpZusammenfassugn.SuspendLayout()
Me.GrpGaramt.SuspendLayout() Me.GrpGaramt.SuspendLayout()
CType(Me.DDTDatum_Kostengutsprache, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DDTUnfalldatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpRaten.SuspendLayout() Me.GrpRaten.SuspendLayout()
CType(Me.txtAnzahlraten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAnzahlraten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.mtxtRatenzuschlag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.mtxtRatenzuschlag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -112,6 +132,7 @@ Partial Class Benhandungdetail
CType(Me.mtxtTaxpunktwert, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.mtxtTaxpunktwert, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.GrpRechnungstext.SuspendLayout() Me.GrpRechnungstext.SuspendLayout()
Me.grpglndiagnose.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GrpPatient 'GrpPatient
@@ -134,7 +155,7 @@ Partial Class Benhandungdetail
Me.cbboxNRESTyp.Location = New System.Drawing.Point(72, 52) Me.cbboxNRESTyp.Location = New System.Drawing.Point(72, 52)
Me.cbboxNRESTyp.Name = "cbboxNRESTyp" Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
Me.cbboxNRESTyp.Size = New System.Drawing.Size(216, 21) Me.cbboxNRESTyp.Size = New System.Drawing.Size(216, 21)
Me.cbboxNRESTyp.TabIndex = 22 Me.cbboxNRESTyp.TabIndex = 1
Me.cbboxNRESTyp.Table = Nothing Me.cbboxNRESTyp.Table = Nothing
Me.cbboxNRESTyp.TableAlias = "" Me.cbboxNRESTyp.TableAlias = ""
Me.cbboxNRESTyp.Valuemember = Nothing Me.cbboxNRESTyp.Valuemember = Nothing
@@ -144,9 +165,9 @@ Partial Class Benhandungdetail
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(6, 56) Me.Label6.Location = New System.Drawing.Point(6, 56)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(59, 13) Me.Label6.Size = New System.Drawing.Size(61, 13)
Me.Label6.TabIndex = 21 Me.Label6.TabIndex = 21
Me.Label6.Text = "Einzahlung" Me.Label6.Text = "Formulartyp"
' '
'cbboxnrbehandler 'cbboxnrbehandler
' '
@@ -155,7 +176,7 @@ Partial Class Benhandungdetail
Me.cbboxnrbehandler.Location = New System.Drawing.Point(72, 24) Me.cbboxnrbehandler.Location = New System.Drawing.Point(72, 24)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler" Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(216, 21) Me.cbboxnrbehandler.Size = New System.Drawing.Size(216, 21)
Me.cbboxnrbehandler.TabIndex = 20 Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.Table = Nothing Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = "" Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing Me.cbboxnrbehandler.Valuemember = Nothing
@@ -308,6 +329,18 @@ Partial Class Benhandungdetail
' '
'GrpGaramt 'GrpGaramt
' '
Me.GrpGaramt.Controls.Add(Me.lblGesetz)
Me.GrpGaramt.Controls.Add(Me.cbboxNrGesetz)
Me.GrpGaramt.Controls.Add(Me.cbboxNrZuweiser)
Me.GrpGaramt.Controls.Add(Me.Label5)
Me.GrpGaramt.Controls.Add(Me.btnDeleteKogudatum)
Me.GrpGaramt.Controls.Add(Me.btnDeleteUnfalldatum)
Me.GrpGaramt.Controls.Add(Me.Label1)
Me.GrpGaramt.Controls.Add(Me.txtKostengutsprache_Nummer)
Me.GrpGaramt.Controls.Add(Me.DDTDatum_Kostengutsprache)
Me.GrpGaramt.Controls.Add(Me.lblDatumKostengutsprache)
Me.GrpGaramt.Controls.Add(Me.DDTUnfalldatum)
Me.GrpGaramt.Controls.Add(Me.lblUnfalldatum)
Me.GrpGaramt.Controls.Add(Me.lblFallNummer) Me.GrpGaramt.Controls.Add(Me.lblFallNummer)
Me.GrpGaramt.Controls.Add(Me.cbboxNrAnsprechpartner) Me.GrpGaramt.Controls.Add(Me.cbboxNrAnsprechpartner)
Me.GrpGaramt.Controls.Add(Me.lblAnsprechpartner) Me.GrpGaramt.Controls.Add(Me.lblAnsprechpartner)
@@ -322,15 +355,197 @@ Partial Class Benhandungdetail
Me.GrpGaramt.Controls.Add(Me.rbversicherung) Me.GrpGaramt.Controls.Add(Me.rbversicherung)
Me.GrpGaramt.Location = New System.Drawing.Point(312, 283) Me.GrpGaramt.Location = New System.Drawing.Point(312, 283)
Me.GrpGaramt.Name = "GrpGaramt" Me.GrpGaramt.Name = "GrpGaramt"
Me.GrpGaramt.Size = New System.Drawing.Size(299, 222) Me.GrpGaramt.Size = New System.Drawing.Size(299, 261)
Me.GrpGaramt.TabIndex = 14 Me.GrpGaramt.TabIndex = 14
Me.GrpGaramt.TabStop = False Me.GrpGaramt.TabStop = False
Me.GrpGaramt.Text = "Garant" Me.GrpGaramt.Text = "Garant"
' '
'lblGesetz
'
Me.lblGesetz.AutoSize = True
Me.lblGesetz.Location = New System.Drawing.Point(8, 139)
Me.lblGesetz.Name = "lblGesetz"
Me.lblGesetz.Size = New System.Drawing.Size(40, 13)
Me.lblGesetz.TabIndex = 223
Me.lblGesetz.Text = "Gesetz"
'
'cbboxNrGesetz
'
Me.cbboxNrGesetz.Dataselection = Nothing
Me.cbboxNrGesetz.Displaymember = Nothing
Me.cbboxNrGesetz.Location = New System.Drawing.Point(94, 136)
Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
Me.cbboxNrGesetz.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrGesetz.TabIndex = 9
Me.cbboxNrGesetz.Table = Nothing
Me.cbboxNrGesetz.TableAlias = ""
Me.cbboxNrGesetz.Valuemember = Nothing
'
'cbboxNrZuweiser
'
Me.cbboxNrZuweiser.Dataselection = Nothing
Me.cbboxNrZuweiser.Displaymember = Nothing
Me.cbboxNrZuweiser.Location = New System.Drawing.Point(94, 239)
Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
Me.cbboxNrZuweiser.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrZuweiser.TabIndex = 13
Me.cbboxNrZuweiser.Table = Nothing
Me.cbboxNrZuweiser.TableAlias = ""
Me.cbboxNrZuweiser.Valuemember = Nothing
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(8, 243)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(50, 13)
Me.Label5.TabIndex = 220
Me.Label5.Text = "Zuweiser"
'
'btnDeleteKogudatum
'
Me.btnDeleteKogudatum.Location = New System.Drawing.Point(280, 211)
Me.btnDeleteKogudatum.Name = "btnDeleteKogudatum"
Me.btnDeleteKogudatum.Size = New System.Drawing.Size(10, 23)
Me.btnDeleteKogudatum.TabIndex = 219
Me.btnDeleteKogudatum.UseVisualStyleBackColor = True
'
'btnDeleteUnfalldatum
'
Me.btnDeleteUnfalldatum.Location = New System.Drawing.Point(280, 185)
Me.btnDeleteUnfalldatum.Name = "btnDeleteUnfalldatum"
Me.btnDeleteUnfalldatum.Size = New System.Drawing.Size(10, 23)
Me.btnDeleteUnfalldatum.TabIndex = 218
Me.btnDeleteUnfalldatum.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 216)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 217
Me.Label1.Text = "Ko.-Gu. Nr"
'
'txtKostengutsprache_Nummer
'
Me.txtKostengutsprache_Nummer.Location = New System.Drawing.Point(94, 213)
Me.txtKostengutsprache_Nummer.Name = "txtKostengutsprache_Nummer"
Me.txtKostengutsprache_Nummer.Size = New System.Drawing.Size(196, 20)
Me.txtKostengutsprache_Nummer.TabIndex = 12
'
'DDTDatum_Kostengutsprache
'
'
'
'
Me.DDTDatum_Kostengutsprache.BackgroundStyle.Class = "DateTimeInputBackground"
Me.DDTDatum_Kostengutsprache.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTDatum_Kostengutsprache.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.DDTDatum_Kostengutsprache.ButtonDropDown.Visible = True
Me.DDTDatum_Kostengutsprache.IsPopupCalendarOpen = False
Me.DDTDatum_Kostengutsprache.Location = New System.Drawing.Point(94, 188)
'
'
'
'
'
'
Me.DDTDatum_Kostengutsprache.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTDatum_Kostengutsprache.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
Me.DDTDatum_Kostengutsprache.MonthCalendar.ClearButtonVisible = True
'
'
'
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
Me.DDTDatum_Kostengutsprache.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTDatum_Kostengutsprache.MonthCalendar.DisplayMonth = New Date(2015, 5, 1, 0, 0, 0, 0)
Me.DDTDatum_Kostengutsprache.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
'
'
'
Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTDatum_Kostengutsprache.MonthCalendar.TodayButtonVisible = True
Me.DDTDatum_Kostengutsprache.Name = "DDTDatum_Kostengutsprache"
Me.DDTDatum_Kostengutsprache.Size = New System.Drawing.Size(180, 20)
Me.DDTDatum_Kostengutsprache.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTDatum_Kostengutsprache.TabIndex = 11
'
'lblDatumKostengutsprache
'
Me.lblDatumKostengutsprache.AutoSize = True
Me.lblDatumKostengutsprache.Location = New System.Drawing.Point(7, 190)
Me.lblDatumKostengutsprache.Name = "lblDatumKostengutsprache"
Me.lblDatumKostengutsprache.Size = New System.Drawing.Size(77, 13)
Me.lblDatumKostengutsprache.TabIndex = 214
Me.lblDatumKostengutsprache.Text = "Datum Ko.-Gu."
'
'DDTUnfalldatum
'
'
'
'
Me.DDTUnfalldatum.BackgroundStyle.Class = "DateTimeInputBackground"
Me.DDTUnfalldatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTUnfalldatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.DDTUnfalldatum.ButtonDropDown.Visible = True
Me.DDTUnfalldatum.IsPopupCalendarOpen = False
Me.DDTUnfalldatum.Location = New System.Drawing.Point(94, 163)
'
'
'
'
'
'
Me.DDTUnfalldatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTUnfalldatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
Me.DDTUnfalldatum.MonthCalendar.ClearButtonVisible = True
'
'
'
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
Me.DDTUnfalldatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTUnfalldatum.MonthCalendar.DisplayMonth = New Date(2015, 5, 1, 0, 0, 0, 0)
Me.DDTUnfalldatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
'
'
'
Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTUnfalldatum.MonthCalendar.TodayButtonVisible = True
Me.DDTUnfalldatum.Name = "DDTUnfalldatum"
Me.DDTUnfalldatum.Size = New System.Drawing.Size(180, 20)
Me.DDTUnfalldatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTUnfalldatum.TabIndex = 10
'
'lblUnfalldatum
'
Me.lblUnfalldatum.AutoSize = True
Me.lblUnfalldatum.Location = New System.Drawing.Point(7, 165)
Me.lblUnfalldatum.Name = "lblUnfalldatum"
Me.lblUnfalldatum.Size = New System.Drawing.Size(63, 13)
Me.lblUnfalldatum.TabIndex = 33
Me.lblUnfalldatum.Text = "Unfalldatum"
'
'lblFallNummer 'lblFallNummer
' '
Me.lblFallNummer.AutoSize = True Me.lblFallNummer.AutoSize = True
Me.lblFallNummer.Location = New System.Drawing.Point(8, 162) Me.lblFallNummer.Location = New System.Drawing.Point(8, 116)
Me.lblFallNummer.Name = "lblFallNummer" Me.lblFallNummer.Name = "lblFallNummer"
Me.lblFallNummer.Size = New System.Drawing.Size(62, 13) Me.lblFallNummer.Size = New System.Drawing.Size(62, 13)
Me.lblFallNummer.TabIndex = 32 Me.lblFallNummer.TabIndex = 32
@@ -340,10 +555,10 @@ Partial Class Benhandungdetail
' '
Me.cbboxNrAnsprechpartner.Dataselection = Nothing Me.cbboxNrAnsprechpartner.Dataselection = Nothing
Me.cbboxNrAnsprechpartner.Displaymember = Nothing Me.cbboxNrAnsprechpartner.Displaymember = Nothing
Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 131) Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 84)
Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner" Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(196, 21) Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsprechpartner.TabIndex = 31 Me.cbboxNrAnsprechpartner.TabIndex = 7
Me.cbboxNrAnsprechpartner.Table = Nothing Me.cbboxNrAnsprechpartner.Table = Nothing
Me.cbboxNrAnsprechpartner.TableAlias = "" Me.cbboxNrAnsprechpartner.TableAlias = ""
Me.cbboxNrAnsprechpartner.Valuemember = Nothing Me.cbboxNrAnsprechpartner.Valuemember = Nothing
@@ -351,7 +566,7 @@ Partial Class Benhandungdetail
'lblAnsprechpartner 'lblAnsprechpartner
' '
Me.lblAnsprechpartner.AutoSize = True Me.lblAnsprechpartner.AutoSize = True
Me.lblAnsprechpartner.Location = New System.Drawing.Point(8, 135) Me.lblAnsprechpartner.Location = New System.Drawing.Point(8, 88)
Me.lblAnsprechpartner.Name = "lblAnsprechpartner" Me.lblAnsprechpartner.Name = "lblAnsprechpartner"
Me.lblAnsprechpartner.Size = New System.Drawing.Size(85, 13) Me.lblAnsprechpartner.Size = New System.Drawing.Size(85, 13)
Me.lblAnsprechpartner.TabIndex = 30 Me.lblAnsprechpartner.TabIndex = 30
@@ -359,19 +574,19 @@ Partial Class Benhandungdetail
' '
'txtFallnummer 'txtFallnummer
' '
Me.txtFallnummer.Location = New System.Drawing.Point(94, 159) Me.txtFallnummer.Location = New System.Drawing.Point(94, 113)
Me.txtFallnummer.Name = "txtFallnummer" Me.txtFallnummer.Name = "txtFallnummer"
Me.txtFallnummer.Size = New System.Drawing.Size(196, 20) Me.txtFallnummer.Size = New System.Drawing.Size(196, 20)
Me.txtFallnummer.TabIndex = 29 Me.txtFallnummer.TabIndex = 8
' '
'cbboxNrGarant 'cbboxNrGarant
' '
Me.cbboxNrGarant.Dataselection = Nothing Me.cbboxNrGarant.Dataselection = Nothing
Me.cbboxNrGarant.Displaymember = Nothing Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 103) Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 61)
Me.cbboxNrGarant.Name = "cbboxNrGarant" Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.Size = New System.Drawing.Size(196, 21) Me.cbboxNrGarant.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrGarant.TabIndex = 28 Me.cbboxNrGarant.TabIndex = 6
Me.cbboxNrGarant.Table = Nothing Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = "" Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing Me.cbboxNrGarant.Valuemember = Nothing
@@ -379,7 +594,7 @@ Partial Class Benhandungdetail
'lblgarant 'lblgarant
' '
Me.lblgarant.AutoSize = True Me.lblgarant.AutoSize = True
Me.lblgarant.Location = New System.Drawing.Point(8, 107) Me.lblgarant.Location = New System.Drawing.Point(8, 65)
Me.lblgarant.Name = "lblgarant" Me.lblgarant.Name = "lblgarant"
Me.lblgarant.Size = New System.Drawing.Size(39, 13) Me.lblgarant.Size = New System.Drawing.Size(39, 13)
Me.lblgarant.TabIndex = 27 Me.lblgarant.TabIndex = 27
@@ -388,7 +603,7 @@ Partial Class Benhandungdetail
'rbPrivatPersonen 'rbPrivatPersonen
' '
Me.rbPrivatPersonen.AutoSize = True Me.rbPrivatPersonen.AutoSize = True
Me.rbPrivatPersonen.Location = New System.Drawing.Point(135, 70) Me.rbPrivatPersonen.Location = New System.Drawing.Point(193, 38)
Me.rbPrivatPersonen.Name = "rbPrivatPersonen" Me.rbPrivatPersonen.Name = "rbPrivatPersonen"
Me.rbPrivatPersonen.Size = New System.Drawing.Size(100, 17) Me.rbPrivatPersonen.Size = New System.Drawing.Size(100, 17)
Me.rbPrivatPersonen.TabIndex = 5 Me.rbPrivatPersonen.TabIndex = 5
@@ -399,7 +614,7 @@ Partial Class Benhandungdetail
'rbkk 'rbkk
' '
Me.rbkk.AutoSize = True Me.rbkk.AutoSize = True
Me.rbkk.Location = New System.Drawing.Point(11, 71) Me.rbkk.Location = New System.Drawing.Point(104, 38)
Me.rbkk.Name = "rbkk" Me.rbkk.Name = "rbkk"
Me.rbkk.Size = New System.Drawing.Size(93, 17) Me.rbkk.Size = New System.Drawing.Size(93, 17)
Me.rbkk.TabIndex = 4 Me.rbkk.TabIndex = 4
@@ -410,7 +625,7 @@ Partial Class Benhandungdetail
'rbdiverseFirmen 'rbdiverseFirmen
' '
Me.rbdiverseFirmen.AutoSize = True Me.rbdiverseFirmen.AutoSize = True
Me.rbdiverseFirmen.Location = New System.Drawing.Point(135, 47) Me.rbdiverseFirmen.Location = New System.Drawing.Point(11, 38)
Me.rbdiverseFirmen.Name = "rbdiverseFirmen" Me.rbdiverseFirmen.Name = "rbdiverseFirmen"
Me.rbdiverseFirmen.Size = New System.Drawing.Size(95, 17) Me.rbdiverseFirmen.Size = New System.Drawing.Size(95, 17)
Me.rbdiverseFirmen.TabIndex = 3 Me.rbdiverseFirmen.TabIndex = 3
@@ -421,7 +636,7 @@ Partial Class Benhandungdetail
'rbiv 'rbiv
' '
Me.rbiv.AutoSize = True Me.rbiv.AutoSize = True
Me.rbiv.Location = New System.Drawing.Point(11, 48) Me.rbiv.Location = New System.Drawing.Point(193, 15)
Me.rbiv.Name = "rbiv" Me.rbiv.Name = "rbiv"
Me.rbiv.Size = New System.Drawing.Size(64, 17) Me.rbiv.Size = New System.Drawing.Size(64, 17)
Me.rbiv.TabIndex = 2 Me.rbiv.TabIndex = 2
@@ -432,7 +647,7 @@ Partial Class Benhandungdetail
'rbfs 'rbfs
' '
Me.rbfs.AutoSize = True Me.rbfs.AutoSize = True
Me.rbfs.Location = New System.Drawing.Point(135, 25) Me.rbfs.Location = New System.Drawing.Point(104, 19)
Me.rbfs.Name = "rbfs" Me.rbfs.Name = "rbfs"
Me.rbfs.Size = New System.Drawing.Size(83, 17) Me.rbfs.Size = New System.Drawing.Size(83, 17)
Me.rbfs.TabIndex = 1 Me.rbfs.TabIndex = 1
@@ -443,7 +658,7 @@ Partial Class Benhandungdetail
'rbversicherung 'rbversicherung
' '
Me.rbversicherung.AutoSize = True Me.rbversicherung.AutoSize = True
Me.rbversicherung.Location = New System.Drawing.Point(11, 26) Me.rbversicherung.Location = New System.Drawing.Point(11, 18)
Me.rbversicherung.Name = "rbversicherung" Me.rbversicherung.Name = "rbversicherung"
Me.rbversicherung.Size = New System.Drawing.Size(87, 17) Me.rbversicherung.Size = New System.Drawing.Size(87, 17)
Me.rbversicherung.TabIndex = 0 Me.rbversicherung.TabIndex = 0
@@ -481,7 +696,7 @@ Partial Class Benhandungdetail
Me.txtAnzahlraten.NumberDecimalDigits = 0 Me.txtAnzahlraten.NumberDecimalDigits = 0
Me.txtAnzahlraten.Size = New System.Drawing.Size(61, 20) Me.txtAnzahlraten.Size = New System.Drawing.Size(61, 20)
Me.txtAnzahlraten.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default] Me.txtAnzahlraten.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.txtAnzahlraten.TabIndex = 32 Me.txtAnzahlraten.TabIndex = 0
Me.txtAnzahlraten.Text = "0" Me.txtAnzahlraten.Text = "0"
Me.txtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.txtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
@@ -497,7 +712,7 @@ Partial Class Benhandungdetail
Me.mtxtRatenzuschlag.NullString = "" Me.mtxtRatenzuschlag.NullString = ""
Me.mtxtRatenzuschlag.Size = New System.Drawing.Size(61, 20) Me.mtxtRatenzuschlag.Size = New System.Drawing.Size(61, 20)
Me.mtxtRatenzuschlag.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default] Me.mtxtRatenzuschlag.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtRatenzuschlag.TabIndex = 31 Me.mtxtRatenzuschlag.TabIndex = 2
Me.mtxtRatenzuschlag.Text = "1.00" Me.mtxtRatenzuschlag.Text = "1.00"
Me.mtxtRatenzuschlag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.mtxtRatenzuschlag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
@@ -506,7 +721,7 @@ Partial Class Benhandungdetail
Me.xxtxtAnzahlraten.Location = New System.Drawing.Point(173, 51) Me.xxtxtAnzahlraten.Location = New System.Drawing.Point(173, 51)
Me.xxtxtAnzahlraten.Name = "xxtxtAnzahlraten" Me.xxtxtAnzahlraten.Name = "xxtxtAnzahlraten"
Me.xxtxtAnzahlraten.Size = New System.Drawing.Size(61, 20) Me.xxtxtAnzahlraten.Size = New System.Drawing.Size(61, 20)
Me.xxtxtAnzahlraten.TabIndex = 8 Me.xxtxtAnzahlraten.TabIndex = 3
Me.xxtxtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.xxtxtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
'chkUngeraterateamstart 'chkUngeraterateamstart
@@ -533,7 +748,7 @@ Partial Class Benhandungdetail
Me.Label3.Location = New System.Drawing.Point(173, 20) Me.Label3.Location = New System.Drawing.Point(173, 20)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(129, 13) Me.Label3.Size = New System.Drawing.Size(129, 13)
Me.Label3.TabIndex = 28 Me.Label3.TabIndex = 1
Me.Label3.Text = "Erste Rate mit ungeradem" Me.Label3.Text = "Erste Rate mit ungeradem"
' '
'lblZuschlagRaten 'lblZuschlagRaten
@@ -614,7 +829,7 @@ Partial Class Benhandungdetail
Me.DDTRGStellung.Name = "DDTRGStellung" Me.DDTRGStellung.Name = "DDTRGStellung"
Me.DDTRGStellung.Size = New System.Drawing.Size(162, 20) Me.DDTRGStellung.Size = New System.Drawing.Size(162, 20)
Me.DDTRGStellung.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.DDTRGStellung.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTRGStellung.TabIndex = 212 Me.DDTRGStellung.TabIndex = 2
' '
'DDTBehandlungsende 'DDTBehandlungsende
' '
@@ -659,7 +874,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsende.Name = "DDTBehandlungsende" Me.DDTBehandlungsende.Name = "DDTBehandlungsende"
Me.DDTBehandlungsende.Size = New System.Drawing.Size(162, 20) Me.DDTBehandlungsende.Size = New System.Drawing.Size(162, 20)
Me.DDTBehandlungsende.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.DDTBehandlungsende.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTBehandlungsende.TabIndex = 211 Me.DDTBehandlungsende.TabIndex = 1
' '
'DDTBehandlungsbeginn 'DDTBehandlungsbeginn
' '
@@ -670,6 +885,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsbeginn.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DDTBehandlungsbeginn.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTBehandlungsbeginn.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown Me.DDTBehandlungsbeginn.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.DDTBehandlungsbeginn.ButtonDropDown.Visible = True Me.DDTBehandlungsbeginn.ButtonDropDown.Visible = True
Me.DDTBehandlungsbeginn.DefaultInputValues = False
Me.DDTBehandlungsbeginn.IsPopupCalendarOpen = False Me.DDTBehandlungsbeginn.IsPopupCalendarOpen = False
Me.DDTBehandlungsbeginn.Location = New System.Drawing.Point(129, 18) Me.DDTBehandlungsbeginn.Location = New System.Drawing.Point(129, 18)
' '
@@ -704,7 +920,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsbeginn.Name = "DDTBehandlungsbeginn" Me.DDTBehandlungsbeginn.Name = "DDTBehandlungsbeginn"
Me.DDTBehandlungsbeginn.Size = New System.Drawing.Size(162, 20) Me.DDTBehandlungsbeginn.Size = New System.Drawing.Size(162, 20)
Me.DDTBehandlungsbeginn.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.DDTBehandlungsbeginn.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTBehandlungsbeginn.TabIndex = 39 Me.DDTBehandlungsbeginn.TabIndex = 0
' '
'btnAbschliessen 'btnAbschliessen
' '
@@ -790,7 +1006,7 @@ Partial Class Benhandungdetail
Me.mtxtRabatt.NullString = "" Me.mtxtRabatt.NullString = ""
Me.mtxtRabatt.Size = New System.Drawing.Size(100, 20) Me.mtxtRabatt.Size = New System.Drawing.Size(100, 20)
Me.mtxtRabatt.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default] Me.mtxtRabatt.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtRabatt.TabIndex = 40 Me.mtxtRabatt.TabIndex = 5
Me.mtxtRabatt.Text = "1.00" Me.mtxtRabatt.Text = "1.00"
Me.mtxtRabatt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.mtxtRabatt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
@@ -806,7 +1022,7 @@ Partial Class Benhandungdetail
Me.mtxtTaxpunktwert.NullString = "" Me.mtxtTaxpunktwert.NullString = ""
Me.mtxtTaxpunktwert.Size = New System.Drawing.Size(100, 20) Me.mtxtTaxpunktwert.Size = New System.Drawing.Size(100, 20)
Me.mtxtTaxpunktwert.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default] Me.mtxtTaxpunktwert.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtTaxpunktwert.TabIndex = 39 Me.mtxtTaxpunktwert.TabIndex = 3
Me.mtxtTaxpunktwert.Text = "1.00" Me.mtxtTaxpunktwert.Text = "1.00"
Me.mtxtTaxpunktwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.mtxtTaxpunktwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
' '
@@ -843,7 +1059,7 @@ Partial Class Benhandungdetail
Me.chkMitdatum.Location = New System.Drawing.Point(6, 216) Me.chkMitdatum.Location = New System.Drawing.Point(6, 216)
Me.chkMitdatum.Name = "chkMitdatum" Me.chkMitdatum.Name = "chkMitdatum"
Me.chkMitdatum.Size = New System.Drawing.Size(128, 17) Me.chkMitdatum.Size = New System.Drawing.Size(128, 17)
Me.chkMitdatum.TabIndex = 35 Me.chkMitdatum.TabIndex = 8
Me.chkMitdatum.Text = "Leistungen mit Datum" Me.chkMitdatum.Text = "Leistungen mit Datum"
Me.chkMitdatum.UseVisualStyleBackColor = True Me.chkMitdatum.UseVisualStyleBackColor = True
' '
@@ -853,7 +1069,7 @@ Partial Class Benhandungdetail
Me.chkAndrucken_Taxpunkte.Location = New System.Drawing.Point(179, 193) Me.chkAndrucken_Taxpunkte.Location = New System.Drawing.Point(179, 193)
Me.chkAndrucken_Taxpunkte.Name = "chkAndrucken_Taxpunkte" Me.chkAndrucken_Taxpunkte.Name = "chkAndrucken_Taxpunkte"
Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(111, 17) Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(111, 17)
Me.chkAndrucken_Taxpunkte.TabIndex = 34 Me.chkAndrucken_Taxpunkte.TabIndex = 7
Me.chkAndrucken_Taxpunkte.Text = "TP/Fr. andrucken" Me.chkAndrucken_Taxpunkte.Text = "TP/Fr. andrucken"
Me.chkAndrucken_Taxpunkte.UseVisualStyleBackColor = True Me.chkAndrucken_Taxpunkte.UseVisualStyleBackColor = True
' '
@@ -863,7 +1079,7 @@ Partial Class Benhandungdetail
Me.chkRabattGesamt.Location = New System.Drawing.Point(6, 193) Me.chkRabattGesamt.Location = New System.Drawing.Point(6, 193)
Me.chkRabattGesamt.Name = "chkRabattGesamt" Me.chkRabattGesamt.Name = "chkRabattGesamt"
Me.chkRabattGesamt.Size = New System.Drawing.Size(145, 17) Me.chkRabattGesamt.Size = New System.Drawing.Size(145, 17)
Me.chkRabattGesamt.TabIndex = 33 Me.chkRabattGesamt.TabIndex = 6
Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag" Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag"
Me.chkRabattGesamt.UseVisualStyleBackColor = True Me.chkRabattGesamt.UseVisualStyleBackColor = True
' '
@@ -874,7 +1090,7 @@ Partial Class Benhandungdetail
Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(97, 138) Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(97, 138)
Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt" Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(196, 21) Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrtaxpunkt.TabIndex = 30 Me.cbboxNrtaxpunkt.TabIndex = 4
Me.cbboxNrtaxpunkt.Table = Nothing Me.cbboxNrtaxpunkt.Table = Nothing
Me.cbboxNrtaxpunkt.TableAlias = "" Me.cbboxNrtaxpunkt.TableAlias = ""
Me.cbboxNrtaxpunkt.Valuemember = Nothing Me.cbboxNrtaxpunkt.Valuemember = Nothing
@@ -886,7 +1102,7 @@ Partial Class Benhandungdetail
Me.cbboxNrAnsatz.Location = New System.Drawing.Point(94, 81) Me.cbboxNrAnsatz.Location = New System.Drawing.Point(94, 81)
Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz" Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
Me.cbboxNrAnsatz.Size = New System.Drawing.Size(196, 21) Me.cbboxNrAnsatz.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsatz.TabIndex = 28 Me.cbboxNrAnsatz.TabIndex = 2
Me.cbboxNrAnsatz.Table = Nothing Me.cbboxNrAnsatz.Table = Nothing
Me.cbboxNrAnsatz.TableAlias = "" Me.cbboxNrAnsatz.TableAlias = ""
Me.cbboxNrAnsatz.Valuemember = Nothing Me.cbboxNrAnsatz.Valuemember = Nothing
@@ -907,7 +1123,7 @@ Partial Class Benhandungdetail
Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(94, 53) Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(94, 53)
Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp" Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(196, 21) Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAbrechnungstyp.TabIndex = 26 Me.cbboxNrAbrechnungstyp.TabIndex = 1
Me.cbboxNrAbrechnungstyp.Table = Nothing Me.cbboxNrAbrechnungstyp.Table = Nothing
Me.cbboxNrAbrechnungstyp.TableAlias = "" Me.cbboxNrAbrechnungstyp.TableAlias = ""
Me.cbboxNrAbrechnungstyp.Valuemember = Nothing Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
@@ -928,7 +1144,7 @@ Partial Class Benhandungdetail
Me.cbboxNRRGtyp.Location = New System.Drawing.Point(94, 25) Me.cbboxNRRGtyp.Location = New System.Drawing.Point(94, 25)
Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp" Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
Me.cbboxNRRGtyp.Size = New System.Drawing.Size(196, 21) Me.cbboxNRRGtyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNRRGtyp.TabIndex = 24 Me.cbboxNRRGtyp.TabIndex = 0
Me.cbboxNRRGtyp.Table = Nothing Me.cbboxNRRGtyp.Table = Nothing
Me.cbboxNRRGtyp.TableAlias = "" Me.cbboxNRRGtyp.TableAlias = ""
Me.cbboxNRRGtyp.Valuemember = Nothing Me.cbboxNRRGtyp.Valuemember = Nothing
@@ -944,10 +1160,10 @@ Partial Class Benhandungdetail
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1, Me.ToolStripSeparator1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(615, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1062, 25)
Me.ToolStrip1.TabIndex = 15 Me.ToolStrip1.TabIndex = 15
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -968,30 +1184,35 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 22) Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 22)
Me.ToolStripDropDownButton1.Text = "ToolStripDropDownButton1" Me.ToolStripDropDownButton1.Text = "Drucken / Vorschau / Design"
' '
'VorschaRechnungToolStripMenuItem 'VorschaRechnungToolStripMenuItem
' '
Me.VorschaRechnungToolStripMenuItem.Name = "VorschaRechnungToolStripMenuItem" Me.VorschaRechnungToolStripMenuItem.Name = "VorschaRechnungToolStripMenuItem"
Me.VorschaRechnungToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.VorschaRechnungToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.VorschaRechnungToolStripMenuItem.Text = "Vorscha Rechnung" Me.VorschaRechnungToolStripMenuItem.Text = "Vorschau Rechnung/KV"
' '
'DesignRechnungToolStripMenuItem 'DesignRechnungToolStripMenuItem
' '
Me.DesignRechnungToolStripMenuItem.Name = "DesignRechnungToolStripMenuItem" Me.DesignRechnungToolStripMenuItem.Name = "DesignRechnungToolStripMenuItem"
Me.DesignRechnungToolStripMenuItem.Size = New System.Drawing.Size(172, 22) Me.DesignRechnungToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.DesignRechnungToolStripMenuItem.Text = "Design Rechnung" Me.DesignRechnungToolStripMenuItem.Text = "Design Rechnung/KV"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
' '
'GrpRechnungstext 'GrpRechnungstext
' '
Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext) Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
Me.GrpRechnungstext.Controls.Add(Me.txtRechnungsbemerkung) Me.GrpRechnungstext.Controls.Add(Me.txtRechnungsbemerkung)
Me.GrpRechnungstext.Location = New System.Drawing.Point(3, 511) Me.GrpRechnungstext.Location = New System.Drawing.Point(617, 134)
Me.GrpRechnungstext.Name = "GrpRechnungstext" Me.GrpRechnungstext.Name = "GrpRechnungstext"
Me.GrpRechnungstext.Size = New System.Drawing.Size(608, 141) Me.GrpRechnungstext.Size = New System.Drawing.Size(433, 141)
Me.GrpRechnungstext.TabIndex = 16 Me.GrpRechnungstext.TabIndex = 16
Me.GrpRechnungstext.TabStop = False Me.GrpRechnungstext.TabStop = False
Me.GrpRechnungstext.Text = "Rechnungstext" Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
' '
'cbboxrgtext 'cbboxrgtext
' '
@@ -999,8 +1220,8 @@ Partial Class Benhandungdetail
Me.cbboxrgtext.Displaymember = Nothing Me.cbboxrgtext.Displaymember = Nothing
Me.cbboxrgtext.Location = New System.Drawing.Point(5, 20) Me.cbboxrgtext.Location = New System.Drawing.Point(5, 20)
Me.cbboxrgtext.Name = "cbboxrgtext" Me.cbboxrgtext.Name = "cbboxrgtext"
Me.cbboxrgtext.Size = New System.Drawing.Size(600, 21) Me.cbboxrgtext.Size = New System.Drawing.Size(419, 21)
Me.cbboxrgtext.TabIndex = 21 Me.cbboxrgtext.TabIndex = 0
Me.cbboxrgtext.Table = Nothing Me.cbboxrgtext.Table = Nothing
Me.cbboxrgtext.TableAlias = "" Me.cbboxrgtext.TableAlias = ""
Me.cbboxrgtext.Valuemember = Nothing Me.cbboxrgtext.Valuemember = Nothing
@@ -1011,13 +1232,59 @@ Partial Class Benhandungdetail
Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(3, 47) Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(3, 47)
Me.txtRechnungsbemerkung.Multiline = True Me.txtRechnungsbemerkung.Multiline = True
Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung" Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung"
Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(602, 91) Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(427, 91)
Me.txtRechnungsbemerkung.TabIndex = 17 Me.txtRechnungsbemerkung.TabIndex = 1
'
'lblDiagnose
'
Me.lblDiagnose.AutoSize = True
Me.lblDiagnose.Location = New System.Drawing.Point(9, 54)
Me.lblDiagnose.Name = "lblDiagnose"
Me.lblDiagnose.Size = New System.Drawing.Size(52, 13)
Me.lblDiagnose.TabIndex = 219
Me.lblDiagnose.Text = "Diagnose"
'
'txtDiagnose
'
Me.txtDiagnose.Location = New System.Drawing.Point(95, 51)
Me.txtDiagnose.Name = "txtDiagnose"
Me.txtDiagnose.Size = New System.Drawing.Size(329, 20)
Me.txtDiagnose.TabIndex = 1
'
'lblGLNListe
'
Me.lblGLNListe.AutoSize = True
Me.lblGLNListe.Location = New System.Drawing.Point(9, 28)
Me.lblGLNListe.Name = "lblGLNListe"
Me.lblGLNListe.Size = New System.Drawing.Size(57, 13)
Me.lblGLNListe.TabIndex = 221
Me.lblGLNListe.Text = "GLN-Liste:"
'
'txtGLN_Liste
'
Me.txtGLN_Liste.Location = New System.Drawing.Point(95, 25)
Me.txtGLN_Liste.Name = "txtGLN_Liste"
Me.txtGLN_Liste.Size = New System.Drawing.Size(329, 20)
Me.txtGLN_Liste.TabIndex = 0
'
'grpglndiagnose
'
Me.grpglndiagnose.Controls.Add(Me.txtGLN_Liste)
Me.grpglndiagnose.Controls.Add(Me.lblGLNListe)
Me.grpglndiagnose.Controls.Add(Me.txtDiagnose)
Me.grpglndiagnose.Controls.Add(Me.lblDiagnose)
Me.grpglndiagnose.Location = New System.Drawing.Point(617, 31)
Me.grpglndiagnose.Name = "grpglndiagnose"
Me.grpglndiagnose.Size = New System.Drawing.Size(430, 102)
Me.grpglndiagnose.TabIndex = 222
Me.grpglndiagnose.TabStop = False
Me.grpglndiagnose.Text = "GLN / Diagnose"
' '
'Benhandungdetail 'Benhandungdetail
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.grpglndiagnose)
Me.Controls.Add(Me.GrpRechnungstext) Me.Controls.Add(Me.GrpRechnungstext)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.GrpPatient) Me.Controls.Add(Me.GrpPatient)
@@ -1027,13 +1294,15 @@ Partial Class Benhandungdetail
Me.Controls.Add(Me.grpBehandlungsdaten) Me.Controls.Add(Me.grpBehandlungsdaten)
Me.Controls.Add(Me.grpAbrechnung) Me.Controls.Add(Me.grpAbrechnung)
Me.Name = "Benhandungdetail" Me.Name = "Benhandungdetail"
Me.Size = New System.Drawing.Size(615, 695) Me.Size = New System.Drawing.Size(1062, 559)
Me.GrpPatient.ResumeLayout(False) Me.GrpPatient.ResumeLayout(False)
Me.GrpPatient.PerformLayout() Me.GrpPatient.PerformLayout()
Me.grpZusammenfassugn.ResumeLayout(False) Me.grpZusammenfassugn.ResumeLayout(False)
Me.grpZusammenfassugn.PerformLayout() Me.grpZusammenfassugn.PerformLayout()
Me.GrpGaramt.ResumeLayout(False) Me.GrpGaramt.ResumeLayout(False)
Me.GrpGaramt.PerformLayout() Me.GrpGaramt.PerformLayout()
CType(Me.DDTDatum_Kostengutsprache, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DDTUnfalldatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpRaten.ResumeLayout(False) Me.GrpRaten.ResumeLayout(False)
Me.GrpRaten.PerformLayout() Me.GrpRaten.PerformLayout()
CType(Me.txtAnzahlraten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAnzahlraten, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1052,6 +1321,8 @@ Partial Class Benhandungdetail
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
Me.GrpRechnungstext.ResumeLayout(False) Me.GrpRechnungstext.ResumeLayout(False)
Me.GrpRechnungstext.PerformLayout() Me.GrpRechnungstext.PerformLayout()
Me.grpglndiagnose.ResumeLayout(False)
Me.grpglndiagnose.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1097,7 +1368,6 @@ Partial Class Benhandungdetail
Friend WithEvents grpBehandlungsdaten As System.Windows.Forms.GroupBox Friend WithEvents grpBehandlungsdaten As System.Windows.Forms.GroupBox
Friend WithEvents DDTRGStellung As DevComponents.Editors.DateTimeAdv.DateTimeInput Friend WithEvents DDTRGStellung As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents DDTBehandlungsende As DevComponents.Editors.DateTimeAdv.DateTimeInput Friend WithEvents DDTBehandlungsende As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents DDTBehandlungsbeginn As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents btnAbschliessen As System.Windows.Forms.Button Friend WithEvents btnAbschliessen As System.Windows.Forms.Button
Friend WithEvents btnZuruecksetzen As System.Windows.Forms.Button Friend WithEvents btnZuruecksetzen As System.Windows.Forms.Button
Friend WithEvents lblRGStellung As System.Windows.Forms.Label Friend WithEvents lblRGStellung As System.Windows.Forms.Label
@@ -1129,4 +1399,23 @@ Partial Class Benhandungdetail
Friend WithEvents GrpRechnungstext As GroupBox Friend WithEvents GrpRechnungstext As GroupBox
Friend WithEvents cbboxrgtext As MyCombobox Friend WithEvents cbboxrgtext As MyCombobox
Friend WithEvents txtRechnungsbemerkung As TextBox Friend WithEvents txtRechnungsbemerkung As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents txtKostengutsprache_Nummer As TextBox
Friend WithEvents DDTDatum_Kostengutsprache As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents lblDatumKostengutsprache As Label
Friend WithEvents DDTUnfalldatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents lblUnfalldatum As Label
Friend WithEvents lblDiagnose As Label
Friend WithEvents txtDiagnose As TextBox
Friend WithEvents lblGLNListe As Label
Friend WithEvents txtGLN_Liste As TextBox
Friend WithEvents btnDeleteUnfalldatum As Button
Friend WithEvents btnDeleteKogudatum As Button
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents cbboxNrZuweiser As MyCombobox
Friend WithEvents Label5 As Label
Friend WithEvents grpglndiagnose As GroupBox
Friend WithEvents lblGesetz As Label
Friend WithEvents cbboxNrGesetz As MyCombobox
Friend WithEvents DDTBehandlungsbeginn As DevComponents.Editors.DateTimeAdv.DateTimeInput
End Class End Class

16
DPM2016/Behandlung/Benhandungdetail.resx
View File

@@ -132,16 +132,12 @@
<data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAETSURBVDhPtZLBSsNAFEXzMcVvEPSj1J3ion5C27TB4D/o
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 xqWCLlpw5aZVghYhkE3SkE0ySSC99j1nTKKvwS68cAgz785JCGP9zOnZObrQte2h0rbsJCiKogXlf76A
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw Ng37RyORg+MBDk+G3+vmmdYbadifvqH/8CJyMX3njokouFxGcF4DEXe56hKseTicBxg8f4iMFkGHoCp5
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc +BewLlFVVS3I8xxRGKJUGW7uZrh9fBK5vp9BpSlWUYgsy2pBkiS82IU4jvnJgnRjpeder4fJxIXv+/A8
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 rwXtOc4Vd5pnWGCg4Xjs8i9RSrWg0MwIDPo6fV2opkC6yk2BPlbHGI1ACs1MTx/7nU0pp6KEbduFrulY
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 1ifZ/XIlNzeApwAAAABJRU5ErkJggg==
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
</root> </root>

182
DPM2016/Behandlung/Benhandungdetail.vb
View File

@@ -213,7 +213,11 @@
db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString) db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0) Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
Me.Behandlungsstatus = r("status") Me.Behandlungsstatus = r("status")
Me.NrAnsprechpartner = r("nrAnsprechpartner") Try
Me.NrAnsprechpartner = r("nrAnsprechpartner")
Catch
Me.NrAnsprechpartner = 0
End Try
Get_Data_Controls(Me, r) Get_Data_Controls(Me, r)
@@ -432,7 +436,7 @@
If UCase(Ctl.Name) = "DDT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "DDT" + UCase(c.ColumnName) Then
Dim dt As DevComponents.Editors.DateTimeAdv.DateTimeInput Dim dt As DevComponents.Editors.DateTimeAdv.DateTimeInput
dt = Ctl dt = Ctl
r(c.ColumnName) = dt.Value If Year(dt.Value) < 1901 Then r(c.ColumnName) = System.DBNull.Value Else r(c.ColumnName) = dt.Value
'xit For 'xit For
End If End If
Next Next
@@ -449,6 +453,18 @@
Me.cbboxnrbehandler.Displaymember = "Name" Me.cbboxnrbehandler.Displaymember = "Name"
Me.cbboxnrbehandler.Valuemember = "nrprivat" Me.cbboxnrbehandler.Valuemember = "nrprivat"
Me.cbboxNrZuweiser.Dataselection = db.Get_SQL(32)
Me.cbboxNrZuweiser.TableAlias = "Zuweiser"
Me.cbboxNrZuweiser.Table = "Behandler"
Me.cbboxNrZuweiser.Displaymember = "Name"
Me.cbboxNrZuweiser.Valuemember = "nrprivat"
Me.cbboxNrGesetz.Dataselection = db.Get_SQL(33)
Me.cbboxNrGesetz.TableAlias = "Gesetz"
Me.cbboxNrGesetz.Table = "Gesetz"
Me.cbboxNrGesetz.Displaymember = "Gesetz"
Me.cbboxNrGesetz.Valuemember = "nrgesetz"
Me.cbboxNRESTyp.Dataselection = "Select * FROM ESTYP WHERE AKTIV=1" Me.cbboxNRESTyp.Dataselection = "Select * FROM ESTYP WHERE AKTIV=1"
Me.cbboxNRESTyp.TableAlias = "ESTYP_BH" Me.cbboxNRESTyp.TableAlias = "ESTYP_BH"
Me.cbboxNRESTyp.Table = "ESTyp" Me.cbboxNRESTyp.Table = "ESTyp"
@@ -670,6 +686,8 @@
Me.GrpGaramt.Enabled = enable Me.GrpGaramt.Enabled = enable
Me.GrpRaten.Enabled = enable Me.GrpRaten.Enabled = enable
Me.tsbtnSave.Enabled = enable Me.tsbtnSave.Enabled = enable
Me.grpglndiagnose.Enabled = enable
Me.GrpRechnungstext.Enabled = enable
End Sub End Sub
@@ -813,28 +831,139 @@
End Sub End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click 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) Check_Changes()
f.Show() Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "")
f.Visible = False If result <> 2 And result <> 5 Then
f.Print_Rechnung() If MsgBox("Es können nur abgeschlossene Rechnungen/KV gedruckt und verbucht werden. Abschliessen und drucken/verbuchen?", vbYesNo + vbQuestion) = vbYes Then
f.Close() btnAbschliessen_Click(sender, e)
Else
Exit Sub
End If
End If
If MsgBox("Rechnung drucken und verbuchen?", vbYesNo + vbQuestion) = vbYes Then
Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Fakturierung(reportnr, Me.Behandlungsnr, "", i)
'f.Print_Rechnung(False, False, i)
f.Close()
'If i = 1 Then
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, 1)
' hauptfaktura = fakt.fakturanr
'Else
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, i, hauptfaktura)
'End If
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End If
End Sub End Sub
Private Sub DesignRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignRechnungToolStripMenuItem.Click 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) Dim anzahlraten As Integer = 0
f.Show() db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
f.Print_Rechnung(False, True) anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
f.Close() If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
Dim f As New frmReportView(reportnr, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(False, True)
f.Close()
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub End Sub
Private Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click 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) Dim anzahlraten As Integer = 0
f.Show() db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
f.Print_Rechnung(True, False) anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
'f.Close() If anzahlraten = 0 Then anzahlraten = 1
Check_Changes()
Dim reportnr As Integer
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(True, False, i)
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub End Sub
Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged
Dim db1 As New clsDB
Try
db1.Get_Tabledata("GLN", "", "Select gln from privat where nrprivat=" + Me.cbboxnrbehandler.SelectedValue)
Me.txtGLN_Liste.Text = "1/" + db1.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Finally
db1.Dispose()
End Try
End Sub End Sub
@@ -844,13 +973,30 @@
End Sub End Sub
Private Sub btnAbschliessen_Click(sender As Object, e As EventArgs) Handles btnAbschliessen.Click Private Sub btnAbschliessen_Click(sender As Object, e As EventArgs) Handles btnAbschliessen.Click
If MsgBox("Behandlung abschliessen?", vbYesNo = vbYes) Then evh.Fire_Behandlung_Abschliessen(Me.Behandlungsnr, Me.Patientnr)
End If
End Sub End Sub
Private Sub btnZuruecksetzen_Click(sender As Object, e As EventArgs) Handles btnZuruecksetzen.Click Private Sub btnZuruecksetzen_Click(sender As Object, e As EventArgs) Handles btnZuruecksetzen.Click
evh.Fire_Behandlung_Zurücksetzen(Me.Behandlungsnr, Me.Patientnr)
End Sub
Private Sub btnDeleteUnfalldatum_Click(sender As Object, e As EventArgs) Handles btnDeleteUnfalldatum.Click
Me.DDTUnfalldatum.Value = Nothing
End Sub
Private Sub btnDeleteKogudatum_Click(sender As Object, e As EventArgs) Handles btnDeleteKogudatum.Click
Me.DDTDatum_Kostengutsprache.Value = Nothing
End Sub
Private Sub DDTUnfalldatum_KeyDown(sender As Object, e As KeyEventArgs) Handles DDTUnfalldatum.KeyDown, DDTDatum_Kostengutsprache.KeyDown, DDTBehandlungsbeginn.KeyDown, DDTBehandlungsende.KeyDown, DDTRGStellung.KeyDown
If e.KeyCode = Keys.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
End Sub
Sub delete_date(sender)
sender.value = Nothing
End Sub End Sub

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

@@ -30,9 +30,12 @@ Partial Class Leistungen
Me.TabTarife = New System.Windows.Forms.TabControl() Me.TabTarife = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lbtarif1 = New DevComponents.DotNetBar.ListBoxAdv() Me.lbtarif1 = New DevComponents.DotNetBar.ListBoxAdv()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TarifdetailsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.tsUp = New System.Windows.Forms.ToolStripButton()
Me.tsDown = New System.Windows.Forms.ToolStripButton() Me.tsDown = New System.Windows.Forms.ToolStripButton()
Me.tsUp = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.txtfilter = New System.Windows.Forms.ToolStripTextBox() Me.txtfilter = New System.Windows.Forms.ToolStripTextBox()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.TreeTarifGruppen = New DevComponents.AdvTree.AdvTree() Me.TreeTarifGruppen = New DevComponents.AdvTree.AdvTree()
@@ -75,6 +78,7 @@ Partial Class Leistungen
Me.GrpTarif.SuspendLayout() Me.GrpTarif.SuspendLayout()
Me.TabTarife.SuspendLayout() Me.TabTarife.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout() Me.ToolStrip2.SuspendLayout()
CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@@ -97,7 +101,7 @@ Partial Class Leistungen
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(842, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1079, 25)
Me.ToolStrip1.TabIndex = 0 Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -113,7 +117,7 @@ Partial Class Leistungen
Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpTarif.Location = New System.Drawing.Point(0, 0) Me.GrpTarif.Location = New System.Drawing.Point(0, 0)
Me.GrpTarif.Name = "GrpTarif" Me.GrpTarif.Name = "GrpTarif"
Me.GrpTarif.Size = New System.Drawing.Size(498, 284) Me.GrpTarif.Size = New System.Drawing.Size(729, 284)
Me.GrpTarif.TabIndex = 1 Me.GrpTarif.TabIndex = 1
Me.GrpTarif.TabStop = False Me.GrpTarif.TabStop = False
Me.GrpTarif.Text = "Tarife" Me.GrpTarif.Text = "Tarife"
@@ -126,7 +130,7 @@ Partial Class Leistungen
Me.TabTarife.Location = New System.Drawing.Point(3, 16) Me.TabTarife.Location = New System.Drawing.Point(3, 16)
Me.TabTarife.Name = "TabTarife" Me.TabTarife.Name = "TabTarife"
Me.TabTarife.SelectedIndex = 0 Me.TabTarife.SelectedIndex = 0
Me.TabTarife.Size = New System.Drawing.Size(489, 265) Me.TabTarife.Size = New System.Drawing.Size(720, 265)
Me.TabTarife.TabIndex = 0 Me.TabTarife.TabIndex = 0
' '
'TabPage1 'TabPage1
@@ -138,7 +142,7 @@ Partial Class Leistungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(481, 239) Me.TabPage1.Size = New System.Drawing.Size(712, 239)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Tarif" Me.TabPage1.Text = "Tarif"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@@ -152,33 +156,37 @@ Partial Class Leistungen
Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv" Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbtarif1.ContainerControlProcessDialogKey = True Me.lbtarif1.ContainerControlProcessDialogKey = True
Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbtarif1.DragDropSupport = True Me.lbtarif1.DragDropSupport = True
Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbtarif1.Location = New System.Drawing.Point(196, 28) Me.lbtarif1.Location = New System.Drawing.Point(196, 28)
Me.lbtarif1.Name = "lbtarif1" Me.lbtarif1.Name = "lbtarif1"
Me.lbtarif1.Size = New System.Drawing.Size(282, 208) Me.lbtarif1.Size = New System.Drawing.Size(513, 208)
Me.lbtarif1.TabIndex = 5 Me.lbtarif1.TabIndex = 5
Me.lbtarif1.Text = "ListBoxAdv1" Me.lbtarif1.Text = "ListBoxAdv1"
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifdetailsToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26)
'
'TarifdetailsToolStripMenuItem
'
Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem"
Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails"
'
'ToolStrip2 'ToolStrip2
' '
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsUp, Me.tsDown, Me.txtfilter}) Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter})
Me.ToolStrip2.Location = New System.Drawing.Point(196, 3) Me.ToolStrip2.Location = New System.Drawing.Point(196, 3)
Me.ToolStrip2.Name = "ToolStrip2" Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(282, 25) Me.ToolStrip2.Size = New System.Drawing.Size(513, 25)
Me.ToolStrip2.TabIndex = 6 Me.ToolStrip2.TabIndex = 6
Me.ToolStrip2.Text = "ToolStrip2" 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 'tsDown
' '
Me.tsDown.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tsDown.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -187,6 +195,23 @@ Partial Class Leistungen
Me.tsDown.Name = "tsDown" Me.tsDown.Name = "tsDown"
Me.tsDown.Size = New System.Drawing.Size(23, 22) Me.tsDown.Size = New System.Drawing.Size(23, 22)
Me.tsDown.Text = "ToolStripButton2" Me.tsDown.Text = "ToolStripButton2"
Me.tsDown.Visible = False
'
'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"
Me.tsUp.Visible = False
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(46, 22)
Me.ToolStripLabel1.Text = "Suchen"
' '
'txtfilter 'txtfilter
' '
@@ -333,7 +358,7 @@ Partial Class Leistungen
Me.grpLeistungsdetails.Controls.Add(Me.lblPosition) Me.grpLeistungsdetails.Controls.Add(Me.lblPosition)
Me.grpLeistungsdetails.Controls.Add(Me.lbldatum) Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
Me.grpLeistungsdetails.Controls.Add(Me.dtdatum) Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
Me.grpLeistungsdetails.Location = New System.Drawing.Point(498, 3) Me.grpLeistungsdetails.Location = New System.Drawing.Point(735, 3)
Me.grpLeistungsdetails.Name = "grpLeistungsdetails" Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
Me.grpLeistungsdetails.Size = New System.Drawing.Size(341, 275) Me.grpLeistungsdetails.Size = New System.Drawing.Size(341, 275)
Me.grpLeistungsdetails.TabIndex = 2 Me.grpLeistungsdetails.TabIndex = 2
@@ -555,7 +580,7 @@ Partial Class Leistungen
Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0) Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0)
Me.GrpLeistungen.Name = "GrpLeistungen" Me.GrpLeistungen.Name = "GrpLeistungen"
Me.GrpLeistungen.Size = New System.Drawing.Size(842, 158) Me.GrpLeistungen.Size = New System.Drawing.Size(1079, 158)
Me.GrpLeistungen.TabIndex = 3 Me.GrpLeistungen.TabIndex = 3
Me.GrpLeistungen.TabStop = False Me.GrpLeistungen.TabStop = False
Me.GrpLeistungen.Text = "Leistungen" Me.GrpLeistungen.Text = "Leistungen"
@@ -574,7 +599,7 @@ Partial Class Leistungen
Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Leistungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) 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.Size = New System.Drawing.Size(1073, 139)
Me.C1Leistungen.TabIndex = 2 Me.C1Leistungen.TabIndex = 2
Me.C1Leistungen.Text = "C1TrueDBGrid1" Me.C1Leistungen.Text = "C1TrueDBGrid1"
Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag") Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag")
@@ -610,7 +635,7 @@ Partial Class Leistungen
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 25) Me.Panel2.Location = New System.Drawing.Point(0, 25)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(842, 284) Me.Panel2.Size = New System.Drawing.Size(1079, 284)
Me.Panel2.TabIndex = 4 Me.Panel2.TabIndex = 4
' '
'Panel3 'Panel3
@@ -619,7 +644,7 @@ Partial Class Leistungen
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 309) Me.Panel3.Location = New System.Drawing.Point(0, 309)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(842, 158) Me.Panel3.Size = New System.Drawing.Size(1079, 158)
Me.Panel3.TabIndex = 5 Me.Panel3.TabIndex = 5
' '
'Leistungen 'Leistungen
@@ -630,13 +655,14 @@ Partial Class Leistungen
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Name = "Leistungen" Me.Name = "Leistungen"
Me.Size = New System.Drawing.Size(842, 467) Me.Size = New System.Drawing.Size(1079, 467)
Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
Me.GrpTarif.ResumeLayout(False) Me.GrpTarif.ResumeLayout(False)
Me.TabTarife.ResumeLayout(False) Me.TabTarife.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TreeTarifGruppen, System.ComponentModel.ISupportInitialize).EndInit()
@@ -706,5 +732,7 @@ Partial Class Leistungen
Friend WithEvents lbPakete As DevComponents.DotNetBar.ListBoxAdv Friend WithEvents lbPakete As DevComponents.DotNetBar.ListBoxAdv
Friend WithEvents tslabelbhtotal As System.Windows.Forms.ToolStripLabel Friend WithEvents tslabelbhtotal As System.Windows.Forms.ToolStripLabel
Friend WithEvents AnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents TarifdetailsToolStripMenuItem As ToolStripMenuItem
End Class End Class

9
DPM2016/Behandlung/Leistungen.resx
View File

@@ -120,11 +120,14 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value> <value>124, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
@@ -139,7 +142,7 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg== TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
@@ -194,6 +197,6 @@
</value> </value>
</data> </data>
<data name="C1Leistungen.PropBag" xml:space="preserve"> <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> <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, 1071, 137&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 137&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

192
DPM2016/Behandlung/Leistungen.vb
View File

@@ -1,4 +1,6 @@
Public Class Leistungen Imports System.ComponentModel
Public Class Leistungen
Dim db As New clsDB Dim db As New clsDB
@@ -253,7 +255,7 @@
Private Sub txtfilter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyDown Private Sub txtfilter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyDown
If e.KeyCode <> Keys.Enter Then If e.KeyCode <> Keys.Enter Then
End If End If
End Sub End Sub
@@ -274,7 +276,7 @@
Exit Sub Exit Sub
End If End If
If e.KeyCode <> Keys.Enter Then If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing Me.lbtarif1.DataSource = Nothing
Dim SortString As String = "" Dim SortString As String = ""
If intSort = 0 Then If intSort = 0 Then
@@ -348,6 +350,7 @@
End Sub End Sub
Dim interror As Integer = 0
Private Sub txtPosition_TextChanged(sender As Object, e As EventArgs) Handles txtPosition.Leave 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 If Me.dtdatum.Value = "00:00:00" Then Me.dtdatum.Value = Now
Try Try
@@ -361,28 +364,36 @@
Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'" Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'"
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows) Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Dim dr As DataRowView Dim dr As DataRowView
dr = dv1(0) Try
If dr.Item("Abrechnungseinheit") = "TP" Then dr = dv1(0)
Select Case Me.TaxPunkte If dr.Item("Abrechnungseinheit") = "TP" Then
Case Taxpunkttyp.Maximal Select Case Me.TaxPunkte
Me.DIPunkte.Value = dr.Item("pp_max") Case Taxpunkttyp.Maximal
Case Taxpunkttyp.Minmal Me.DIPunkte.Value = dr.Item("pp_max")
Me.DIPunkte.Value = dr.Item("pp_min") Case Taxpunkttyp.Minmal
Case Taxpunkttyp.Privat Me.DIPunkte.Value = dr.Item("pp_min")
Me.DIPunkte.Value = dr.Item("pp_privat") Case Taxpunkttyp.Privat
Case Taxpunkttyp.Suva Me.DIPunkte.Value = dr.Item("pp_privat")
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV") Case Taxpunkttyp.Suva
Case Taxpunkttyp.Dentotar Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV") Case Taxpunkttyp.Dentotar
Case Else Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select End Select
End If End If
Me.DIMenge.Text = 1 Me.DIMenge.Text = 1
Me.diwert.Text = 1 Me.diwert.Text = 1
Me.DIPunkte.Enabled = True Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD") Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub Exit Sub
Catch
interror = 1
MsgBox("Eingegebene Position ist nicht vorhanden.", vbExclamation)
Me.txtPosition.Focus()
Me.txtPosition.SelectAll()
Exit Sub
End Try
End If End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows) Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows)
@@ -436,7 +447,7 @@
End Sub End Sub
Private Sub BtnInsertLeistung_Click(sender As Object, e As EventArgs) Handles BtnInsertLeistung.Click Private Sub BtnInsertLeistung_Click(sender As Object, e As EventArgs) Handles BtnInsertLeistung.Click
leistung_einfuegen() Leistung_Einfuegen()
End Sub End Sub
Private Sub diwert_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPosition.KeyDown, txtBezD.KeyDown, diwert.KeyDown, DIPunkte.KeyDown, DIMenge.KeyDown Private Sub diwert_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPosition.KeyDown, txtBezD.KeyDown, diwert.KeyDown, DIPunkte.KeyDown, DIMenge.KeyDown
@@ -449,11 +460,13 @@
End If End If
End Sub End Sub
Sub Leistung_Einfuegen_Dentotar(ByVal SSONummer As String, ByVal anzahl As Integer) Sub Leistung_Einfuegen_Dentotar(ByVal SSONummer As String, ByVal anzahl As Integer, Optional DentotarNr As String = "")
Dim dv As DataView Dim dv As DataView
Dim sortstring As String = "" Dim sortstring As String = ""
Dim wherestring As String = "LeistungNrNeu='" + Me.txtPosition.Text.ToString + "'" Dim wherestring As String = "LeistungNrNeu='" + Me.txtPosition.Text.ToString + "'"
If DentotarNr <> "" Then
wherestring = "LeistungNrNeu='" + DentotarNr + "'"
End If
If SSONummer = "" Then If SSONummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows) dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Else Else
@@ -488,43 +501,59 @@
r.Item("bezd") = drv("Leistungd") r.Item("bezd") = drv("Leistungd")
End If End If
If SSONummer = "" Then Dim betraginchf As Decimal
Try
If drv.Item("BetraginCHF") < 0.1 Then
betraginchf = 0
Else
betraginchf = drv.Item("BetraginCHF")
End If
Catch
betraginchf = 0
End Try
If SSONummer = "" And DentotarNr = "" Then
r.Item("taxpunkte") = Me.DIPunkte.Value r.Item("taxpunkte") = Me.DIPunkte.Value
Else Else
If drv.Item("Frankenbetrag") < 0.1 Then Try
Select Case Me.TaxPunkte If betraginchf = 0 Then
Case Taxpunkttyp.Maximal Select Case Me.TaxPunkte
r.Item("taxpunkte") = drv.Item("pp_amx") Case Taxpunkttyp.Maximal
Case Taxpunkttyp.Minmal r.Item("taxpunkte") = drv.Item("pp_amx")
r.Item("taxpunkte") = drv.Item("pp_min") Case Taxpunkttyp.Minmal
Case Taxpunkttyp.Privat r.Item("taxpunkte") = drv.Item("pp_min")
r.Item("taxpunkte") = drv.Item("pp_privat") Case Taxpunkttyp.Privat
Case Taxpunkttyp.Suva r.Item("taxpunkte") = drv.Item("pp_privat")
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV") Case Taxpunkttyp.Suva
Case Taxpunkttyp.Dentotar r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV") Case Taxpunkttyp.Dentotar
Case Else Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
Catch
End Try
End Select
End If
End If End If
If SSONummer = "" Then If SSONummer = "" And DentotarNr = "" Then
r.Item("menge") = Me.DIMenge.Value r.Item("menge") = Me.DIMenge.Value
Else Else
r.Item("menge") = anzahl r.Item("menge") = anzahl
End If End If
If SSONummer = "" Then If SSONummer = "" And DentotarNr = "" Then
r.Item("frankenprotaxpunkt") = Me.diwert.Value r.Item("frankenprotaxpunkt") = Me.diwert.Value
Else Else
r.Item("frankenprotaxpunkt") = Frankenwert r.Item("frankenprotaxpunkt") = Frankenwert
End If End If
If SSONummer = "" Then If SSONummer = "" And DentotarNr = "" Then
r.Item("total") = Me.txtTotal.Text r.Item("total") = Me.txtTotal.Text
Else Else
Dim total As Double Dim total As Double
If drv.Item("frankenbetrag") < 0.1 Then If betraginchf = 0 Then
total = r.Item("taxpunkte") * anzahl * 1 total = r.Item("taxpunkte") * anzahl * 1
r.Item("total") = total.ToString("N2") r.Item("total") = total.ToString("N2")
Else Else
@@ -544,6 +573,10 @@
End Sub End Sub
Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1) Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1)
If interror > 0 Then
interror = 0
Exit Sub
End If
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Leistung_Einfuegen_Dentotar(ssonummer, anzahl) Leistung_Einfuegen_Dentotar(ssonummer, anzahl)
Exit Sub Exit Sub
@@ -648,7 +681,7 @@
Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0) Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0)
Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0)) spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0))
EVH.Fire_Leistung_Changed(Me.Behandlungnr, calc_Leistungstotal) evh.Fire_Leistung_Changed(Me.Behandlungnr, calc_Leistungstotal)
End Sub End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
@@ -683,7 +716,7 @@
End Try End Try
End Sub End Sub
Private Sub TreeTarifGruppen_NodeClick(sender As Object, e As DevComponents.AdvTree.TreeNodeMouseEventArgs) Handles TreeTarifGruppen.NodeClick Private Sub TreeTarifGruppen_NodeClick(sender As Object, e As DevComponents.AdvTree.TreeNodeMouseEventArgs) Handles TreeTarifGruppen.NodeClick
Load_Tarif() Load_Tarif()
@@ -697,14 +730,33 @@
Me.cbboxnrbehandler.SelectedValue = Me.behandler Me.cbboxnrbehandler.SelectedValue = Me.behandler
End Try End Try
Me.cbboxnrbehandler.SelectedValue = Me.behandler Me.cbboxnrbehandler.SelectedValue = Me.behandler
If Me.Dentotar = True Then
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
Dim s As String = dvtr("SSO_Nummer").ToString
s = s.Substring(0, 1) + "." + s.Substring(1, 3) + "0"
If s.Substring(0, 1) = "4" Then
Leistung_Einfuegen_Dentotar("", Me.intAnzahl.Value, s)
Else
Leistung_Einfuegen(dvtr("SSO_Nummer").ToString, Me.intAnzahl.Value)
End If
Dim dv As New DataView(IntTables.Inttables.Tables("paketpos"), "nrpaket=" + Me.lbPakete.SelectedValue.ToString, "", DataViewRowState.CurrentRows) Next
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
Next
Else
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 If
End Sub End Sub
@@ -735,8 +787,8 @@
btnPaketeinfuegen_Click(sender, e) btnPaketeinfuegen_Click(sender, e)
End Sub End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet 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") If Me.Behandlungnr = behandlungsnummer Then Me.tslabelbhtotal.Text = "Behandlungstotal: " + Total.ToString("N2")
End Sub End Sub
@@ -758,7 +810,7 @@
End Sub End Sub
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
Dim f As New frmLeistungDetail Dim f As New frmLeistungDetail
@@ -781,4 +833,28 @@
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub End Sub
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
End Sub
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
If e.KeyCode = Keys.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
End Sub
Sub delete_date(sender)
sender.value = Nothing
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
If Dentotar = True Then Me.TarifdetailsToolStripMenuItem.Enabled = True Else Me.TarifdetailsToolStripMenuItem.Enabled = False
End Sub
Private Sub TarifdetailsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TarifdetailsToolStripMenuItem.Click
Dim f As New frmDentotarDetails
f.Show()
f.Update_Data(Me.lbtarif1.SelectedValue.ToString)
End Sub
End Class End Class

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

@@ -22,6 +22,7 @@ Partial Class frmLeistungDetail
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLeistungDetail))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox() Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox()
Me.lblSSONummer = New System.Windows.Forms.Label() Me.lblSSONummer = New System.Windows.Forms.Label()
@@ -89,7 +90,7 @@ Partial Class frmLeistungDetail
Me.lblSSONummer.Location = New System.Drawing.Point(77, 25) Me.lblSSONummer.Location = New System.Drawing.Point(77, 25)
Me.lblSSONummer.Name = "lblSSONummer" Me.lblSSONummer.Name = "lblSSONummer"
Me.lblSSONummer.Size = New System.Drawing.Size(31, 13) Me.lblSSONummer.Size = New System.Drawing.Size(31, 13)
Me.lblSSONummer.TabIndex = 26 Me.lblSSONummer.TabIndex = 0
Me.lblSSONummer.Text = "0000" Me.lblSSONummer.Text = "0000"
' '
'lblTarifnr 'lblTarifnr
@@ -116,7 +117,7 @@ Partial Class frmLeistungDetail
Me.txtBezD.Multiline = True Me.txtBezD.Multiline = True
Me.txtBezD.Name = "txtBezD" Me.txtBezD.Name = "txtBezD"
Me.txtBezD.Size = New System.Drawing.Size(177, 45) Me.txtBezD.Size = New System.Drawing.Size(177, 45)
Me.txtBezD.TabIndex = 6 Me.txtBezD.TabIndex = 1
' '
'cbboxnrbehandler 'cbboxnrbehandler
' '
@@ -124,9 +125,8 @@ Partial Class frmLeistungDetail
Me.cbboxnrbehandler.Displaymember = Nothing Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(80, 129) Me.cbboxnrbehandler.Location = New System.Drawing.Point(80, 129)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler" Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.SelectedValue = Nothing Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 21)
Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 22) Me.cbboxnrbehandler.TabIndex = 3
Me.cbboxnrbehandler.TabIndex = 1
Me.cbboxnrbehandler.Table = Nothing Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = "" Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing Me.cbboxnrbehandler.Valuemember = Nothing
@@ -145,7 +145,7 @@ Partial Class frmLeistungDetail
Me.btnSave.Location = New System.Drawing.Point(9, 244) Me.btnSave.Location = New System.Drawing.Point(9, 244)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(120, 23) Me.btnSave.Size = New System.Drawing.Size(120, 23)
Me.btnSave.TabIndex = 7 Me.btnSave.TabIndex = 8
Me.btnSave.Text = "Speichern" Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True Me.btnSave.UseVisualStyleBackColor = True
' '
@@ -156,7 +156,7 @@ Partial Class frmLeistungDetail
Me.txtTotal.Name = "txtTotal" Me.txtTotal.Name = "txtTotal"
Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtTotal.Size = New System.Drawing.Size(92, 13) Me.txtTotal.Size = New System.Drawing.Size(92, 13)
Me.txtTotal.TabIndex = 12 Me.txtTotal.TabIndex = 7
Me.txtTotal.Text = "0.00www" Me.txtTotal.Text = "0.00www"
Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
' '
@@ -192,7 +192,7 @@ Partial Class frmLeistungDetail
Me.diwert.Name = "diwert" Me.diwert.Name = "diwert"
Me.diwert.ShowUpDown = True Me.diwert.ShowUpDown = True
Me.diwert.Size = New System.Drawing.Size(56, 20) Me.diwert.Size = New System.Drawing.Size(56, 20)
Me.diwert.TabIndex = 4 Me.diwert.TabIndex = 6
' '
'lblMenge 'lblMenge
' '
@@ -216,7 +216,7 @@ Partial Class frmLeistungDetail
Me.DIMenge.Name = "DIMenge" Me.DIMenge.Name = "DIMenge"
Me.DIMenge.ShowUpDown = True Me.DIMenge.ShowUpDown = True
Me.DIMenge.Size = New System.Drawing.Size(56, 20) Me.DIMenge.Size = New System.Drawing.Size(56, 20)
Me.DIMenge.TabIndex = 3 Me.DIMenge.TabIndex = 4
' '
'lblTaxpunkte 'lblTaxpunkte
' '
@@ -264,7 +264,6 @@ Partial Class frmLeistungDetail
' '
' '
' '
Me.dtdatum.MonthCalendar.AnnuallyMarkedDates = New Date(-1) {}
' '
' '
' '
@@ -283,8 +282,6 @@ Partial Class frmLeistungDetail
Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square 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.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
Me.dtdatum.MonthCalendar.MarkedDates = New Date(-1) {}
Me.dtdatum.MonthCalendar.MonthlyMarkedDates = New Date(-1) {}
' '
' '
' '
@@ -293,11 +290,10 @@ Partial Class frmLeistungDetail
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.dtdatum.MonthCalendar.TodayButtonVisible = True Me.dtdatum.MonthCalendar.TodayButtonVisible = True
Me.dtdatum.MonthCalendar.WeeklyMarkedDays = New System.DayOfWeek(-1) {}
Me.dtdatum.Name = "dtdatum" Me.dtdatum.Name = "dtdatum"
Me.dtdatum.Size = New System.Drawing.Size(177, 20) Me.dtdatum.Size = New System.Drawing.Size(177, 20)
Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.dtdatum.TabIndex = 0 Me.dtdatum.TabIndex = 2
' '
'frmLeistungDetail 'frmLeistungDetail
' '
@@ -306,8 +302,9 @@ Partial Class frmLeistungDetail
Me.ClientSize = New System.Drawing.Size(272, 349) Me.ClientSize = New System.Drawing.Size(272, 349)
Me.Controls.Add(Me.grpLeistungsdetails) Me.Controls.Add(Me.grpLeistungsdetails)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLeistungDetail" Me.Name = "frmLeistungDetail"
Me.Text = "frmLeistungDetail" Me.Text = "Leistungsdetail"
Me.grpLeistungsdetails.ResumeLayout(False) Me.grpLeistungsdetails.ResumeLayout(False)
Me.grpLeistungsdetails.PerformLayout() Me.grpLeistungsdetails.PerformLayout()
CType(Me.diwert, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.diwert, System.ComponentModel.ISupportInitialize).EndInit()

2769
DPM2016/Behandlung/frmLeistungDetail.resx
View File

File diff suppressed because it is too large Load Diff

13
DPM2016/Behandlung/frmLeistungDetail.vb
View File

@@ -71,4 +71,17 @@
db.Update_Data() db.Update_Data()
Me.Close() Me.Close()
End Sub End Sub
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
End Sub
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
If e.KeyCode = Keys.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
End Sub
Sub delete_date(sender)
sender.value = Nothing
End Sub
End Class End Class

153
DPM2016/DPM2016.vbproj
View File

@@ -6,12 +6,12 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{C78BA301-98A0-41B2-B1C9-553567634286}</ProjectGuid> <ProjectGuid>{C78BA301-98A0-41B2-B1C9-553567634286}</ProjectGuid>
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>DPM2016.My.MyApplication</StartupObject> <StartupObject>DPM2016.Program</StartupObject>
<RootNamespace>DPM2016</RootNamespace> <RootNamespace>DPM2016</RootNamespace>
<AssemblyName>DPM2016</AssemblyName> <AssemblyName>DPM2018</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsFormsWithCustomSubMain</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion> <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl> <PublishUrl>publish\</PublishUrl>
<Install>true</Install> <Install>true</Install>
<InstallFrom>Disk</InstallFrom> <InstallFrom>Disk</InstallFrom>
@@ -36,7 +36,7 @@
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DPM2016.xml</DocumentationFile> <DocumentationFile>DPM2018.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
@@ -47,7 +47,7 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DPM2016.xml</DocumentationFile> <DocumentationFile>DPM2018.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> </PropertyGroup>
@@ -63,11 +63,21 @@
<PropertyGroup> <PropertyGroup>
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<PropertyGroup>
<ApplicationIcon>DPMNeu.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Aga.Controls"> <Reference Include="Aga.Controls">
<HintPath>..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll</HintPath> <HintPath>..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll</HintPath>
</Reference> </Reference>
<Reference Include="C1.Data.2, Version=2.0.20141.273, Culture=neutral, PublicKeyToken=900b028620cd3a1b, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
<Reference Include="C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" /> <Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
<Reference Include="DevComponents.DotNetBar.Charts, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL" />
<Reference Include="DevComponents.DotNetBar.Schedule, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL"> <Reference Include="DevComponents.DotNetBar.Schedule, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar.Schedule.dll</HintPath> <HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar.Schedule.dll</HintPath>
@@ -95,23 +105,19 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath> <HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
</Reference> </Reference>
<Reference Include="Syncfusion.Core, Version=13.3400.0.7, Culture=neutral, PublicKeyToken=632609b4d040f6b4, processorArchitecture=MSIL"> <Reference Include="PropertyGridEx">
<SpecificVersion>False</SpecificVersion> <HintPath>..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll</HintPath>
<HintPath>C:\Program Files (x86)\Syncfusion\Essential Studio\13.3.0.7\Assemblies\4.0\Syncfusion.Core.dll</HintPath>
</Reference> </Reference>
<Reference Include="Syncfusion.Grid.Base, Version=13.3460.0.7, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" /> <Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<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" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
<Reference Include="System.Design" /> <Reference Include="System.Design" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" /> <Reference Include="System.Drawing.Design" />
<Reference Include="System.Runtime.Remoting" />
<Reference Include="System.Runtime.Serialization.Formatters.Soap" /> <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Web" />
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Windows.Forms.DataVisualization, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" /> <Reference Include="System.Windows.Forms.DataVisualization, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
@@ -138,6 +144,24 @@
<Import Include="System.Xml.Linq" /> <Import Include="System.Xml.Linq" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="Auswertungen\Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Auswertungen\Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Auswertungen\FremAuswertung.Designer.vb">
<DependentUpon>FremAuswertung.vb</DependentUpon>
</Compile>
<Compile Include="Auswertungen\FremAuswertung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Auswertungen\frmreport.designer.vb">
<DependentUpon>frmreport.vb</DependentUpon>
</Compile>
<Compile Include="Auswertungen\frmreport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Behandlung\Behandlung.Designer.vb"> <Compile Include="Behandlung\Behandlung.Designer.vb">
<DependentUpon>Behandlung.vb</DependentUpon> <DependentUpon>Behandlung.vb</DependentUpon>
</Compile> </Compile>
@@ -177,12 +201,19 @@
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="EventHandler\Generic_Event_Handler.vb" /> <Compile Include="EventHandler\Generic_Event_Handler.vb" />
<Compile Include="Fakturierung\clsFakturierung.vb" />
<Compile Include="Fakturierung\frmFakturierung.Designer.vb"> <Compile Include="Fakturierung\frmFakturierung.Designer.vb">
<DependentUpon>frmFakturierung.vb</DependentUpon> <DependentUpon>frmFakturierung.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="Fakturierung\frmFakturierung.vb"> <Compile Include="Fakturierung\frmFakturierung.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Fakturierung\frmOffeneBehandlungen.Designer.vb">
<DependentUpon>frmOffeneBehandlungen.vb</DependentUpon>
</Compile>
<Compile Include="Fakturierung\frmOffeneBehandlungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Finanzaen\Finanzen.Designer.vb"> <Compile Include="Finanzaen\Finanzen.Designer.vb">
<DependentUpon>Finanzen.vb</DependentUpon> <DependentUpon>Finanzen.vb</DependentUpon>
</Compile> </Compile>
@@ -215,6 +246,7 @@
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="Klassen\clsNullableDatetimePicker.vb" /> <Compile Include="Klassen\clsNullableDatetimePicker.vb" />
<Compile Include="Klassen\clsPrinter.vb" />
<Compile Include="Klassen\MyCombobox.vb"> <Compile Include="Klassen\MyCombobox.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
@@ -236,6 +268,13 @@
<Compile Include="Patient\PatientDetails.vb"> <Compile Include="Patient\PatientDetails.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="Program.vb" />
<Compile Include="Recall\Recall.Designer.vb">
<DependentUpon>Recall.vb</DependentUpon>
</Compile>
<Compile Include="Recall\Recall.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Reporting\clsAllgemein.vb" /> <Compile Include="Reporting\clsAllgemein.vb" />
<Compile Include="Reporting\frmReportauswahl.Designer.vb"> <Compile Include="Reporting\frmReportauswahl.Designer.vb">
<DependentUpon>frmReportauswahl.vb</DependentUpon> <DependentUpon>frmReportauswahl.vb</DependentUpon>
@@ -255,6 +294,12 @@
<Compile Include="Sysadmin\frmAuswertungen.vb"> <Compile Include="Sysadmin\frmAuswertungen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Sysadmin\frmPrinterselect.Designer.vb">
<DependentUpon>frmPrinterselect.vb</DependentUpon>
</Compile>
<Compile Include="Sysadmin\frmPrinterselect.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Sysadmin\frmStammdaten.Designer.vb"> <Compile Include="Sysadmin\frmStammdaten.Designer.vb">
<DependentUpon>frmStammdaten.vb</DependentUpon> <DependentUpon>frmStammdaten.vb</DependentUpon>
</Compile> </Compile>
@@ -293,9 +338,55 @@
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Utils\clsLog.vb" /> <Compile Include="Utils\clsLog.vb" />
<Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\frmDBConnection.Designer.vb">
<DependentUpon>frmDBConnection.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmDBConnection.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmDentotarDetails.Designer.vb">
<DependentUpon>frmDentotarDetails.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmDentotarDetails.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmLogin.Designer.vb">
<DependentUpon>frmLogin.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmLogin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmSplash.Designer.vb">
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\Globals.vb" /> <Compile Include="Utils\Globals.vb" />
<Compile Include="Utils\SplashForm.Designer.vb">
<DependentUpon>SplashForm.vb</DependentUpon>
</Compile>
<Compile Include="Utils\SplashForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Zahlung\frmZahlung.Designer.vb">
<DependentUpon>frmZahlung.vb</DependentUpon>
</Compile>
<Compile Include="Zahlung\frmZahlung.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<EmbeddedResource Include="Auswertungen\Form2.resx">
<DependentUpon>Form2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Auswertungen\FremAuswertung.resx">
<DependentUpon>FremAuswertung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Auswertungen\frmreport.resx">
<DependentUpon>frmreport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Behandlung\Behandlung.resx"> <EmbeddedResource Include="Behandlung\Behandlung.resx">
<DependentUpon>Behandlung.vb</DependentUpon> <DependentUpon>Behandlung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -317,6 +408,9 @@
<EmbeddedResource Include="Fakturierung\frmFakturierung.resx"> <EmbeddedResource Include="Fakturierung\frmFakturierung.resx">
<DependentUpon>frmFakturierung.vb</DependentUpon> <DependentUpon>frmFakturierung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Fakturierung\frmOffeneBehandlungen.resx">
<DependentUpon>frmOffeneBehandlungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Finanzaen\Finanzen.resx"> <EmbeddedResource Include="Finanzaen\Finanzen.resx">
<DependentUpon>Finanzen.vb</DependentUpon> <DependentUpon>Finanzen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -341,6 +435,9 @@
<EmbeddedResource Include="Patient\PatientDetails.resx"> <EmbeddedResource Include="Patient\PatientDetails.resx">
<DependentUpon>PatientDetails.vb</DependentUpon> <DependentUpon>PatientDetails.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Recall\Recall.resx">
<DependentUpon>Recall.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reporting\frmReportauswahl.resx"> <EmbeddedResource Include="Reporting\frmReportauswahl.resx">
<DependentUpon>frmReportauswahl.vb</DependentUpon> <DependentUpon>frmReportauswahl.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -350,6 +447,9 @@
<EmbeddedResource Include="Sysadmin\frmAuswertungen.resx"> <EmbeddedResource Include="Sysadmin\frmAuswertungen.resx">
<DependentUpon>frmAuswertungen.vb</DependentUpon> <DependentUpon>frmAuswertungen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmPrinterselect.resx">
<DependentUpon>frmPrinterselect.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmStammdaten.resx"> <EmbeddedResource Include="Sysadmin\frmStammdaten.resx">
<DependentUpon>frmStammdaten.vb</DependentUpon> <DependentUpon>frmStammdaten.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -367,12 +467,32 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx" /> <EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx" />
<EmbeddedResource Include="Utils\frmDBConnection.resx">
<DependentUpon>frmDBConnection.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmDentotarDetails.resx">
<DependentUpon>frmDentotarDetails.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmLogin.resx">
<DependentUpon>frmLogin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\SplashForm.resx">
<DependentUpon>SplashForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Zahlung\frmZahlung.resx">
<DependentUpon>frmZahlung.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="app.config" /> <None Include="app.config" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
<SubType>Designer</SubType>
</None> </None>
<None Include="My Project\Settings.settings"> <None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator> <Generator>SettingsSingleFileGenerator</Generator>
@@ -388,6 +508,8 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
<DependentUpon>Database1.mdf</DependentUpon> <DependentUpon>Database1.mdf</DependentUpon>
</Content> </Content>
<Content Include="DPMNeu.ico" />
<Content Include="Zahlung\TextFile1.txt" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5"> <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
@@ -401,6 +523,7 @@
<Install>true</Install> <Install>true</Install>
</BootstrapperPackage> </BootstrapperPackage>
</ItemGroup> </ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.

14
DPM2016/Database/IntTables.vb
View File

@@ -1,6 +1,8 @@
Module IntTables Module IntTables
Public Inttables As New DataSet Public Inttables As New DataSet
Public orte As New DataTable Public orte As New DataTable
Dim Ortsverzeichnis As New DataTable
Public Function GetOrt(ByVal plz As String) As String Public Function GetOrt(ByVal plz As String) As String
If orte.Rows.Count = 0 Then If orte.Rows.Count = 0 Then
@@ -19,4 +21,16 @@
Next Next
Return ort Return ort
End Function End Function
Public Function Get_Ort_Kantton(ByRef plz As String, ByRef ort As TextBox, ByRef kanton As ComboBox)
Dim db As New clsDB
db.Get_Tabledata("Ortsverzeichnis", "where plz=" + plz.ToString, "", "", False)
Ortsverzeichnis = db.dsDaten.Tables(0).Copy
If Ortsverzeichnis.Rows.Count > 0 Then
ort.Text = Ortsverzeichnis.Rows(0).Item("Ort")
kanton.Text = Ortsverzeichnis.Rows(0).Item("KT")
End If
End Function
End Module End Module

163
DPM2016/Database/clsDB.vb
View File

@@ -30,29 +30,32 @@ Public Class clsDB
Public Sub Dispose() Public Sub Dispose()
dsDaten.Dispose() dsDaten.Dispose()
dssql.Dispose() dssql.Dispose()
dadaten.Dispose()
End Sub End Sub
Public Function Get_Datavalue(sql As String, args As String) As String Public Function Get_Option(ByVal nr As Integer) As String
Try
Dim dad As New SqlDataAdapter
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
Dim data As New DataTable
dad = New SqlDataAdapter(sql, Me.Connectionstring)
dad.Fill(data)
Dim s As String
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
Return s
dad.Dispose()
data.Dispose()
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Function Get_Datavalue(sql As String, Optional args As String = "") As String
Try Try
Try Try
dsDaten.Clear() dsDaten.Clear()
dsDaten.Tables.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 If sql <> "" Then
sql = sql.Replace("&ARGS&", args) sql = sql.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(sql, Me.Connectionstring) dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
@@ -76,6 +79,7 @@ Public Class clsDB
Try Try
dsDaten.Clear() dsDaten.Clear()
dsDaten.Tables.Clear() dsDaten.Tables.Clear()
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
If SP = True Then If SP = True Then
Dim sqlcmd As New SqlCommand Dim sqlcmd As New SqlCommand
Dim sqlconnect As New SqlConnection Dim sqlconnect As New SqlConnection
@@ -87,18 +91,36 @@ Public Class clsDB
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue") sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
Next Next
sqlcmd.Connection = sqlconnect sqlcmd.Connection = sqlconnect
dadaten.SelectCommand = sqlcmd Try
dadaten.Fill(dsDaten, tablename) dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
Exit Sub
Catch ex As Exception
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
End Try
End If End If
If SQL <> "" Then If SQL <> "" Then
SQL = SQL.Replace("&ARGS&", args) SQL = SQL.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring) dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
Else Else
dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring) dadaten = New SqlDataAdapter("select * from [" + tablename + "] " + wherestatement, Me.Connectionstring)
End If End If
'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring) 'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
dadaten.Fill(dsDaten, tablename) dadaten.Fill(dsDaten, tablename)
If encrypted = True Then
For Each r As DataRow In dsDaten.Tables(0).Rows
For Each c As DataColumn In dsDaten.Tables(0).Columns
Select Case UCase(c.ColumnName)
Case "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "TELP", "PATIENT", "BEHANDLER"
r(c.ColumnName) = Crypto.DecryptText(r(c.ColumnName), Globals.encryptkey)
End Select
Next
Next
End If
Catch ex As Exception Catch ex As Exception
Dim a As Integer = 1 Dim a As Integer = 1
End Try End Try
@@ -162,6 +184,24 @@ Public Class clsDB
End Try End Try
End Sub End Sub
Public Sub Exec_SQL(ByVal SQL As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = SQL
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.Text
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 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 sqlconnect As New SqlConnection
Dim ds As New DataSet Dim ds As New DataSet
@@ -250,7 +290,8 @@ Public Class clsDB
Dim dsPartner As New DataSet Dim dsPartner As New DataSet
dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring) dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
dadaten.Fill(dsDaten, "Daten") dadaten.Fill(dsDaten, "Daten")
Catch Catch ex As Exception
End Try End Try
End Function End Function
@@ -315,6 +356,42 @@ Public Class clsDB
End If End If
End If End If
Return -1 Return -1
Case "Firma"
If IsNumeric(Searchstring) Then
Get_Tabledata("firma", " where nrfirma=" + Searchstring + " order by name1, name2, 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("firma", " where name1 like '" + Searchstring + "%'" + " order by name1, name2, 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("nrfirma"))
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("nrfirma").ToString + " " + r("Name1") + " " + r("name2") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrfirma")
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 Select
@@ -344,12 +421,17 @@ Public Class clsDB
Select Case Tablename Select Case Tablename
Case "Privat" Case "Privat"
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15)) Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
Case "Firma"
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
Case "Leistung" Case "Leistung"
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17)) Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
Case "Behandlung" Case "Behandlung"
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18)) Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
Case "Zahlung" Case "Zahlung"
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20)) Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
Case "Recall"
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
End Select End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0) Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function End Function
@@ -465,8 +547,6 @@ Public Class clsDB
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
Update_Data() Update_Data()
End Function End Function
Public Function Get_Leistung(ByVal nrleistung As Integer) Public Function Get_Leistung(ByVal nrleistung As Integer)
@@ -492,6 +572,16 @@ Public Class clsDB
Return Filename Return Filename
End Select End Select
End Function End Function
Public Function Get_ReportNr(ByVal Report As String) As Integer
Try
Get_Tabledata("Auswertung", "where es_typ='" + Report + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
#End Region #End Region
#Region "Fakturierung" #Region "Fakturierung"
@@ -599,5 +689,32 @@ Public Class clsDB
End Try End Try
End Function End Function
#End Region
#Region "Zahlungen"
Public Sub Insert_ZJournal(fakturanr As String, ByVal debitor As String, ByVal debitortext As String, ByVal betrag As Decimal, ByVal konto As String, ByVal vz As String, ByVal storno As String)
Get_Tabledata("Zahlung", "", "Select top 1 * from zjournal order by pk desc")
Dim dr As DataRow = dsDaten.Tables(0).NewRow
dr.Item("nreintrag") = 0
dr.Item("Mandant") = Globals.Mandant
dr.Item("Datum") = Now
dr.Item("nrfaktura") = fakturanr
dr.Item("nrdebitor") = debitor
dr.Item("debitor") = debitortext
dr.Item("Konto") = konto
dr.Item("betrag") = betrag
If vz = "False" Then vz = ""
If vz = "True" Then vz = "J"
dr.Item("vz") = vz
dr.Item("storno") = storno
dr.Item("erstellt_am") = Now
dr.Item("mutiert_am") = Now
dr.Item("mutierer") = Globals.ActUser
dr.Item("aktiv") = True
dsDaten.Tables(0).Rows.Add(dr)
Update_Data()
End Sub
#End Region #End Region
End Class End Class

4
DPM2016/Database/frmPrivatSelect.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmPrivatSelect
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrivatSelect))
Me.TreeView1 = New System.Windows.Forms.TreeView() Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
@@ -62,8 +63,9 @@ Partial Class frmPrivatSelect
Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TreeView1) Me.Controls.Add(Me.TreeView1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPrivatSelect" Me.Name = "frmPrivatSelect"
Me.Text = "frmPrivatSelect" Me.Text = "Patient-Auswahl"
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub

5161
DPM2016/Database/frmPrivatSelect.resx
View File

File diff suppressed because it is too large Load Diff

14
DPM2016/EventHandler/Generic_Event_Handler.vb
View File

@@ -9,6 +9,9 @@ Public Class Generic_Event_Handler
Public Event Taxpunktwert_changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double) 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 Total_Berechnet(ByVal behandlungsnummer As Integer, Total As Double)
Public Event Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnummer As Integer) Public Event Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnummer As Integer)
Public Event Behandlung_Abschliessen(ByVal behandlungsnummer As Integer, patient As Integer)
Public Event Behandlung_Zurücksetzen(ByVal behandlungsnummer As Integer, patient As Integer)
Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer)
Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer) Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer)
RaiseEvent PatName_Changed(name, nr) RaiseEvent PatName_Changed(name, nr)
@@ -41,5 +44,16 @@ Public Class Generic_Event_Handler
Public Function Fire_Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnr As Integer) Public Function Fire_Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnr As Integer)
RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr) RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr)
End Function End Function
Public Function Fire_Behandlung_Abschliessen(ByVal Behandlungsnr As Integer, ByVal patient As Integer)
RaiseEvent Behandlung_Abschliessen(Behandlungsnr, patient)
End Function
Public Function Fire_Behandlung_Zurücksetzen(ByVal Behandlungsnr As Integer, ByVal patient As Integer)
RaiseEvent Behandlung_Zurücksetzen(Behandlungsnr, patient)
End Function
Public Function Fire_Recall_Anzeigen(ByVal datum As DateTime, ByVal patient As Integer, ByVal behandler As Integer)
RaiseEvent Recall_Anzeigen(datum, patient, behandler)
End Function
End Class End Class

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

@@ -29,6 +29,7 @@ Partial Class frmFakturierung
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton() Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton() Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton() Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
@@ -40,11 +41,11 @@ Partial Class frmFakturierung
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton() Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton() Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox() Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Abgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GrpAusgeschlosseneRechnungen = New System.Windows.Forms.GroupBox() Me.GrpAusgeschlosseneRechnungen = New System.Windows.Forms.GroupBox()
Me.C1Ausgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Ausgeschlossen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.grpOffeneRechnungen.SuspendLayout() Me.grpOffeneRechnungen.SuspendLayout()
@@ -79,7 +80,7 @@ Partial Class frmFakturierung
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripButton6})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(773, 25) Me.ToolStrip1.Size = New System.Drawing.Size(773, 25)
@@ -105,6 +106,15 @@ Partial Class frmFakturierung
Me.tsbtnSave.Text = "Speichern" Me.tsbtnSave.Text = "Speichern"
Me.tsbtnSave.Visible = False Me.tsbtnSave.Visible = False
' '
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
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(134, 22)
Me.ToolStripButton5.Text = "Fakturierung ausführen"
'
'tsbtnnew 'tsbtnnew
' '
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -206,6 +216,15 @@ Partial Class frmFakturierung
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1" Me.ToolStripButton1.Text = "ToolStripButton1"
' '
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(52, 22)
Me.ToolStripButton6.Text = "Drucker"
'
'grpOffeneRechnungen 'grpOffeneRechnungen
' '
Me.grpOffeneRechnungen.Controls.Add(Me.C1Abgeschlossen) Me.grpOffeneRechnungen.Controls.Add(Me.C1Abgeschlossen)
@@ -264,15 +283,6 @@ Partial Class frmFakturierung
Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1" Me.C1Ausgeschlossen.Text = "C1TrueDBGrid1"
Me.C1Ausgeschlossen.PropBag = resources.GetString("C1Ausgeschlossen.PropBag") 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 'frmFakturierung
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -282,8 +292,9 @@ Partial Class frmFakturierung
Me.Controls.Add(Me.grpOffeneRechnungen) Me.Controls.Add(Me.grpOffeneRechnungen)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFakturierung" Me.Name = "frmFakturierung"
Me.Text = "frmFakturierung" Me.Text = "Fakturierung"
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False)
@@ -319,4 +330,5 @@ Partial Class frmFakturierung
Friend WithEvents C1Ausgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents C1Ausgeschlossen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStripButton1 As ToolStripButton Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton5 As ToolStripButton Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton
End Class End Class

4358
DPM2016/Fakturierung/frmFakturierung.resx
View File

File diff suppressed because it is too large Load Diff

16
DPM2016/Fakturierung/frmFakturierung.vb
View File

@@ -15,6 +15,8 @@
End Sub End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
If MsgBox("Fakturierung ausführen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Dim dt As New DataTable Dim dt As New DataTable
dt = Me.C1Abgeschlossen.DataSource dt = Me.C1Abgeschlossen.DataSource
Dim f As New frmReportView() Dim f As New frmReportView()
@@ -31,4 +33,18 @@
f.Visible = False f.Visible = False
f.Close() f.Close()
End Sub End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
Dim f As New frmPrinterselect
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
End Class End Class

83
DPM2016/Finanzaen/Finanzen.Designer.vb generated
View File

@@ -22,9 +22,11 @@ Partial Class Finanzen
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Finanzen)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Finanzen))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.GrpZahlung = New System.Windows.Forms.GroupBox() Me.GrpZahlung = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnBuchen = New System.Windows.Forms.Button() Me.btnBuchen = New System.Windows.Forms.Button()
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox() Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
Me.lblVorauszahlung = New System.Windows.Forms.Label() Me.lblVorauszahlung = New System.Windows.Forms.Label()
@@ -38,15 +40,23 @@ Partial Class Finanzen
Me.lblRechnungsnummer = New System.Windows.Forms.Label() Me.lblRechnungsnummer = New System.Windows.Forms.Label()
Me.GrpZahlungen = New System.Windows.Forms.GroupBox() Me.GrpZahlungen = New System.Windows.Forms.GroupBox()
Me.C1Zahlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Zahlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZahlungStornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GrpBehandlungen = New System.Windows.Forms.GroupBox() Me.GrpBehandlungen = New System.Windows.Forms.GroupBox()
Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GrpZahlung.SuspendLayout() Me.GrpZahlung.SuspendLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpZahlungen.SuspendLayout() Me.GrpZahlungen.SuspendLayout()
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip2.SuspendLayout()
Me.GrpBehandlungen.SuspendLayout() Me.GrpBehandlungen.SuspendLayout()
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
@@ -59,6 +69,7 @@ Partial Class Finanzen
' '
'GrpZahlung 'GrpZahlung
' '
Me.GrpZahlung.Controls.Add(Me.Button1)
Me.GrpZahlung.Controls.Add(Me.btnBuchen) Me.GrpZahlung.Controls.Add(Me.btnBuchen)
Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung) Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung)
Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung) Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung)
@@ -78,6 +89,14 @@ Partial Class Finanzen
Me.GrpZahlung.TabStop = False Me.GrpZahlung.TabStop = False
Me.GrpZahlung.Text = "Zahlung" Me.GrpZahlung.Text = "Zahlung"
' '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(309, 30)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(15, 23)
Me.Button1.TabIndex = 20
Me.Button1.UseVisualStyleBackColor = True
'
'btnBuchen 'btnBuchen
' '
Me.btnBuchen.Location = New System.Drawing.Point(22, 165) Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
@@ -122,9 +141,9 @@ Partial Class Finanzen
Me.lblKonto.AutoSize = True Me.lblKonto.AutoSize = True
Me.lblKonto.Location = New System.Drawing.Point(20, 112) Me.lblKonto.Location = New System.Drawing.Point(20, 112)
Me.lblKonto.Name = "lblKonto" Me.lblKonto.Name = "lblKonto"
Me.lblKonto.Size = New System.Drawing.Size(55, 13) Me.lblKonto.Size = New System.Drawing.Size(66, 13)
Me.lblKonto.TabIndex = 16 Me.lblKonto.TabIndex = 16
Me.lblKonto.Text = "Behandler" Me.lblKonto.Text = "Gegenkonto"
' '
'lblBetrag 'lblBetrag
' '
@@ -208,7 +227,7 @@ Partial Class Finanzen
' '
Me.txtRGNummer.Location = New System.Drawing.Point(147, 32) Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
Me.txtRGNummer.Name = "txtRGNummer" Me.txtRGNummer.Name = "txtRGNummer"
Me.txtRGNummer.Size = New System.Drawing.Size(177, 20) Me.txtRGNummer.Size = New System.Drawing.Size(161, 20)
Me.txtRGNummer.TabIndex = 1 Me.txtRGNummer.TabIndex = 1
' '
'lblRechnungsnummer 'lblRechnungsnummer
@@ -226,7 +245,7 @@ Partial Class Finanzen
Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25) Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25)
Me.GrpZahlungen.Name = "GrpZahlungen" Me.GrpZahlungen.Name = "GrpZahlungen"
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 249) Me.GrpZahlungen.Size = New System.Drawing.Size(645, 401)
Me.GrpZahlungen.TabIndex = 2 Me.GrpZahlungen.TabIndex = 2
Me.GrpZahlungen.TabStop = False Me.GrpZahlungen.TabStop = False
Me.GrpZahlungen.Text = "Verbuchte Zahlungen" Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
@@ -234,6 +253,7 @@ Partial Class Finanzen
'C1Zahlungen 'C1Zahlungen
' '
Me.C1Zahlungen.AlternatingRows = True Me.C1Zahlungen.AlternatingRows = True
Me.C1Zahlungen.ContextMenuStrip = Me.ContextMenuStrip2
Me.C1Zahlungen.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Zahlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Zahlungen.FilterBar = True Me.C1Zahlungen.FilterBar = True
Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column" Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column"
@@ -244,18 +264,42 @@ Partial Class Finanzen
Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) 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.Size = New System.Drawing.Size(639, 382)
Me.C1Zahlungen.TabIndex = 3 Me.C1Zahlungen.TabIndex = 3
Me.C1Zahlungen.Text = "C1TrueDBGrid1" Me.C1Zahlungen.Text = "C1TrueDBGrid1"
Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag") Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
' '
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungStornierenToolStripMenuItem, Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem, Me.VorauszahlungVonBehandlungLösenToolStripMenuItem})
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(286, 70)
'
'ZahlungStornierenToolStripMenuItem
'
Me.ZahlungStornierenToolStripMenuItem.Name = "ZahlungStornierenToolStripMenuItem"
Me.ZahlungStornierenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.ZahlungStornierenToolStripMenuItem.Text = "&Zahlung stornieren"
'
'VorauszahlungAnBehandlungZuweisenToolStripMenuItem
'
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Name = "VorauszahlungAnBehandlungZuweisenToolStripMenuItem"
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Text = "Vorauszahlung an Behandlung zuweisen"
'
'VorauszahlungVonBehandlungLösenToolStripMenuItem
'
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Name = "VorauszahlungVonBehandlungLösenToolStripMenuItem"
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Text = "Vorauszahlung von Behandlung lösen"
'
'GrpBehandlungen 'GrpBehandlungen
' '
Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen) Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 274) Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 426)
Me.GrpBehandlungen.Name = "GrpBehandlungen" Me.GrpBehandlungen.Name = "GrpBehandlungen"
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 313) Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 161)
Me.GrpBehandlungen.TabIndex = 3 Me.GrpBehandlungen.TabIndex = 3
Me.GrpBehandlungen.TabStop = False Me.GrpBehandlungen.TabStop = False
Me.GrpBehandlungen.Text = "Offene Rechnungen" Me.GrpBehandlungen.Text = "Offene Rechnungen"
@@ -263,6 +307,7 @@ Partial Class Finanzen
'C1OffeneRechnungen 'C1OffeneRechnungen
' '
Me.C1OffeneRechnungen.AlternatingRows = True Me.C1OffeneRechnungen.AlternatingRows = True
Me.C1OffeneRechnungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1OffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Fill Me.C1OffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1OffeneRechnungen.FilterBar = True Me.C1OffeneRechnungen.FilterBar = True
Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column" Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column"
@@ -273,11 +318,23 @@ Partial Class Finanzen
Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) 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.Size = New System.Drawing.Size(639, 142)
Me.C1OffeneRechnungen.TabIndex = 4 Me.C1OffeneRechnungen.TabIndex = 4
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen" Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag") Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungBuchenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26)
'
'ZahlungBuchenToolStripMenuItem
'
Me.ZahlungBuchenToolStripMenuItem.Name = "ZahlungBuchenToolStripMenuItem"
Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(161, 22)
Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen"
'
'Finanzen 'Finanzen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -294,8 +351,10 @@ Partial Class Finanzen
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpZahlungen.ResumeLayout(False) Me.GrpZahlungen.ResumeLayout(False)
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip2.ResumeLayout(False)
Me.GrpBehandlungen.ResumeLayout(False) Me.GrpBehandlungen.ResumeLayout(False)
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -317,5 +376,11 @@ Partial Class Finanzen
Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label
Friend WithEvents cbboxKonto As DPM2016.MyCombobox Friend WithEvents cbboxKonto As DPM2016.MyCombobox
Friend WithEvents lblKonto As System.Windows.Forms.Label Friend WithEvents lblKonto As System.Windows.Forms.Label
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents ZahlungStornierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ZahlungBuchenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button1 As Button
Friend WithEvents VorauszahlungAnBehandlungZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorauszahlungVonBehandlungLösenToolStripMenuItem As ToolStripMenuItem
End Class End Class

10
DPM2016/Finanzaen/Finanzen.resx
View File

@@ -120,6 +120,9 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -158,8 +161,11 @@
</value> </value>
</data> </data>
<data name="C1Zahlungen.PropBag" xml:space="preserve"> <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> <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, 380&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, 380&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -197,6 +203,6 @@
</value> </value>
</data> </data>
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve"> <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> <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, 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, 637, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

111
DPM2016/Finanzaen/Finanzen.vb
View File

@@ -1,4 +1,6 @@
Public Class Finanzen Imports C1.Win.C1TrueDBGrid
Public Class Finanzen
Dim dbz As New clsDB Dim dbz As New clsDB
Dim dbk As New clsDB Dim dbk As New clsDB
@@ -10,7 +12,7 @@
End Get End Get
Set(value As Integer) Set(value As Integer)
m_patientnr = value m_patientnr = value
Refresh_Konto() refresh_konto()
Refresh_Zahlungen() Refresh_Zahlungen()
End Set End Set
End Property End Property
@@ -57,6 +59,10 @@
End Sub End Sub
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
Dim db5 As New clsDB
Dim vz As String = ""
Dim Storno As String = ""
Dim Debitor As Integer = 0
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then 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) MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -68,13 +74,30 @@
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
r("vorauszahlung") = chkVorauszahlung.Checked r("vorauszahlung") = chkVorauszahlung.Checked
r("mandant") = 1 r("mandant") = 1
If r("nrfaktura") <> 0 Then
Try
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
Catch
Debitor = 0
End Try
End If
If Me.Patientnr <> Debitor And Debitor > 0 Then
r("nrdebotir") = Debitor
Else
r("nrdebitor") = Me.Patientnr
End If
r("nrdebitor") = Me.Patientnr r("nrdebitor") = Me.Patientnr
r("betrag") = Me.diBetrag.Value r("betrag") = Me.diBetrag.Value
r("nrkonto") = cbboxKonto.SelectedValue r("nrkonto") = cbboxKonto.SelectedValue
r("valuta") = Me.dtdatum.Value r("valuta") = Me.dtdatum.Value
r("nrbehandlung") = 0 r("nrbehandlung") = 0
r("status") = 0 r("status") = 0
If chkVorauszahlung.Checked Then r("status") = 1 If chkVorauszahlung.Checked Then
r("status") = 1
vz = "J"
End If
r("statusdatum") = Now r("statusdatum") = Now
r("erstellt_am") = Now r("erstellt_am") = Now
r("mutiert_am") = Now r("mutiert_am") = Now
@@ -82,10 +105,92 @@
r("aktiv") = True r("aktiv") = True
dbz.dsDaten.Tables(0).Rows.Add(r) dbz.dsDaten.Tables(0).Rows.Add(r)
dbz.Update_Data() dbz.Update_Data()
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
End Sub End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub End Sub
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
Try
Me.dtdatum.Value = Now
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
Catch ex As Exception
End Try
End Sub
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
btnBuchen_Click(sender, e)
End Sub
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
Dim fakt As New clsFakturierung
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
Me.Refresh_Zahlungen()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.txtRGNummer.Text = ""
End Sub
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
Exit Sub
Else
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
Exit Sub
End If
Else
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
End If
End Sub
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
Dim f As New frmOffeneBehandlungen
f.NrPatient = Me.Patientnr
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim db As New clsDB
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
Me.Refresh_Zahlungen()
End If
End Sub
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
Dim db As New clsDB
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
Me.Refresh_Zahlungen()
End If
End Sub
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
End Sub
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
If e.KeyCode = Keys.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
End Sub
Sub delete_date(sender)
sender.value = Nothing
End Sub
End Class End Class

279
DPM2016/Firmen/frmFirma.Designer.vb generated
View File

@@ -39,6 +39,8 @@ Partial Class frmFirma
Me.tsbtprev = New System.Windows.Forms.ToolStripButton() Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton() Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton() Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnFinanzen = New System.Windows.Forms.ToolStripButton()
Me.txtName1 = New System.Windows.Forms.TextBox() Me.txtName1 = New System.Windows.Forms.TextBox()
Me.txtnrfirma = New System.Windows.Forms.TextBox() Me.txtnrfirma = New System.Windows.Forms.TextBox()
Me.lblNr = New System.Windows.Forms.Label() Me.lblNr = New System.Windows.Forms.Label()
@@ -91,6 +93,11 @@ Partial Class frmFirma
Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker() Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
Me.btndeldatetimeab = New System.Windows.Forms.Button() Me.btndeldatetimeab = New System.Windows.Forms.Button()
Me.btndeldatetimebis = New System.Windows.Forms.Button() Me.btndeldatetimebis = New System.Windows.Forms.Button()
Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtGLN = New System.Windows.Forms.TextBox()
Me.lblGLN = New System.Windows.Forms.Label()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
@@ -104,7 +111,7 @@ Partial Class frmFirma
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(940, 24) Me.MenuStrip1.Size = New System.Drawing.Size(1003, 24)
Me.MenuStrip1.TabIndex = 20 Me.MenuStrip1.TabIndex = 20
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
@@ -124,10 +131,10 @@ Partial Class frmFirma
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True 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.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.ToolStripSeparator1, Me.tsbtnFinanzen})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(940, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1003, 25)
Me.ToolStrip1.TabIndex = 21 Me.ToolStrip1.TabIndex = 21
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -235,28 +242,42 @@ Partial Class frmFirma
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22) Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz" Me.tsbtnlast.Text = "Letzter Datensatz"
' '
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'tsbtnFinanzen
'
Me.tsbtnFinanzen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbtnFinanzen.Image = CType(resources.GetObject("tsbtnFinanzen.Image"), System.Drawing.Image)
Me.tsbtnFinanzen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFinanzen.Name = "tsbtnFinanzen"
Me.tsbtnFinanzen.Size = New System.Drawing.Size(58, 22)
Me.tsbtnFinanzen.Text = "Finanzen"
'
'txtName1 'txtName1
' '
Me.txtName1.Location = New System.Drawing.Point(71, 88) Me.txtName1.Location = New System.Drawing.Point(72, 88)
Me.txtName1.Name = "txtName1" Me.txtName1.Name = "txtName1"
Me.txtName1.Size = New System.Drawing.Size(162, 20) Me.txtName1.Size = New System.Drawing.Size(162, 20)
Me.txtName1.TabIndex = 103 Me.txtName1.TabIndex = 1
' '
'txtnrfirma '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.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.Location = New System.Drawing.Point(72, 62)
Me.txtnrfirma.Name = "txtnrfirma" Me.txtnrfirma.Name = "txtnrfirma"
Me.txtnrfirma.ReadOnly = True Me.txtnrfirma.ReadOnly = True
Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrfirma.Size = New System.Drawing.Size(48, 20) Me.txtnrfirma.Size = New System.Drawing.Size(48, 20)
Me.txtnrfirma.TabIndex = 110 Me.txtnrfirma.TabIndex = 0
' '
'lblNr 'lblNr
' '
Me.lblNr.AutoSize = True Me.lblNr.AutoSize = True
Me.lblNr.BackColor = System.Drawing.Color.Transparent Me.lblNr.BackColor = System.Drawing.Color.Transparent
Me.lblNr.Location = New System.Drawing.Point(12, 62) Me.lblNr.Location = New System.Drawing.Point(13, 62)
Me.lblNr.Name = "lblNr" Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(21, 13) Me.lblNr.Size = New System.Drawing.Size(21, 13)
Me.lblNr.TabIndex = 111 Me.lblNr.TabIndex = 111
@@ -266,7 +287,7 @@ Partial Class frmFirma
' '
Me.lblAnrede.AutoSize = True Me.lblAnrede.AutoSize = True
Me.lblAnrede.BackColor = System.Drawing.Color.Transparent Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
Me.lblAnrede.Location = New System.Drawing.Point(12, 91) Me.lblAnrede.Location = New System.Drawing.Point(13, 91)
Me.lblAnrede.Name = "lblAnrede" Me.lblAnrede.Name = "lblAnrede"
Me.lblAnrede.Size = New System.Drawing.Size(51, 13) Me.lblAnrede.Size = New System.Drawing.Size(51, 13)
Me.lblAnrede.TabIndex = 112 Me.lblAnrede.TabIndex = 112
@@ -276,7 +297,7 @@ Partial Class frmFirma
' '
Me.lblName2.AutoSize = True Me.lblName2.AutoSize = True
Me.lblName2.BackColor = System.Drawing.Color.Transparent Me.lblName2.BackColor = System.Drawing.Color.Transparent
Me.lblName2.Location = New System.Drawing.Point(12, 117) Me.lblName2.Location = New System.Drawing.Point(13, 117)
Me.lblName2.Name = "lblName2" Me.lblName2.Name = "lblName2"
Me.lblName2.Size = New System.Drawing.Size(51, 13) Me.lblName2.Size = New System.Drawing.Size(51, 13)
Me.lblName2.TabIndex = 114 Me.lblName2.TabIndex = 114
@@ -284,16 +305,16 @@ Partial Class frmFirma
' '
'txtName2 'txtName2
' '
Me.txtName2.Location = New System.Drawing.Point(71, 114) Me.txtName2.Location = New System.Drawing.Point(72, 114)
Me.txtName2.Name = "txtName2" Me.txtName2.Name = "txtName2"
Me.txtName2.Size = New System.Drawing.Size(162, 20) Me.txtName2.Size = New System.Drawing.Size(162, 20)
Me.txtName2.TabIndex = 113 Me.txtName2.TabIndex = 2
' '
'lblStrasse 'lblStrasse
' '
Me.lblStrasse.AutoSize = True Me.lblStrasse.AutoSize = True
Me.lblStrasse.BackColor = System.Drawing.Color.Transparent Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
Me.lblStrasse.Location = New System.Drawing.Point(12, 143) Me.lblStrasse.Location = New System.Drawing.Point(13, 143)
Me.lblStrasse.Name = "lblStrasse" Me.lblStrasse.Name = "lblStrasse"
Me.lblStrasse.Size = New System.Drawing.Size(42, 13) Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
Me.lblStrasse.TabIndex = 116 Me.lblStrasse.TabIndex = 116
@@ -301,16 +322,16 @@ Partial Class frmFirma
' '
'txtStrasse 'txtStrasse
' '
Me.txtStrasse.Location = New System.Drawing.Point(71, 140) Me.txtStrasse.Location = New System.Drawing.Point(72, 140)
Me.txtStrasse.Name = "txtStrasse" Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(162, 20) Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 115 Me.txtStrasse.TabIndex = 3
' '
'lblPostfach 'lblPostfach
' '
Me.lblPostfach.AutoSize = True Me.lblPostfach.AutoSize = True
Me.lblPostfach.BackColor = System.Drawing.Color.Transparent Me.lblPostfach.BackColor = System.Drawing.Color.Transparent
Me.lblPostfach.Location = New System.Drawing.Point(12, 169) Me.lblPostfach.Location = New System.Drawing.Point(13, 169)
Me.lblPostfach.Name = "lblPostfach" Me.lblPostfach.Name = "lblPostfach"
Me.lblPostfach.Size = New System.Drawing.Size(49, 13) Me.lblPostfach.Size = New System.Drawing.Size(49, 13)
Me.lblPostfach.TabIndex = 118 Me.lblPostfach.TabIndex = 118
@@ -318,16 +339,16 @@ Partial Class frmFirma
' '
'txtPostfach 'txtPostfach
' '
Me.txtPostfach.Location = New System.Drawing.Point(71, 166) Me.txtPostfach.Location = New System.Drawing.Point(72, 166)
Me.txtPostfach.Name = "txtPostfach" Me.txtPostfach.Name = "txtPostfach"
Me.txtPostfach.Size = New System.Drawing.Size(162, 20) Me.txtPostfach.Size = New System.Drawing.Size(162, 20)
Me.txtPostfach.TabIndex = 117 Me.txtPostfach.TabIndex = 4
' '
'lblPlz 'lblPlz
' '
Me.lblPlz.AutoSize = True Me.lblPlz.AutoSize = True
Me.lblPlz.BackColor = System.Drawing.Color.Transparent Me.lblPlz.BackColor = System.Drawing.Color.Transparent
Me.lblPlz.Location = New System.Drawing.Point(12, 195) Me.lblPlz.Location = New System.Drawing.Point(13, 195)
Me.lblPlz.Name = "lblPlz" Me.lblPlz.Name = "lblPlz"
Me.lblPlz.Size = New System.Drawing.Size(46, 13) Me.lblPlz.Size = New System.Drawing.Size(46, 13)
Me.lblPlz.TabIndex = 120 Me.lblPlz.TabIndex = 120
@@ -335,23 +356,23 @@ Partial Class frmFirma
' '
'txtPlz 'txtPlz
' '
Me.txtPlz.Location = New System.Drawing.Point(71, 192) Me.txtPlz.Location = New System.Drawing.Point(72, 192)
Me.txtPlz.Name = "txtPlz" Me.txtPlz.Name = "txtPlz"
Me.txtPlz.Size = New System.Drawing.Size(48, 20) Me.txtPlz.Size = New System.Drawing.Size(48, 20)
Me.txtPlz.TabIndex = 119 Me.txtPlz.TabIndex = 5
' '
'txtOrt 'txtOrt
' '
Me.txtOrt.Location = New System.Drawing.Point(125, 192) Me.txtOrt.Location = New System.Drawing.Point(126, 192)
Me.txtOrt.Name = "txtOrt" Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(108, 20) Me.txtOrt.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 121 Me.txtOrt.TabIndex = 6
' '
'lblTelefon 'lblTelefon
' '
Me.lblTelefon.AutoSize = True Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(12, 221) Me.lblTelefon.Location = New System.Drawing.Point(16, 248)
Me.lblTelefon.Name = "lblTelefon" Me.lblTelefon.Name = "lblTelefon"
Me.lblTelefon.Size = New System.Drawing.Size(43, 13) Me.lblTelefon.Size = New System.Drawing.Size(43, 13)
Me.lblTelefon.TabIndex = 123 Me.lblTelefon.TabIndex = 123
@@ -359,16 +380,16 @@ Partial Class frmFirma
' '
'txtTel 'txtTel
' '
Me.txtTel.Location = New System.Drawing.Point(71, 218) Me.txtTel.Location = New System.Drawing.Point(72, 245)
Me.txtTel.Name = "txtTel" Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(162, 20) Me.txtTel.Size = New System.Drawing.Size(162, 20)
Me.txtTel.TabIndex = 122 Me.txtTel.TabIndex = 8
' '
'lblTelefax 'lblTelefax
' '
Me.lblTelefax.AutoSize = True Me.lblTelefax.AutoSize = True
Me.lblTelefax.BackColor = System.Drawing.Color.Transparent Me.lblTelefax.BackColor = System.Drawing.Color.Transparent
Me.lblTelefax.Location = New System.Drawing.Point(12, 247) Me.lblTelefax.Location = New System.Drawing.Point(13, 274)
Me.lblTelefax.Name = "lblTelefax" Me.lblTelefax.Name = "lblTelefax"
Me.lblTelefax.Size = New System.Drawing.Size(42, 13) Me.lblTelefax.Size = New System.Drawing.Size(42, 13)
Me.lblTelefax.TabIndex = 125 Me.lblTelefax.TabIndex = 125
@@ -376,16 +397,16 @@ Partial Class frmFirma
' '
'txtFax 'txtFax
' '
Me.txtFax.Location = New System.Drawing.Point(71, 244) Me.txtFax.Location = New System.Drawing.Point(72, 271)
Me.txtFax.Name = "txtFax" Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(162, 20) Me.txtFax.Size = New System.Drawing.Size(162, 20)
Me.txtFax.TabIndex = 124 Me.txtFax.TabIndex = 9
' '
'lblMobile 'lblMobile
' '
Me.lblMobile.AutoSize = True Me.lblMobile.AutoSize = True
Me.lblMobile.BackColor = System.Drawing.Color.Transparent Me.lblMobile.BackColor = System.Drawing.Color.Transparent
Me.lblMobile.Location = New System.Drawing.Point(12, 273) Me.lblMobile.Location = New System.Drawing.Point(13, 300)
Me.lblMobile.Name = "lblMobile" Me.lblMobile.Name = "lblMobile"
Me.lblMobile.Size = New System.Drawing.Size(38, 13) Me.lblMobile.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 127 Me.lblMobile.TabIndex = 127
@@ -393,16 +414,16 @@ Partial Class frmFirma
' '
'txtnatel 'txtnatel
' '
Me.txtnatel.Location = New System.Drawing.Point(71, 270) Me.txtnatel.Location = New System.Drawing.Point(72, 297)
Me.txtnatel.Name = "txtnatel" Me.txtnatel.Name = "txtnatel"
Me.txtnatel.Size = New System.Drawing.Size(162, 20) Me.txtnatel.Size = New System.Drawing.Size(162, 20)
Me.txtnatel.TabIndex = 126 Me.txtnatel.TabIndex = 10
' '
'lblEmail 'lblEmail
' '
Me.lblEmail.AutoSize = True Me.lblEmail.AutoSize = True
Me.lblEmail.BackColor = System.Drawing.Color.Transparent Me.lblEmail.BackColor = System.Drawing.Color.Transparent
Me.lblEmail.Location = New System.Drawing.Point(12, 299) Me.lblEmail.Location = New System.Drawing.Point(13, 326)
Me.lblEmail.Name = "lblEmail" Me.lblEmail.Name = "lblEmail"
Me.lblEmail.Size = New System.Drawing.Size(36, 13) Me.lblEmail.Size = New System.Drawing.Size(36, 13)
Me.lblEmail.TabIndex = 129 Me.lblEmail.TabIndex = 129
@@ -410,16 +431,16 @@ Partial Class frmFirma
' '
'txtE_Mail 'txtE_Mail
' '
Me.txtE_Mail.Location = New System.Drawing.Point(71, 296) Me.txtE_Mail.Location = New System.Drawing.Point(72, 323)
Me.txtE_Mail.Name = "txtE_Mail" Me.txtE_Mail.Name = "txtE_Mail"
Me.txtE_Mail.Size = New System.Drawing.Size(162, 20) Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 128 Me.txtE_Mail.TabIndex = 11
' '
'lblInterner 'lblInterner
' '
Me.lblInterner.AutoSize = True Me.lblInterner.AutoSize = True
Me.lblInterner.BackColor = System.Drawing.Color.Transparent Me.lblInterner.BackColor = System.Drawing.Color.Transparent
Me.lblInterner.Location = New System.Drawing.Point(12, 325) Me.lblInterner.Location = New System.Drawing.Point(13, 352)
Me.lblInterner.Name = "lblInterner" Me.lblInterner.Name = "lblInterner"
Me.lblInterner.Size = New System.Drawing.Size(43, 13) Me.lblInterner.Size = New System.Drawing.Size(43, 13)
Me.lblInterner.TabIndex = 131 Me.lblInterner.TabIndex = 131
@@ -427,19 +448,19 @@ Partial Class frmFirma
' '
'txtweb 'txtweb
' '
Me.txtweb.Location = New System.Drawing.Point(71, 322) Me.txtweb.Location = New System.Drawing.Point(72, 349)
Me.txtweb.Name = "txtweb" Me.txtweb.Name = "txtweb"
Me.txtweb.Size = New System.Drawing.Size(162, 20) Me.txtweb.Size = New System.Drawing.Size(162, 20)
Me.txtweb.TabIndex = 130 Me.txtweb.TabIndex = 12
' '
'cbboxSprache 'cbboxSprache
' '
Me.cbboxSprache.Dataselection = Nothing Me.cbboxSprache.Dataselection = Nothing
Me.cbboxSprache.Displaymember = Nothing Me.cbboxSprache.Displaymember = Nothing
Me.cbboxSprache.Location = New System.Drawing.Point(320, 114) Me.cbboxSprache.Location = New System.Drawing.Point(321, 114)
Me.cbboxSprache.Name = "cbboxSprache" Me.cbboxSprache.Name = "cbboxSprache"
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21) Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 203 Me.cbboxSprache.TabIndex = 14
Me.cbboxSprache.Table = Nothing Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = "" Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing Me.cbboxSprache.Valuemember = Nothing
@@ -448,10 +469,10 @@ Partial Class frmFirma
' '
Me.cbboxStatus.Dataselection = Nothing Me.cbboxStatus.Dataselection = Nothing
Me.cbboxStatus.Displaymember = Nothing Me.cbboxStatus.Displaymember = Nothing
Me.cbboxStatus.Location = New System.Drawing.Point(320, 87) Me.cbboxStatus.Location = New System.Drawing.Point(321, 87)
Me.cbboxStatus.Name = "cbboxStatus" Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21) Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 202 Me.cbboxStatus.TabIndex = 13
Me.cbboxStatus.Table = Nothing Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = "" Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing Me.cbboxStatus.Valuemember = Nothing
@@ -460,7 +481,7 @@ Partial Class frmFirma
' '
Me.Label15.AutoSize = True Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Location = New System.Drawing.Point(250, 172) Me.Label15.Location = New System.Drawing.Point(251, 201)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(50, 13) Me.Label15.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 211 Me.Label15.TabIndex = 211
@@ -470,7 +491,7 @@ Partial Class frmFirma
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Location = New System.Drawing.Point(250, 148) Me.Label14.Location = New System.Drawing.Point(251, 177)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(49, 13) Me.Label14.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 210 Me.Label14.TabIndex = 210
@@ -478,17 +499,17 @@ Partial Class frmFirma
' '
'txtBemerkung 'txtBemerkung
' '
Me.txtBemerkung.Location = New System.Drawing.Point(501, 107) Me.txtBemerkung.Location = New System.Drawing.Point(502, 107)
Me.txtBemerkung.Multiline = True Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(427, 197) Me.txtBemerkung.Size = New System.Drawing.Size(427, 197)
Me.txtBemerkung.TabIndex = 206 Me.txtBemerkung.TabIndex = 19
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(498, 87) Me.Label2.Location = New System.Drawing.Point(499, 87)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13) Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 209 Me.Label2.TabIndex = 209
@@ -498,7 +519,7 @@ Partial Class frmFirma
' '
Me.lblSprache.AutoSize = True Me.lblSprache.AutoSize = True
Me.lblSprache.BackColor = System.Drawing.Color.Transparent Me.lblSprache.BackColor = System.Drawing.Color.Transparent
Me.lblSprache.Location = New System.Drawing.Point(250, 118) Me.lblSprache.Location = New System.Drawing.Point(251, 118)
Me.lblSprache.Name = "lblSprache" Me.lblSprache.Name = "lblSprache"
Me.lblSprache.Size = New System.Drawing.Size(47, 13) Me.lblSprache.Size = New System.Drawing.Size(47, 13)
Me.lblSprache.TabIndex = 208 Me.lblSprache.TabIndex = 208
@@ -508,7 +529,7 @@ Partial Class frmFirma
' '
Me.lblStatus.AutoSize = True Me.lblStatus.AutoSize = True
Me.lblStatus.BackColor = System.Drawing.Color.Transparent Me.lblStatus.BackColor = System.Drawing.Color.Transparent
Me.lblStatus.Location = New System.Drawing.Point(250, 91) Me.lblStatus.Location = New System.Drawing.Point(251, 91)
Me.lblStatus.Name = "lblStatus" Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(37, 13) Me.lblStatus.Size = New System.Drawing.Size(37, 13)
Me.lblStatus.TabIndex = 207 Me.lblStatus.TabIndex = 207
@@ -518,7 +539,7 @@ Partial Class frmFirma
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.Transparent Me.Label13.BackColor = System.Drawing.Color.Transparent
Me.Label13.Location = New System.Drawing.Point(250, 199) Me.Label13.Location = New System.Drawing.Point(251, 228)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(53, 13) Me.Label13.Size = New System.Drawing.Size(53, 13)
Me.Label13.TabIndex = 213 Me.Label13.TabIndex = 213
@@ -528,18 +549,18 @@ Partial Class frmFirma
' '
Me.chklbAdresstyp.FormattingEnabled = True Me.chklbAdresstyp.FormattingEnabled = True
Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"}) Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"})
Me.chklbAdresstyp.Location = New System.Drawing.Point(317, 195) Me.chklbAdresstyp.Location = New System.Drawing.Point(318, 224)
Me.chklbAdresstyp.Name = "chklbAdresstyp" Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(165, 109) Me.chklbAdresstyp.Size = New System.Drawing.Size(165, 109)
Me.chklbAdresstyp.TabIndex = 212 Me.chklbAdresstyp.TabIndex = 18
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.c1daten) Me.GroupBox1.Controls.Add(Me.c1daten)
Me.GroupBox1.Controls.Add(Me.ToolStrip2) Me.GroupBox1.Controls.Add(Me.ToolStrip2)
Me.GroupBox1.Location = New System.Drawing.Point(12, 348) Me.GroupBox1.Location = New System.Drawing.Point(13, 388)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(916, 154) Me.GroupBox1.Size = New System.Drawing.Size(916, 114)
Me.GroupBox1.TabIndex = 214 Me.GroupBox1.TabIndex = 214
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Ansprechpartner" Me.GroupBox1.Text = "Ansprechpartner"
@@ -559,7 +580,7 @@ Partial Class frmFirma
Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1daten.PreviewInfo.ZoomFactor = 75.0R Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) 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.Size = New System.Drawing.Size(910, 70)
Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.c1daten.TabIndex = 1 Me.c1daten.TabIndex = 1
Me.c1daten.Text = "C1TrueDBGrid1" Me.c1daten.Text = "C1TrueDBGrid1"
@@ -687,21 +708,21 @@ Partial Class frmFirma
' '
'dtgueltigab 'dtgueltigab
' '
Me.dtgueltigab.Location = New System.Drawing.Point(320, 140) Me.dtgueltigab.Location = New System.Drawing.Point(321, 169)
Me.dtgueltigab.Name = "dtgueltigab" Me.dtgueltigab.Name = "dtgueltigab"
Me.dtgueltigab.Size = New System.Drawing.Size(141, 20) Me.dtgueltigab.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigab.TabIndex = 215 Me.dtgueltigab.TabIndex = 16
' '
'dtgueltigbis 'dtgueltigbis
' '
Me.dtgueltigbis.Location = New System.Drawing.Point(320, 169) Me.dtgueltigbis.Location = New System.Drawing.Point(321, 198)
Me.dtgueltigbis.Name = "dtgueltigbis" Me.dtgueltigbis.Name = "dtgueltigbis"
Me.dtgueltigbis.Size = New System.Drawing.Size(141, 20) Me.dtgueltigbis.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigbis.TabIndex = 216 Me.dtgueltigbis.TabIndex = 17
' '
'btndeldatetimeab 'btndeldatetimeab
' '
Me.btndeldatetimeab.Location = New System.Drawing.Point(467, 140) Me.btndeldatetimeab.Location = New System.Drawing.Point(468, 169)
Me.btndeldatetimeab.Name = "btndeldatetimeab" Me.btndeldatetimeab.Name = "btndeldatetimeab"
Me.btndeldatetimeab.Size = New System.Drawing.Size(15, 23) Me.btndeldatetimeab.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimeab.TabIndex = 217 Me.btndeldatetimeab.TabIndex = 217
@@ -709,57 +730,108 @@ Partial Class frmFirma
' '
'btndeldatetimebis 'btndeldatetimebis
' '
Me.btndeldatetimebis.Location = New System.Drawing.Point(467, 169) Me.btndeldatetimebis.Location = New System.Drawing.Point(468, 198)
Me.btndeldatetimebis.Name = "btndeldatetimebis" Me.btndeldatetimebis.Name = "btndeldatetimebis"
Me.btndeldatetimebis.Size = New System.Drawing.Size(15, 23) Me.btndeldatetimebis.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimebis.TabIndex = 218 Me.btndeldatetimebis.TabIndex = 218
Me.btndeldatetimebis.UseVisualStyleBackColor = True Me.btndeldatetimebis.UseVisualStyleBackColor = True
' '
'cbtxtboxKanton
'
Me.cbtxtboxKanton.FormattingEnabled = True
Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
Me.cbtxtboxKanton.Location = New System.Drawing.Point(72, 218)
Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
Me.cbtxtboxKanton.TabIndex = 7
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(18, 221)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 219
Me.Label3.Text = "Kanton"
'
'txtGLN
'
Me.txtGLN.Location = New System.Drawing.Point(321, 143)
Me.txtGLN.Name = "txtGLN"
Me.txtGLN.Size = New System.Drawing.Size(162, 20)
Me.txtGLN.TabIndex = 15
'
'lblGLN
'
Me.lblGLN.AutoSize = True
Me.lblGLN.BackColor = System.Drawing.Color.Transparent
Me.lblGLN.Location = New System.Drawing.Point(251, 146)
Me.lblGLN.Name = "lblGLN"
Me.lblGLN.Size = New System.Drawing.Size(43, 13)
Me.lblGLN.TabIndex = 221
Me.lblGLN.Text = "GLN-Nr"
'
'Finanzen1
'
Me.Finanzen1.Location = New System.Drawing.Point(0, 62)
Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(990, 587)
Me.Finanzen1.TabIndex = 222
Me.Finanzen1.Visible = False
'
'frmFirma 'frmFirma
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(940, 514) Me.ClientSize = New System.Drawing.Size(1003, 657)
Me.Controls.Add(Me.btndeldatetimebis) Me.Controls.Add(Me.Finanzen1)
Me.Controls.Add(Me.btndeldatetimeab) Me.Controls.Add(Me.txtnrfirma)
Me.Controls.Add(Me.dtgueltigbis) Me.Controls.Add(Me.txtGLN)
Me.Controls.Add(Me.dtgueltigab) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.chklbAdresstyp) Me.Controls.Add(Me.lblGLN)
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.lblNr)
Me.Controls.Add(Me.lblAnrede) Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.txtName1) Me.Controls.Add(Me.txtweb)
Me.Controls.Add(Me.txtnrfirma) Me.Controls.Add(Me.cbtxtboxKanton)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.lblEmail)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.lblInterner)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtE_Mail)
Me.Controls.Add(Me.txtName2)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.btndeldatetimebis)
Me.Controls.Add(Me.lblMobile)
Me.Controls.Add(Me.lblName2)
Me.Controls.Add(Me.lblSprache)
Me.Controls.Add(Me.btndeldatetimeab)
Me.Controls.Add(Me.txtnatel)
Me.Controls.Add(Me.txtStrasse)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.dtgueltigbis)
Me.Controls.Add(Me.lblTelefax)
Me.Controls.Add(Me.lblStrasse)
Me.Controls.Add(Me.txtBemerkung)
Me.Controls.Add(Me.dtgueltigab)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.txtPostfach)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.lblTelefon)
Me.Controls.Add(Me.lblPostfach)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.txtPlz)
Me.Controls.Add(Me.cbboxStatus)
Me.Controls.Add(Me.chklbAdresstyp)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.lblPlz)
Me.Controls.Add(Me.cbboxSprache)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFirma" Me.Name = "frmFirma"
Me.Text = "Firmen" Me.Text = "Firmen"
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
@@ -844,4 +916,11 @@ Partial Class frmFirma
Friend WithEvents ToolStripButton11 As ToolStripButton Friend WithEvents ToolStripButton11 As ToolStripButton
Friend WithEvents ToolStripButton12 As ToolStripButton Friend WithEvents ToolStripButton12 As ToolStripButton
Friend WithEvents ToolStripButton13 As ToolStripButton Friend WithEvents ToolStripButton13 As ToolStripButton
Friend WithEvents cbtxtboxKanton As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents txtGLN As TextBox
Friend WithEvents lblGLN As Label
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbtnFinanzen As ToolStripButton
Friend WithEvents Finanzen1 As Finanzen
End Class End Class

2839
DPM2016/Firmen/frmFirma.resx
View File

File diff suppressed because it is too large Load Diff

77
DPM2016/Firmen/frmFirma.vb
View File

@@ -1,4 +1,5 @@
Imports DPM2016.MyCombobox Imports System.ComponentModel
Imports DPM2016.MyCombobox
Public Class frmFirma Public Class frmFirma
Dim m_haschanges As Boolean Dim m_haschanges As Boolean
Property HasChanges As Boolean Property HasChanges As Boolean
@@ -19,6 +20,8 @@ Public Class frmFirma
m_firmanr = value m_firmanr = value
Get_Data() Get_Data()
AddChanges(Me) AddChanges(Me)
Me.txtName1.Select()
Me.Finanzen1.Patientnr = value
Me.HasChanges = False Me.HasChanges = False
End Set End Set
End Property End Property
@@ -210,9 +213,9 @@ Public Class frmFirma
Dim ctlname As String Dim ctlname As String
Dim colname As String Dim colname As String
Try Try
db.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString) DB.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0) Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In db.dsDaten.Tables(0).Columns For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
colname = c.ColumnName colname = c.ColumnName
For Each Ctl As Control In Me.Controls For Each Ctl As Control In Me.Controls
'Dim objtype As System.Type = Ctl.GetType 'Dim objtype As System.Type = Ctl.GetType
@@ -238,6 +241,18 @@ Public Class frmFirma
Exit For Exit For
End If End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim ct As ComboBox
Dim o As Object = Ctl
Try
o.text = r(c.ColumnName)
Catch
o.Text = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information) log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim dt As DateTimePicker Dim dt As DateTimePicker
@@ -354,6 +369,16 @@ Public Class frmFirma
End Try End Try
Exit For Exit For
End If End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
r(c.ColumnName) = o.text
Catch ex As Exception
r(c.ColumnName) = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker Dim dt As DateTimePicker
dt = Ctl dt = Ctl
@@ -490,9 +515,53 @@ Public Class frmFirma
End Sub End Sub
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Firma")
db.Get_Tabledata("Firma", " where nrfirma=500000")
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.Firmanr = newkey
db.Dispose()
End Sub 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 nrfirma As Integer = db.Search("Firma", Me.tstxtsuche.Text)
If nrfirma <> -1 Then Me.Firmanr = nrfirma
db.Dispose()
End If
End Sub
Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPlz.Leave
If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPlz.Text, Me.txtOrt, Me.cbtxtboxKanton)
End Sub
Private Sub frmFirma_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
If Me.Check_Changes = False Then e.Cancel = True
End Sub
Private Sub tsbtnFinanzen_Click(sender As Object, e As EventArgs) Handles tsbtnFinanzen.Click
If Me.Finanzen1.Visible = False Then Me.Finanzen1.Visible = True Else Me.Finanzen1.Visible = False
End Sub
#End Region #End Region

10
DPM2016/Firmen/frmFirmaAP.Designer.vb generated
View File

@@ -118,7 +118,7 @@ Partial Class frmFirmaAP
'ToolStripTextBox1 'ToolStripTextBox1
' '
Me.ToolStripTextBox1.Name = "ToolStripTextBox1" Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 23) Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 25)
Me.ToolStripTextBox1.Visible = False Me.ToolStripTextBox1.Visible = False
' '
'ToolStripButton10 'ToolStripButton10
@@ -127,7 +127,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image)
Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton10.Name = "ToolStripButton10" Me.ToolStripButton10.Name = "ToolStripButton10"
Me.ToolStripButton10.Size = New System.Drawing.Size(23, 20) Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton10.Text = "Erster Datensatz" Me.ToolStripButton10.Text = "Erster Datensatz"
Me.ToolStripButton10.Visible = False Me.ToolStripButton10.Visible = False
' '
@@ -137,7 +137,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image)
Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton11.Name = "ToolStripButton11" Me.ToolStripButton11.Name = "ToolStripButton11"
Me.ToolStripButton11.Size = New System.Drawing.Size(23, 20) Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton11.Text = "Vorheriger Datensatz" Me.ToolStripButton11.Text = "Vorheriger Datensatz"
Me.ToolStripButton11.Visible = False Me.ToolStripButton11.Visible = False
' '
@@ -147,7 +147,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image)
Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton12.Name = "ToolStripButton12" Me.ToolStripButton12.Name = "ToolStripButton12"
Me.ToolStripButton12.Size = New System.Drawing.Size(23, 20) Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton12.Text = "nächster Datensatz" Me.ToolStripButton12.Text = "nächster Datensatz"
Me.ToolStripButton12.Visible = False Me.ToolStripButton12.Visible = False
' '
@@ -157,7 +157,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image)
Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton13.Name = "ToolStripButton13" Me.ToolStripButton13.Name = "ToolStripButton13"
Me.ToolStripButton13.Size = New System.Drawing.Size(23, 20) Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton13.Text = "Letzter Datensatz" Me.ToolStripButton13.Text = "Letzter Datensatz"
Me.ToolStripButton13.Visible = False Me.ToolStripButton13.Visible = False
' '

124
DPM2016/Klassen/clsStammdaten_flat.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class clsStammdaten_flat Partial Class clsStammdaten_flat
Inherits System.Windows.Forms.UserControl Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,9 +20,26 @@ Partial Class clsStammdaten_flat
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_flat)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(clsStammdaten_flat))
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.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.c1daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
@@ -31,12 +48,21 @@ Partial Class clsStammdaten_flat
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuerBenutzerEröffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'c1daten 'c1daten
' '
Me.c1daten.AllowAddNew = True
Me.c1daten.AlternatingRows = True Me.c1daten.AlternatingRows = True
Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -59,7 +85,7 @@ Partial Class clsStammdaten_flat
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6, Me.ToolStripButton7})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(758, 25) Me.ToolStrip1.Size = New System.Drawing.Size(758, 25)
@@ -124,10 +150,92 @@ Partial Class clsStammdaten_flat
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "ToolStripButton6" Me.ToolStripButton6.Text = "ToolStripButton6"
' '
'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 = "ToolStripButton7"
Me.ToolStripButton7.Visible = False
'
'C1TrueDBDropdown1
'
Me.C1TrueDBDropdown1.AllowColMove = True
Me.C1TrueDBDropdown1.AllowColSelect = True
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown1.AlternatingRows = False
Me.C1TrueDBDropdown1.CaptionStyle = Style1
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
Me.C1TrueDBDropdown1.EvenRowStyle = Style2
Me.C1TrueDBDropdown1.FetchRowStyles = False
Me.C1TrueDBDropdown1.FooterStyle = Style3
Me.C1TrueDBDropdown1.HeadingStyle = Style4
Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70)
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
Me.C1TrueDBDropdown1.OddRowStyle = Style6
Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.ScrollTips = False
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150)
Me.C1TrueDBDropdown1.Style = Style8
Me.C1TrueDBDropdown1.TabIndex = 14
Me.C1TrueDBDropdown1.Visible = False
Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag")
'
'C1TrueDBDropdown2
'
Me.C1TrueDBDropdown2.AllowColMove = True
Me.C1TrueDBDropdown2.AllowColSelect = True
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown2.AlternatingRows = False
Me.C1TrueDBDropdown2.CaptionStyle = Style9
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
Me.C1TrueDBDropdown2.EvenRowStyle = Style10
Me.C1TrueDBDropdown2.FetchRowStyles = False
Me.C1TrueDBDropdown2.FooterStyle = Style11
Me.C1TrueDBDropdown2.HeadingStyle = Style12
Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153)
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
Me.C1TrueDBDropdown2.OddRowStyle = Style14
Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
Me.C1TrueDBDropdown2.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.ScrollTips = False
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150)
Me.C1TrueDBDropdown2.Style = Style16
Me.C1TrueDBDropdown2.TabIndex = 15
Me.C1TrueDBDropdown2.Visible = False
Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 26)
'
'NeuerBenutzerEröffnenToolStripMenuItem
'
Me.NeuerBenutzerEröffnenToolStripMenuItem.Name = "NeuerBenutzerEröffnenToolStripMenuItem"
Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen"
'
'clsStammdaten_flat 'clsStammdaten_flat
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.C1TrueDBDropdown2)
Me.Controls.Add(Me.C1TrueDBDropdown1)
Me.Controls.Add(Me.c1daten) Me.Controls.Add(Me.c1daten)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsStammdaten_flat" Me.Name = "clsStammdaten_flat"
@@ -135,6 +243,9 @@ Partial Class clsStammdaten_flat
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -147,4 +258,9 @@ Partial Class clsStammdaten_flat
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuerBenutzerEröffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButton7 As ToolStripButton
End Class End Class

454
DPM2016/Klassen/clsStammdaten_flat.resx
View File

@@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="c1daten.PropBag" xml:space="preserve"> <data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 756, 374&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}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, 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> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@@ -163,19 +163,19 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6KwcWZYjb3Obx YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+i6qwYWZZjb3Obx
7MzN5dY5Z9tJV86MirIgK8t++KssC63IYSoVRaVWRmn2Q9FIUcpCyiXVRXiRRCFIFwWfjhqLXdYDH3if 7MzN1dY5Z9tJZ84Mi95AK3vXNC0L7c1hKiVFpVZKafaiaKgoZSHViuoiuuiFIoguCj4dNRa7tB984Pk9
F94P7/d5X/E/9XVyIDj7aexn295M/mwt1vWK3K6Oyly6js0jJek8KnHjkJ2n8V3MTPTwZfwes+/7ubrf 8Hx4vr/nEf9TX14OBj+/nfjVujODv1uzdbkip6vjQA5dh6aRknQelLiy186D+FY+TfXycfIW318NcKnM
mirorJBJW2tnzXobazf8JX29ldWWDOYSPSS6DjPa5Odb4hnXDzpSBR3lMplWJza7hN3hSmLNdpKeYeNd mirorJBZtsLO8lU2Vqz+R9oqK0st6fxI9JLo2sd4o5+viYdc3uNIFXSUy2RYndjsEnaHK4k1y0lauo0X
W4TRSzrD54PMvHnIrSM5qQJHg0CqXkKO3YfkUpBy3EiSjMsls8EqMdFqMHwxxPPGINOjnQtR/xwVwlYj rRHGz+uMng7y6dkdru3PThU46gVS1Tyy7T4kl4KU7UaSZFwumdVWiakWg9GzIR41BPkw3jkT9e9RIWxH
SEy34zQluVkabmcARfKjyF5kt4csh5vX8TBDTTr9DZv4OHiN+1XKosBWLRj/1ExrvyCzSmCvFzjPCeTy BYkPbThNSU6mhtsZQJH8KLIX2e0h0+HmaTzMcKPOQP163g6101OpzApsVYLJd020DAgyKgX2OoHzlEAu
5XiVIJ48P9m5PsYuafSf1Zl7sJK3fS08rPUiXHWCFx+qiA8JmgfN9VQRIx8ivPwcXpBs9ITJzw8ieQKM X4hXCeLJ9ZOV42PivMbASZ0ftxfzvL+ZO9VehKtGMPKmkviwoGnIXL8uYOxNhMfvwzOStZ4weXlBJE+A
nFd5ckbjR88q3txvoq/evyh4nCgjPiaIjwpaXgtaJwSvvkdwnBUE84soCIRw52sMNQboOx2kuczJy84a sdMq909o/OxdwrOeRvrr/LOCe4kdxCcE8XFB81NBy5TgybcIjpOCYF4B6wIh3Hkaww0B+o8Hadrh5HHn
njUEFiJY7GaE7rdbaE8IsuYjnBQ4zgjyDq1AV6OouoEvaDDQ4Kf31EZuVyq8uFbBYKOaHKIlu1bQNeXD UR7WB2YiWOxmhO7nhbQlBJnTEY4JHCcEuXsXoatRVN3AFzQYrPfTV7uW6wcURtorGGpQk0O0ZFULul77
eVpgBHZjaKUY4WIMI0rEKCQQivKk3suDOh/d1V4GLu9h+EIo5RktTvPKSt1SosYOokUlFEWLFyg00TbH cB4XGIFtGFoJRrgIw4gSMfIJhKLcr/Nyu8ZHd5WXwQvbGT0TSnlGi9O8slIzn6hRSrSgmIJo0Qz5JtqG
eFTnobsqjzvHPfQ0xRhrjqQIRFvpOraWlFIS20nJtu1JYiaFxTvorZW5e0Kh45ibu6dCjLcUInRdR9dC GHdrPHRX5nLjsIfexhgTTZEUgWgtWcnG4hKKY1so3rQ5Scwkv6iUvmqZm0cUOg65uVkbYrI5H6HrOroW
aFoYVZ3HXKua2atJVLMv2KSzLxbgSoVi/kCZm0fzmGjfsjjEf6VcT99/+YDj1+SVWGqEf6hlJmlCCMtv QtPCqOo05lrVzF5Nopr9uvU6u2IBLlYo5g+UuXowl6m2wtkhzpVyPa3s3O41v19ejKVGmEMtMFkmhLD8
k4rCoiUUiGcAAAAASUVORK5CYII= AXVKwo8FvT+zAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -197,15 +197,15 @@
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL
+sAwJRlBBNLozoYSXhQFc7Su7CLoC7sYte82a5/N6VbbktVNKFpIrjXCae3tnbnNXbSR779n8Fz2bvaD +sAwJRlBBNLoTocSXhQFc7Su7KLoA+xi1L7brH02p1ttS1YEIWghudYIp7W3d+Y2d9FGvv+ewXPZu9kP
P+d5zvmfc56H2QwBicQ13dJyg17/j6nu7gf3GAa6mhoEpdKPb2WyWlqqDL/wqGM+EYPn1h3cJUPGRCK8 /pznOed/znkeZjMEJBLXTEvLdXr9P6a7ux/cZRjoamoQlEo/vpHJammpMvzCo475RAyem7dxhwwZF4nw
qK/HjETSRS3l+T13nctMtCMVe4L4IouxvRLcr6qCWyy+SS3CbMS1+l+BM0i5mrFsYrASOInYDw6vVIPf vL4esxJJF7WU5/fcNS4z2Y5U7DHiiyzG90pwv6oKbrH4BrUIsxHX6n8FziDlasayicFK4CRiPzi8VA19
qEUYPqE9nQkrkPLIyQAplsfF4Hxt+G7bgsTc82Zq+zcxn2orG7pSYMnm9ORxJO07sDrZSQbJ8CcgUlGb oxZh+IT2dCasQMojJwOkWJ4Qg/O14bttCxJzz5qp7d/EfKqtbOhKgSWb01PHkbTvwOpUJxkkw5+ASEVt
MBvzQ0HWK8fq1CnygoNkczs4/zHkfLui1CIMH7umTPs68NN7GGshBVjyhbU3vZh9fID/ZKutpjZhigsP wmzMDwdZrxyr06fICw6Sze3g/MeQ8+2KUoswfOyqMu3rwE/vYayFFGDJF9Ze9+L9vQP8J1ttNbUJU1x4
k6y3Dfn3V8FNHEU2fBFpsp0P7z9PLeUpfH6KzKITmZnbyL7uIdvPoRg+Mk7L5RkdvSQC60Tuy0usL4WQ mGS9bci/GwQ3eRTZ8EWkyXY+vP88tZSn8PkJMotOZGZvIfuqh2w/h2L4yAQtl2ds7JIIrBO5Ly+wvhRC
TwaRj3at03JlGht3yy/0diL71YMCGwWKcVtu5cNOWq5MQ1PT2W3bq7Gnrs6dXnrXQNObIxKJ7FOr1SMa PhlEPtq1TsuVaWzcLb/Q24nsVw8KbBQoxm25lQ87abkyDU1NZ7dtr8aeujp3eultA01vjkgksk+tVo9q
jUarN5kUOt2zfrPZPOBwOIZLcjqdA0RKostut7vP5XKd8Pv9MtrOMHa7vdVisfSQpn6DwTBoNBqHSRwh NBqt3mRS6HRP+81m84DD4Rgpyel0DhApiS673e4+l8t1wu/3y2g7w9jt9laLxdJDmvoNBsOQ0WgcIXGU
UV0SPZdyQ0RKvV7fZ7VaDzEMw/wFdbwkXMoYBpEAAAAASUVORK5CYII= RHVJ9FzKDRMp9Xp9n9VqPcQwDPMXXx4kUDB8DQsAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -243,191 +243,229 @@
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsrSURBVHhe7Z0HnBRVuvbXdXf1fu53PyNJicKQBhgYwgBD YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACshSURBVHhe7Z0HnBRVuvZX3V29n/vdvSaSkochw8AQhjjA
hmEGSSKKSAZBcoYBJIkC5tU17bqua85kEEFFRIzsehUloyIgCiooihI993lO1Vt9qvr0THXAhf3m/PjT EIaMiCKSQZCcYQBJooB5dU27ruuaMxlEUBERI7teRcmoCIiCCoqiRM/3PKfqrT5VfXqmOuDCfnN+/OlU
qfp09fs85z2hqnp+U1SKSlEpKkWlqBSVolJUikpRKSpFpagUlaJilm7duvW6ossVu/r37//LiBEj1KhR fbr6fZ7znlBVPb8pLIWlsBSWwlJYCkthKSyFpbAUlsJSWApLYTFL9+7de1/R9YrdAwYM+GXkyJFq9OjR
o9To0aPVmDFj1NixY9W4cePU+PHj1cQJE1T+xIkqPz9fTZo0SU0G48eNV0MGD1ZPPv2sevyZF9STz85T asyYMWrs2LFq3Lhxavz48WrChAlq0sSJKm/SJJWXl6cmT56spoAJ4yeooUOGqCefflY9/swL6sln56un
Tz+/UC1YuFQtXPSiWrRkuVqybIVa9uJK9eLyV9TyFa+ql15+Ta185XX18qtr1CuvvaF59bW1flavVatW n1+kFi5aphYtflEtXrpCLV2+Ui1/cZV6ccUrasXKV9VLL7+mVr3yunr51bXqldfe0Lz62jo/a9ap1Wve
v6l57XWTt9Rra4S31Wryxtvq9bXvqDVr343w5nvqjbdM1qm1b69z7r/Jbd7Be5z3rkZdq1A3P/PV1dif 1Lz2uslb6rW1wttqDXnjbfX6unfU2nXvRnjzPfXGWybr1bq31zv33+Q27+A9znvXoK7VqJuf+eoa7M/q
VWuwb9y/1WrFy6s0y1e+in1/Rb340stq2fKV+D4r1NJlL6klS5erxUvwPRcvw/ddohaA+QsXq/kLFql5 tdg37t8atfLl1ZoVq17Fvr+iXnzpZbV8xSp8n5Vq2fKX1NJlK9SSpfieS5bj+y5VC8GCRUvUgoWL1fwF
8xeoF+bNV8+/ME899cxz6vEnn1GPPvGUeuTRx9SggQN1jCcinhMQV8Z3POLMWI9DzBl3xn8MthkNPajJ C9UL8xeo51+Yr5565jn1+JPPqEefeEo98uhjavCgQTrGkxDPiYgr4zsBcWasxyPmjDvjPxbbjIEe1GT0
qJEj1ciRI38ZM2rUnn59+g1y5UuuDBs8rM9IiL5s2TL1GHZsAgQNy8TxE9Ttt96mOnXoqHbs3qveXb/V qFFq1KhRv4wdPnxv/779B7vyJVeGDxnedxREX758uXoMOzYRgoZl0oSJ6vZbb1OdO3ZSO/fsU+9u2Oax
Y9O2neBzHxu3JkawHqfunWqzsH1XhE92qS0euzVbP/WzTfjsC4/two4v1Ccmn5M9mk8NPjPYsTPC52RX efsu8LmPTdsSI1iPU/cutUXYsTvCJ7vVVo89mm2f+tkufPaFxw5h5xfqE5PPyV7NpwafGezcFeFzsjvA
gN171IebPlEfAN5+8dXXqlPHjurmOXOtcS2IGdNnqI0bNqpVr65SUyZNGe7KmHgZNmTo7htvmKU2b96s nr3qw82fqA8Ab7/46mvVuVMndfPceda45sfMGTPVpo2b1OpXV6upk6eOcGVMvAwfOmzPjTfMVlu2bFHP
nn3mWTXkusFxMWlivmrVspXae+CQ2rp7v8fXB35W+4LsF34KgbutpZ6vDxxWX3/n55vvj/j4lhz0s//g PvOsGnrdkLiYPClP5bTIUfsOHlbb9hzw+Prgz2p/kAPCTyFwt7XU8/XBI+rr7/x88/1RH9+SQ34OHDrm
UYcfHA6Y/HhUfWfwPTl0THNQ+MnhB4MffybHNYfIYYefhCPH1c/g873fq51k3/f4vJ9V61at1dgxY60x 8IPDQZMfj6nvDL4nh49rDgk/Ofxg8OPP5ITmMDni8JNw9IT6GXy+73u1i+z/Hp/3s2qZ01KNGzvOGtOC
LYwpkyar8WPHqQcffPBLV8bEy9DBQ44PHnSdEgYOuFZ1u/IqH7169PReD+IYoCWE8RsgKMg33x2JEi0s mDp5ipowbrx68MEHv3RlTLwMGzL0xJDB1ylh0MBrVfcrr/LRu2cv7/UgjgFaQBi/AYKCfPPd0SjRwsL3
fG9UfS42oR2xCxEcmIIHRQ8KHy16OOF/PnJCQ+EFzwCjx1hjGpa7/nTXCUh4hqNkguW6gYN8ldavV19l RtXnYhPaEbsAwYEpeFD0oPDRoocT/uejJzUUXvAMMGasNaZhuetPd52EhGc5SiZYrhs02Fdpvbr1VEZG
ZGSozDqZqm5mJm7rqOrVqqmrr+rm207InzDRMcB3h9S2L/Z72ETxEOEKw/beAD6hDbHDCF6Y6HG3dovw hsqsnanqZGbitraqWqWKuvqq7r7thLyJkxwDfHdYbf/igIdNFA8RriBs7w3gE9oQO4zgBYked2u3CH/k
h486mAb4ThugVdIGuO2WWxUkTN4AJnVq11HNmjZVbVq3Vm1zcrS4NEXnjp182wk0QMsW0QbwhDDFSQVS mINpgO+0AXKSNsBtt9yqIGHyBjCpXau2ym7aVLVq2VK1ad1ai0tTdOnU2bedQAO0aB5tAE8IU5xUIPW6
r0tQZI+A0IUKTgKCR0QP29od4Q8bwpMjhgF20QA/wgDoNjnAs8U0LLfcfDMNkFwJVlqvbl3dp3fs0EFd BEX2CAhdoOAkIHhE9LCt3RH+iCE8OWoYYDcN8CMMgG6TAzxbTMNyy8030wDJlWCldevU0X16p44d1eVd
3rmzysvNVQ2zGqrOnTr7thM4M6ABvoYBthsGsIqSYmwCmwTFtgmesOg24QOia46dUEcBhdd87RiAMR4z uqi2ubmqQVYD1aVzF992AmcGNMDXMMAOwwBWUVKMTWCToNg2wRMW3SZ8QHTN8ZPqGKDwmq8dAzDGY0cn
KjkD3Dz3JBggq0EDtPy26upuV6tevXpB+E6qSXa2NkNwWxI0gGATJNVogYkrbpAwYscUPKzoNuEhuAiv Z4Cb550CA2TVr4+W30Zd3f1q1bt3bwjfWTVp3FibIbgtCRpAsAmSarTAxBU3SBixYwoeVnSb8BBchNec
Of6LFl5InQHmJm+AQdcOVCZNmzRVI4aP0HP86VOnYU46TvXu3VtdjgwQ3JZMwFSwZfMWMMBP6pM9BzTb +EULL6TOAPOSN8Dgawcpk6ZNmqqRI0bqOf6MadMxJx2v+vTpoy5HBghuSyZiKtiiWXMY4Cf1yd6Dmh1A
gYiw/tN9J42P4uEzh48/+zoUG4QddjZa2PS5yTeaYxCfRBkAjWb0yFHWmIZl7pw5qTdA82bNVU+M+keN RNjw6f5Txkfx8JnDx599HYqNwk47myxs/tzkG81xiE+iDIBGM2bUaGtMwzJv7tzUG6BZdjPVC6P+0SNH
GKnFpdOu7Nq1cAN8HzEAkRb3/ravThr/Uxjbhb0+PgjBhzY+ic16AWYzofjHT0QMsDuVBpidAgNw2mfC aXHptCu7dSvYAN9HDECkxb2//atTxv8WxA5hn48PQvChjU9is0GA2Uwo/omTEQPsSaUB5qTAAJz2mXAQ
QWCXLl208EOHDFH9+/XXg0J2BcFtCRcnWsA0QQNIerUKkwo8cQW/yGGFFuIVnMQSnUjmofgnAIV3OIhu 2LVrVy38sKFD1YD+A/SgkF1BcFvCxYnmME3QAJJercKkAk9cwS9yWKGFeAUnsUQnknko/klA4R0Oods6
6zC6zRa6kdliGpY5N81OvQEyatZSl7Vrp3pc00P17tlLdcdYIKtBlp4FBLclYoBvYIBPIbwg/alNmGSx gm6zuW5ktpiGZe5Nc1JvgIwaNVX7du1Uz2t6qj69eqseGAtk1c/Ss4DgtkQM8A0M8CmEF6Q/tQmTLDYB
CRgPiYhNPMGJIXZQdJMTv8AAgMIL3x9KjQFmp8IA1/YfoEyyG2freX/tjNrIBrVVRq0MVa1qVXXN1d19 4yERsYknODHEDopucvIXGABQeOH7w6kxwJxUGODaAQOVSeNGjfW8v1ZGLWSDWiqjZoaqUrmyuubqHr7t
2wlckWK3oQ3wJcR3kUHTwZ+OppQfCuLnCD9GERnsHbJx+Bj218KRYxjsEXPwdxwDPj9HhGMORzUnFLTX BK5IsdvQBvgS4rvIoOnQT8dSyg/58XOEH6OIDPYO2zhyHPtr4ehxDPaIOfg7gQGfn6PCcYdjmpMK2mv2
7P7moPoCOBngZ9UC3SYNYItpWGbfeFPqDUD69+3nYwC6Adt2xDFAM22AzyC8IIHiqDmVmCL4cRZehODo fHNIfQGcDPCzao5ukwawxTQsc268KfUGIAP69fcxEN2AbTviGCBbG+AzCC9IoDhqTiWmCH6chRchODo3
3MScopl4o3biDt6CMKWbML1r3JYugmuUU3g/0gU4YwAagMdgbDENy0033nhyDBAPYoBvD8IAX33n4Qt6 MadoJt6onbiDtyBM6SZM7xq3pYvgGuUU3o90Ac4YgAbgMRhbTMNy0403nhoDxIMY4NtDMMBX33n4gh4Q
QJxEKEhQG57IxBXYKjSBsIkKjrs+0bXgrui/6Ned7YOzgJQYYFYKDMDWnQzjxozFIDHaAD4BXGxChcFW JxHyE9SGJzJxBbYKTSBsooLjrk90Lbgr+i/6dWf74CwgJQaYnQIDsHUnw/ix4zBIjDaATwAXm1BhsNWl
lwbi2YgSWICgsYQmQbHDCI5/uvCWgpuiR+o5EW0AdJucbttiGhYexHNlTLzYKo4H0wA7ILxgFcDAJpyJ gXg2ogQWIGgsoUlQ7DCC458uvKXgpuiRek5GGwDdJqfbtpiGhQfxXBkTL7aK48E0wE4IL1gFMLAJZ2J7
7T0FAgELE1gwBTbxxCaukPjnx9Hb2sojop/A50Q4CmQlkMvBPBiUCgPMSoUBgv19vPCARrMmTaMMYAv8 T75AwIIEFkyBTTyxiSsk/vlx9La28ojoJ/E5EY4BWQnkcjAPBqXCALNTYYBgfx8vPKCR3aRplAFsgf+1
r0VQWBOfyEQEBPgXhRTnsb+FE6feE+q4IbgWXRszMiiUYwFigOZoNCOGDbfGNCw3zJx5ihlgL8R3CQb+ CApr4hOZiIAA/6KQ4jz2t3Di1HtSnTAE16JrY0YGhXIsQAzQDI1m5PAR1piG5YZZs04zA+yD+C7BwP9a
18InriCiafwCe4jQRD9niE3wxsjnWAQPim7MEA4fPaY+R0yE/aeSAfr16auSYYxrgP0//OT7khK0k4Ip +MQVRDSNX2APEZro5wyxCd4Y+RyL4EHRjRnCkWPH1eeIiXDgdDJA/779VDKMdQ1w4IeffF9SgnZKMIXx
jA8RLwaOxrrwvvN8QGiCinxiW1J6sIUTU3Bn6ujAqaTEhY2DsaIBhg8dZo1pWGbOOBUMMGq0atqkiXa1 IeLFwNFYF953ng8ITVCRT2xLSg+2cGIK7kwdHTiVlLiwcTBWNMCIYcOtMQ3LrJmngwFGj1FNmzTRrjYN
aQDE8dfDFVSKPI5sYxfZL7Qjtim0X+yA4IEWHhTcWUc4qg65mN3jfmRLrq4mbYDpM5I3QN/efVQyaANk gDj+eriCSpHHkW3sIvuFdsQ2hfaLHRA80MKDgjvrCMfUYRezezyAbMnV1aQNMGNm8gbo16evSgZtgMY0
0wD+DCBBx79oTJFigf/sSL0RfMISV1ybwLb07QlNLC3bL3Y4wQ/5FqGOYGZ0wIPdJQ0wbOhQa0zDMmPa gD8DSNDxLxpTpFjgPztSbwSfsMQV1yawLX17QhNLy/aLHU7ww75FqKOYGR30YHdJAwwfNswa07DMnD7j
9H+/AXhAowkMUNgYwBQlEYL1+YktrElQ5HiF9otdsOA//BThIJAFMq6SMlY86jpsSHIGmH7KGcBIczYB 328AHtBoAgMUNAYwRUmEYH1+YgtrEhQ5XqH9Yucv+A8/RTgEZIGMq6SMFY+6Dh+anAFmnHYGMNKcTYBU
Uo0nKPHSNLGISyBqtMh2of1iG0JbxLYJfvAQOazX/Ym5TP5NqgwwdVryBujTq7dKBq5n84QRfikzzUnQ 4wlKvDRNLOISiBotsl1ov9iG0BaxbYIfOkyO6HV/Yi6Tf5MqA0ybnrwB+vbuo5KB69k8YYRfykxzEvTt
t+3+9qSztUC+cdjlZ0tB7Iyw2WDTzq8dfMf9HTb62Kc27tinNgBO+bjw8+me/R5cNue4aejgIdaYhmXa e7495WzLl28cdvvZmh+7Imwx2LzrawffcX+HTT72q00796uNgFM+Lvx8uveAB5fNOW4aNmSoNaZhmX79
9VNPIQNEHQs4plvW+k++Uh9GYT/aFo3tvWB74XwQJ/5Dy186bPPzfiy2fqn+FQNmRg6QP4HwwtffHzp1 tNPIAFHHAo7rlrXhk6/Uh1HYj7ZFY3sv2FEwH8SJ/9Dylw7b/bwfi21fqn/FgJmRA+RPILzw9feHTx8D
DMBDvsnA9WweQfwGX+rTL+FwF+knExEj1fjFNQSOR2TBInIUW8ge9U/AhkETbIfwAg3AbpPn+NtiGpbr 8JBvMnA9m0cQv8GX+vRLONxF+slExEg1fnENgeMRWbCIHMVWslf9E7Bh0AQ7ILxAA7Db5Dn+tpiG5fqp
p1x/ChhgeMQApsuljxQBgqLEQ7SANlxBYwgrWEUNYhM1FlrsL7XYNniuJAXf/sW3mm2Az6XGAFOSNwAv 158GBhgRMYDpcukjRYCgKPEQLaANV9AYwgpWUYPYRI2FFvtLLbYNnitJwXd88a1mO+BzqTHA1OQNwIs+
+kgGrmZlN2qsv5RpABkQsQ9MNUyp+w8WDlueB1uiC1ulDQqlBXPhqe4eBxz2HvjRz/4f1VcGX+7/QX35 koGrWY0bNtJfyjSADIjYB6YaptQDhwqGLc+DLdGFrdIGhdKCufBUd4+DDvsO/ujnwI/qK4MvD/ygvvw2
bQR5P4UXtAHQaHhuvy2mYbl+8ilgAC5miAHMNCej31+FHyN8FxOYhwTM5BmKeOYxjGMYyG8Yp2VbDRM0 gryfwgvaAGg0PLffFtOwXD/lNDAAFzPEAGaak9Hvr8KPEb6LCcxDAmbyDEU88xjGMQzkN4zTsq2GCRoF
CoxhDkr34TkaYNDAQdaYhoWXiLkyJl5sFccDpzI0QNDlDDaD7scmTGFE1xNLyCCesMTIDLEEtmWHoMhB xjAHpfvxHA0weNBga0zDwkvEXBkTL7aK44FTGRog6HIGm0H3YxOmIKLriSVkEE9YYmSGWALbskNQ5KDQ
oSlmUGxbRqDwW1y4nTbAtQOtMQ1LSgzQ85oeKhk4km3cqBEC8qPPAP6Ag6Ag8RKsT4MRtkuUoCYWYSNA FDMoti0jUPitLtxOG+DaQdaYhiUlBuh1TU+VDBzJNmrYEAH50WcAf8BBUJB4CdanwQjbJUpQE4uwESBq
1IJEJiGE/opCB9L/HvKNgznN5HuzGzdW1w4YYI1pWCblT/r3G4ADGW0ABMWcf9uCLa0sXmx1FYwrqkXY fiKTEEJ/RaED6X8v+cbBnGbyvY0bNVLXDhxojWlYJudN/vcbgAMZbQAExZx/24ItrSxebHXljyuqRdgo
KHFJrP4d+EUuQGhPbOfcP0FOBBXxNwPWow3QP1kD5CdvgB7dr1HJwIFMo4aNdLCY3mThxRb4VBMlpOAK cUms/h34Rc5HaE9s59w/QU4EFfG3ANajDTAgWQPkJW+Anj2uUcnAgUzDBg11sJjeZOHFFvhUEyWk4Apq
am25JlHiCgWITCxCm2IL+gygfQ7mghI/ozG6zf79+lljGhZel+nKmHixVRwPvH5AGwBfypfmbAE/2fhE bbkmUeIK+YhMLEKbYgv6DKD9DuaCEj+jEbrNAf37W2MaFl6X6cqYeLFVHA+8fkAbAF/Kl+ZsAT/V+ES0
tOEKGxA3HpG/CIgcFFrO+vHY+70+OGauIvLzaYB+fftaYxqWlBiAp3snAwcyjRo21AFmehP4JRnwCDZB 4QobEDcekb8IiBwUWs768dj3vT44Zq4i8vNpgP79+lljGpaUGICneycDBzINGzTQAWZ6E/glGfAINkHi
4sGpxxNQcMWLhU9U4vbJVnGJRWBP5BBCm5jHRszlYu4Xu82+ffpaYxoW/kKLK2PixVZxPPAChUZZNMAP wanHE1BwxYuFT1Ti9slWcYlFYE/kEEKbmMdGzOVi7he7zX59+1ljGhb+QosrY+LFVnE88AKFhlk0wA++
vjTnBTooQDJ44gWxCBnEIqqJTeAwIgeFJvp4iLEszgNA5rECbQBkzT69+1hjGhZelOPKmHjhlT/JwIEM NOcFOihAMnjiBbEIGcQiqolN4DAiB4Um+niIsSzOA0DmsQJtAGTNvn36WmMaFl6U48qYeOGVP8nAgQwv
Lx+nAbw0B2xBJhQiLLb3h8UT1CJqlLCC+zMuYUSOJbSHvkQusjC24XPn4BChAdht9u7V2xrTsJwSBuC1 H6cBvDQHbEEmFCIstveHxRPUImqUsIL7My5hRI4ltIe+RC6yMLbxc+fgEKEB2G326d3HGtOwnBYG4LWD
gw2zsnQ6prvl6Jgt6KnGKqKJK2gsUQWbuMQ7uukKbBM5KDTRi2HGpfL8vYSPIbyw59uDutvs1bOnNaZh DbKydDqmu+XomC3oqcYqookraCxRBZu4xDu66QpsEzkoNNGLYcal8vy9hI8hvLD320O62+zdq5c1pmHh
4TUZroyJF1vF8cCTEyMG2OdhC/SvgU3IIJ6wAXGjBCYxRNZCGyKL0HodBNPg4GHqj/Wl6WSv7rK0AXqc NRmujIkXW8XxwJMTIwbY72EL9K+BTcggnrABcaMEJjFE1kIbIovQeh0E0+DgYeqP9aXpZJ/usrQBep4G
Agbgb/8kA09M4MWjdLVOcy4S4HVbvojinyGwvY+8lwibY/OuyabCeWfTbjsbHd4OIHP/jyC8wDEJu02O BuBv/yQDT0zgxaN0tU5zLhLg9Vu/iOKfIbC9j7yXCFti867J5oJ5Z/MeO5sc3g4gc/+PILzAMQm7TY7k
5G0xDcvYMWNOMQO4fRzRLQct6M0Nu1LPx9GsTQFvaHY6fFQwa2ysj0amfh99yiuKHThGoQGu6d7dGtOw bTENy7ixY08zA7h9HNEtBy3ozY27U8/H0axLAW9odjl8lD9rbWyIRqZ+H33KK4odOEahAa7p0cMa07Dw
8JR8V8bES/An4eKlT89e+mdl6OpImtvnpUVboH8tfIKGENXEKjCxiLxm/ec+XjfgL4fwF0XWf/qVBy8Q lHxXxsRL8Cfh4qVvr976Z2Xo6kia2++lRVugfy18goYQ1cQqMLGIvHbD5z5eN+Avh/AXRTZ8+pUHLxBl
ZbfJNG6LaVh4Qq4rY+LFVnE8cCAjBpAUx35O+kFbcP9dWAU1sYpLYgtcEKuBNAjzjCYxAFuxLaZhSY0B t8k0botpWHhCritj4sVWcTxwICMGkBTHfk76QVtw/11YBTWxiktiC5wfa4A0CPOMJjEAW7EtpmFJjQG6
ul6pkqHXNT1UVn2/AYisCJrdQspBYAUn0I75YmHunw+kZTNFB/mQxDhN7QOy3XbyinMCitSrt3PhDKYh XamSofc1PVVWPb8BiKwImt1CykFgBSfQjvliYe6fD6RlM0UH+ZDEOE3tA7LDdvKKcwKK1Ku3c+EMpgG6
uk0tpCWmYeEJua6MiZerUFEycCDTAAZgv2YGbdNOnkQZjblYFAZbHeZ6gw9jGiqYCzA2Ij/8ZBjLxZu6 TS2kJaZh4Qm5royJl6tQUTJwIFMfBmC/ZgZt8y6eRBmNuVgUBlsd5nqDD2MaKpgLMDYiP/xkGMvFm7p5
eQZzkB+cKsw8pmE+MM5WogE4brLFMx54PqYrY+LFVnE8xDKALdgpxxMvtohBYonqF9YVN5TA/qzgtfSo BnOQH5wqyDymYT4wzlaiAThussUzHng+pitj4sVWcTzEMoAt2CnHEy+2iEFiieoX1hU3lMD+rOC19Kis
rBAxANcoaIArr+hqjWlYUmIA7kQycCDToF593a+ZgfACawY9WaTOEFjFNASNJapQYMonhsBRIiP1B88/ EDEA1yhogCuv6GaNaVhSYgDuRDJwIFO/bj3dr5mB8AJrBj1ZpM4QWMU0BI0lqpBvyieGwFEiI/UHzz/k
5PNyf+e+73S32bVLF2tMw8LzMV0ZEy+2iuOBAxkagEuuXnAAg2gGO5UExQpDRNBoUX3CEqu4BQss/Ivo 83J/1/7vdLfZrWtXa0zDwvMxXRkTL7aK44EDGRqAS65ecACDaAY7lQTFCkNE0GhRfcISq7j5Cyz8i+gT
E0b3ePwTmNvs3OsY4IrLkzPAiOHDU2CALleoZLgaA5kGdeuhX/sOwfrSwxbkk41PRGKIGCQiajhhhcgZ Rvd6/BOY2+za5xjgisuTM8DIESNSYICuV6hkuBoDmfp16qJf+w7B+tLDFuRTjU9EYogYJCJqOGGFyBnB
wX6BPdyzgdd5OAtY5vZcscxCo+nSubM1pmEZMXRY8gboioqS4Sr0RfVhAKY1L5CaYJD92EQxsb0nGvPz foE93LOB13s4C1jm9lyxzEKj6dqlizWmYRk5bHjyBuiGipLhKvRF9WAApjUvkJpgkP3YRDGxvSca8/Nc
XCCSiU3EIJFWG05cv8ARkde5q4tRq42bvvDVw2snmTX545vBeMYDT8h1ZUy8dEUaSgamovp162oDvG8I IJKJTcQgkVYbTly/wBGR17uri1GrjZu/8NXDayeZNfnjm8F4xgNPyHVlTLx0QxpKBqaienXqaAO8bwhh
YQv0yUCLR3wCkoiIJqYQGlfQAoUtQFwSWSre7RFcIjbr3vHVARignurcsaM1pmEZPmRo8gZgP5QMdCJ/ C/SpQItHfAKSiIgmphAaV9B8hc1HXBJZKt7jEVwiNuve+dVBGKCu6tKpkzWmYRkxdFjyBmA/lAx0In9h
YZxpzRRGB9QW8FTAugvBL6TgF7QgUYn/+EBEXJvA0ccBdqm3N+xSb7mYn82DTvVhAP6pHVtMwzJsyJAU nGnNFEYH1BbwVMC6C8AvpOAXND9Rif/4QERcm8DRxwF2q7c37lZvuZifzYNO9WAA/qkdW0zDMnzo0BQY
GKDz5SoZuiCN1cusq5asWI3AO30dRZIgSqBThSlQPNgP+MQQVXCFtYobEFiwHrsArJ/iv7d5t1q6crXu oMvlKhm6Io3Vzayjlq5cg8A7fR1FkiBKoFOFKVA82A/4xBBVcIW1ihsQWLAeuwCsn+K/t2WPWrZqje42
Ntu3u8wa07DwjGxXxsSLreJ4oAFq16qlf/y4bZucIkLQGrHiT/J2at/BGtOwDL1ucPIG6IKKkoW/Fs6U O7Rrb41pWHhGtitj4sVWcTzQALVq1tQ/ftymVetCQtASseJP8nbu0NEa07AMu25I8gboioqShb8WzpTG
xmPcvOq1RfPmqk2r1io3p63+3WGmOm7HXx2/uls353eIe/XSZ8UOvHagGowvMgwDmlEjR+k/meb8ebp8 Y9y86rV5s2aqVU5Lldu6jf7dYaY6bsdfHb+6e3fnd4h799ZnxQ66dpAagi8yHAOa0aNG6z+Z5vx5ujz9
/ZP1vP5t2tSpavq0afovZs2cOVPNuuEGdeONN6qbbrpJzZk9W82dO1f/9Yxbb7lF3Xbrrer2225Td9x+ k/W8/m36tGlqxvTp+i9mzZo1S82+4QZ14403qptuuknNnTNHzZs3T//1jFtvuUXdduut6vbbblN33H67
u7rzjjvUnXfe6dwCPsfXuA23vRnv4U+uz0Y9/NXNG2fNUjeg7pkzZuCzpqtp+Myp11+vJk+erM/B55/M uvOOO9Sdd97p3AI+x9e4Dbe9Ge/hT67PQT381c0bZ89WN6DuWTNn4rNmqOn4zGnXX6+mTJmiz8Hnn8yb
Gz9+vP5zbrwodij64OsGXafP7+/bp48+LsIjfN2uukp3jRzkdWjfXrXLy1M5EJ5/I4A/qslY8XeVgnGM MGGC/nNuvCh2GPrg6wZfp8/v79e3rz4uwiN83a+6SneNHOR17NBBtWvbVrWG8PwbAfxRTcaKv6sUjGO8
F8bNlTHxwhb8a2JzcmHYBkC/JrZ9Kgzbd081PCXflTHxQpcWcXrCU/JdGRMvl3fspIo4PbkO3acrY+KF MG6ujIkXtuBfE5uTC8I2APo1se1TQdi+e6rhKfmujIkXurSQMxOeku/KmHi5vFNnVciZyXXoPl0ZEy/8
fwegiNMTXpPhyph46YwBWhGnJ7wmw5Ux8WKruIjTg4H9ByRvAE7Rijg94UU5royJFy5GFHF6MqBfv+QN OwCFnJnwmgxXxsRLFwzQCjkz4TUZroyJF1vFhZwZDBowMHkDcIpWyJkJL8pxZUy8cDGikDOTgf37J2+A
0BEVFXF6MqBvKgxwWXtVxOlJ/z59iwzw/zP8xXBXxsRLh3aXqSJOT3hVlitj4sVWcRGnB3179U7eAO3z TqiokDOTgf1SYYD2HVQhZyYD+vYrNMD/z/AXw10ZEy8d27VXhZyZ8KosV8bEi63iQs4M+vXuk7wBOrRt
2qlTGfmyTHky+vXmwh07OsuinSIHSIIHZWwHd2wE3yf16XV3vfLmfKbsg6Rh2T/bvp9s+vTqdfoYQERk p05n5Msy5cno15sLd+rkLIt2jhwgCR6UsR3csRF8n9Sn1931ypvzmbIPkoZl/2z7fqrp27v3mWMAEZFB
EBlQBpknNvIKl+7duqme3a9RvXv01GmNo1sucnCtm79CxlOfRg4brkaPHKkvhxo3Zoy+NJo/kJA/foKa ZEAZZJ7YyCtcenTvrnr1uEb16dlLpzWObrnIwbVu/goZT30aNXyEGjNqlL4cavzYsfrSaP5AQt6EiWry
NGGimpyfr383j7+eOXXK9fqHlKdPnapmTJ2m/7DCzOlkRoDp+jX+7Dq35Xv4XtbBulgn6+Zn8LP4meNG xElqSl6e/t08/nrmtKnX6x9SnjFtmpo5bbr+wwqzZpCZAWbo1/iz69yW7+F7WQfrYp2sm5/Bz+Jnjh8z
j9H7MHrESP0rqfydxCHXXaf3lfvcv29f3TL5XXp07666X9VNnzdJk2lD4bt36tAhJabp3bPnf34GKCI2 Vu/DmJGj9K+k8ncSh153nd5X7vOAfv10y+R36dmjh+pxVXd93iRNpg2F7965Y8eUmKZPr17/+RmgkNjQ
NJkrY+Llstw8dTJp27qNblXr1q1T27dv97Ntm9pmsnWrZqvJli1qS5DNm9Vmk02bNJuEjRs1GwNs2LBB ZK6MiZf2uW3VqaRNy1a6Va1fv17t2LHDz/btarvJtm2abSZbt6qtQbZsUVtMNm/WbBY2bdJsCrBx40a1
bXThfZOPP/7Yx0cffRTF+vXrNR9++KF6/PHHVetWrVSN6uma9OrVI1SLwL/DXL1qNf33l6tVqaqqVK6s yYX3TT7++GMfH330URQbNmzQfPjhh+rxxx9XLXNyVPWq1TTVqlaNUCUC/w5z1cpV9N9frlKpsqpUsaKq
qqRVVrVq1NSxscUsLLwu05Ux8dKuba46mTBF7t+/X+3atUvt2LHjP4Y9e/ao1atXQ/zqELOGPi0uM6O2 lF5R1axeQ8fGFrOw8LpMV8bES7s2uepUwhR54MABtXv3brVz587/GPbu3avWrFkD8atCzOr6tLjMjFoe
R52MDIdaDvwj3DwNrGZ6ujZE5Upp2gS2mIWF3aYrY+LFVnGqyMtpq//E+ZtvvvkfCTNBzfQaELq2vtCD tTMyHGo68I9w8zSwGtWqaUNUrJCuTWCLWVjYbboyJl5sFaeKtq3b6D9x/uabb/5HwkxQo1p1CF1LX+jB
v5amaZDlwauAG9ZvoK8E4qngPIG2NszA7FA5LU3HyBa7MHCM4cqYeOEOnCxy2+To8/dswftPgAag+LzI X0vT1M/y4FXADerV11cC8VRwnkBbC2ZgdqiYnq5jZItdGDjGcGVMvHAHThW5rVrr8/dswftPgAag+LzI
gz+YzfP8IjTRf01N4I9Dc5tGWVn6OgpmDHYJjJEtdmG4ptvVyRuAO5Bq2D/JtG3unLnqnXfeUW+//bZ6 gz+YzfP8IjTRf01N4I9Dc5uGWVn6OgpmDHYJjJEtdmG4pvvVyRuAO5Bq2D/JtG3e3HnqnXfeUW+//bZ6
6623fEgg33jjDY81a9bE5PXXX9e33G7t2rU+pC7zueDnmcg+2eBr7777rt7OrE8+Q/jggw9U3cxM3cop 6623fEgg33jjDY+1a9fG5PXXX9e33G7dunU+pC7zueDnmcg+2eBr7777rt7OrE8+Q/jggw9UncxM3cop
eKvmLVTL5s0dmkVo0ayZag5TkCaNG+uMkFm7jh4vcBxgi2EYOMNwZUy8cAdSCVOTzKM5d+ZZuyIYg8ag eE6z5qpFs2YO2RGaZ2erZjAFadKokc4ImbVq6/ECxwG2GIaBMwxXxsQLdyCVMDXJPJpzZ561K4IxaAyq
msF+7733PDhQlPsUIYj5PhHSFJr3xURiFrkV4wgioogr+yfvN7cl8roJDcDW3Bhpv0XTZvp0b4GnydMQ Gez33nvPgwNFuU8RgpjvEyFNoXlfTCRmkVsxjiAiiriyf/J+c1sir5vQAGzNjZD2mzfN1qd7CzxNnoYQ
gjYCtmmana23rwfj1MB4wBbDsPC6TFfGxEtOq9YqlXB6Yi6i3Dz3Zi9gFIm3plCmALHgtsH3mfB58zPk tBGwTdPGjfX2dWGc6hgP2GIYFl6X6cqYeGmd01KlEk5PzEWUm+fd7AWMIvHWFMoUIBbcNvg+Ez5vfoZ8
c8z7QeQ1m6mCj7m9fIbsA3n//fdjG8AQ3zQAMwV/JZRjAQ4ebTEMC9dQXBkTLzktW6lUwgxAE7AbaJ+X jnk/iLxmM1XwMbeXz5B9IO+//35sAxjimwZgpuCvhHIswMGjLYZh4RqKK2PipXWLHJVKmAFoAnYDHdq2
p8/dl4AJIhzvm+IFW7sIYMLng9mASB2CfI75GWb9BcH0b8L6+dmsg3Uyq3AGwIxVH0JGGQCCEy0+hCfa 1efuS8AEEY73TfGCrV0EMOHzwWxApA5BPsf8DLP+/GD6N2H9/GzWwTqZVTgDYMaqByGjDADBiRYfwhNt
ABwbYDyQDQPQODRAG0sMw3LVFV2TNwB3IJVwcCILFTQDL7KgAIIpEuHFGlxRK5hhavjQoWrI4MHuRRh9 AI4NMB5oDAPQODRAK0sMw3LVFd2SNwB3IJVwcCILFTQDL7KgAIIpEuHFGlxRy5/hasSwYWrokCHuRRj9
VZ/evdG9zIkySFBE6VJ4n89TTN5yWxHWdivbyX7SSCL8a6+9platWqXrtGUAM/3zohlvLKC7ACcD8H0Z VN8+fdC9zI0ySFBE6VJ4n89TTN5yWxHWdivbyX7SSCL8a6+9plavXq3rtGUAM/3zohlvLKC7ACcD8H0Z
NWvq7W1xDANXUl0ZEy+ea1OMBIBX9UhLJKb4pAlGxgxgQejpFAZO9epkqrqAc+n0atX0AozUS8RgFNEG NWro7W1xDANXUl0ZEy+ea1OMBIBX9UhLJKb4pAlGxgxgfujpFAZOdWtnqjqAc+lqVaroBRipl4jBKKIN
XzO3tWHWJ1B4Ef/VV1/VvPLKK9okzAAc2XOAZ35vLb4rvIjfvGlTxwD4TnwfDcDtgrELCy8QdWVMvJg7 vmZua8OsT6DwIv6rr76qeeWVV7RJmAE4sucAz/zeWnxXeBG/WdOmjgHwnfg+GoDbBWMXFl4g6sqYeDF3
nAqY+nnKshy0kVYqrcsUnzB4hdGwgTOHrlunjsoEFJ8ra1xVo0A2IYPws2z7wOd4y21Yl5ni2dIp9ssv OBUw9fOUZTloI61UWpcpPmHwCqJBfWcOXad2bZUJKD5X1riqRoFsQgbhZ9n2gc/xltuwLjPFs6VT7Jdf
v6xWrFihVq5cqe/zlvB9vDKa+0hxW7VADEBL4s4GeJkcZwGE08OmmA7SAPXq1tMGoDlscQwDx1mujIkX flmtXLlSrVq1St/nLeH7eGU095Hi5jRHDEAL4s4GeJkcZwGE08OmmA7SAHXr1NUGoDlscQwDx1mujIkX
06WpgIMTWahgN8Br7hjkWAbQCyWFwUUUBKwOpk5cRKlVo6ZeVauFAIq5gp8hz0tXIJhdAl/ntqb4YoDg 06WpgIMTWahgN8Br7hjkWAbQCyUFwUUUBKw2pk5cRKlZvYZeVauJAIq5gp8hz0tXIJhdAl/ntqb4YoDg
Y8K0TyO89NJLavny5fo1pnIu/jADMPXrlO/SAvHQ6NYvBmisM5pkgJZ43hbHMPDAkitj4oU7l0qYmmSU Y8K0TyO89NJLasWKFfo1pnIu/jADMPXrlO/SHPHQ6NYvBmikM5pkgBZ43hbHMPDAkitj4oU7l0qYmmSU
2hr9FP/CNcUQQUzxCVfIwsDLqTl35q9rZbIbwACKCylm6zaRzxSCLdzE7NclxUual9YvopMXX3xRLVu2 2hL9FP/CNcUQQUzxCVfIwsDLqTl35q9rZbIbwACKCylm6zaRzxSCLdzE7NclxUual9YvopMXX3xRLV++
TL+Po3kagH8O3hNet3oHCi/icwDIBSExABeDbDEMCzOsK2PihSPTVEJnUvzLmAUwILxh5kxPhKD4hEuo XL+Po3kagH8O3hNet3oHCi/icwDIBSExABeDbDEMCzOsK2PihSPTVEJnUvz2zAIYEN4wa5YnQlB8wiXU
hcGVNr2EilbPfp+pv9KlFVVFQNEoHqEghKJSaAouSGsWA8h7BFNwEd0Ue8mSJZqlS5dqeJ/v4X7xVz8p guBKm15CRatnv8/UX6F8mkoDFI3iEQpCKCqFpuCCtGYxgLxHMAUX0U2xly5dqlm2bJmG9/ke7hd/9ZMC
sDaA2zpFJG0AvOYYIFuPeTwD4PvwNVscw8Bu1pUx8dIcrkwlWnwerXK7ARrAJryQhZZdGEz/HABmIPVX awO4rVNE0gbAa44BGusxj2cAfB++ZotjGNjNujImXprBlalEi8+jVW43QAPYhBey0LILgumfA8AMpP4q
q1JFi39p+fKqQrnyntBSn2QEafGm+DQLRSbsw6Vlm63bfMxbGsA0weLFi9WiRYs0NAoXdCgoW7ee7kFw lSpp8cuXLavKlSnrCS31SUaQFm+KT7NQZMI+XFq22brNx7ylAUwTLFmyRC1evFhDo3BBh4KydevpHgQn
og0AkSiwxIb9P5eDZUDLbozvM+MXD1xtdWVMvHAHUgmnJxQ+N8dZruQ1/aYoIpRAcQuDraUu0j/nzen6 2gAQiQJLbNj/czlYBrTsxvg+M37xwNVWV8bEC3cglXB6QuFzWzvLlbym3xRFhBIobkGwtdRB+ue8uZo+
SFolbQIeTDHrYv0ivLR0ZgQztZutXExgM4OITsQEbPkLFy5UCxYsUPPnz9fbclbCcQrF9bV8V3xJ/UTP klZBm4AHU8y6WL8ILy2dGcFM7WYrFxPYzCCiEzEBW/6iRYvUwoUL1YIFC/S2nJVwnEJxfS3fFV9SP9Ez
eDAF5G8riwH4PjN+8cCTSlwZEy/cgVTCHdMObeLcTp402WuBZksVKG6hIFg8xForvYZz7L1adVW1chU9 HkwB+dvKYgC+z4xfPPCkElfGxAt3IJVwx7RDmzi3UyZP8Vqg2VIFilsgCBYPsdasVt059l6lqqpcsZKe
GzDFltQvfbpAA4gJzH7dTPOS2iW9Syun4KboZN68eeqFF17Q5qAxOUbh4M4nvCtSMyM2XADiDIDb0zja DZhiS+qXPl2gAcQEZr9upnlJ7ZLepZVTcFN0Mn/+fPXCCy9oc9CYHKNwcOcT3hUp24gNF4A4A+D2NI42
ADCFGb944CDblTHxQleeTCZNzPcE4m3QAGwJhYIg85g6DcBj7DyIUhXjgLSKlXxjABFYRJaWbbZoM41T AExhxi8eOMh2ZUy80JWnksmT8jyBeBs0AFtCgSDIPKZOA/AYOw+iVMY4ID2tgm8MIAKLyNKyzRZtpnEK
WN7ysZnaTWQbGoCiP//885rnnntO10VjMkvxu3qiAxHJiwXEz4b4jTFe4JiGxqEBvNct5LZuYxz9y9Hr y1s+NlO7iWxDA1D0559/XvPcc8/pumhMZil+V090ICJ5sYD4jSF+I4wXOKahcWgA73ULuS1bGUf/Wuv1
/+br7GZdGRMv3LFUwvmpecSKK4GccskKXZQBEIjCYLDqIFhcAGJGYOAkE4joZoo3DSBIeqcJpJWbopv3 f/N1drOujIkX7lgq4fzUPGLFlUBOuWSFLsoACERBMFi1ESwuADEjMHCSCUR0M8WbBhAkvdME0spN0c37
KTZbOVu7tHw+pvDPPvuseuaZZzTclsakAZjavdYOcYgWyo2LI76zqMXtnS6tpi92QTiW0gd+3FkVBTdf FJutnK1dWj4fU/hnn31WPfPMMxpuS2PSAEztXmuHOEQL5cbFEd9Z1OL2TpdWwxe7IBxL6QM/7qyKgpuv
Z1fryph44Y6lEgbAHKhMzp+k07T0z0ED1K1du1DYympjzsyzbzIwdXJaf0VVCZjpXVK72ZfLrWQAM80H s6t1ZUy8cMdSCQNgDlSm5E3WaVr656AB6tSqVSBsZbUwZ+bZNxmYOjmtP01VAGZ6l9Ru9uVyKxnATPNB
TSDp3kz5QQM8/fTT6qmnnlJPPvmkfp5TOQ4E2bJ5qLdJI4gDsklDxARQeL5O8bPq13entE6XZouhwJav E0i6N1N+0ABPP/20euqpp9STTz6pn+dUjgNBtmwe6m3SEOKAxqQBYgIoPF+n+Fn16rlTWqdLs8VQYMvX
l33dlT8+Nl9nA3NlTLw0xk6lEvaDeh0AO86+kH/flqlfTBA0gJxCVRBM+5wBsMXXQeDYBXANIA2DQWn1 y77uyh8fm6+zgbkyJl4aYadSCftBvQ6AHWdfyL9vy9QvJggaQE6hyg+mfc4A2OJrI3DsArgGkI7BoLR6
FN9M+6bwpvgivGkEMYEpNtM9YaqXVk/xKfwTTzyhzwmkIbiY4wwEG+g+Xvfznug8Q8gR3hGfK5owAAwj im+mfVN4U3wR3jSCmMAUm+meMNVLq6f4FP6JJ57Q5wTSEFzMcQaC9XUfr/t5T3SeIeQI74jPFU0YAIaR
XZothgK7ADmQRCi4+Tqzgytj4kV2LlWw//OOfsEMPL3aXIwJGoBn1BSKu/pH0TnwS6uUpipWuFRdWqGC Ls0WQ4FdgBxIIhTcfJ3ZwZUx8SI7lyrY/3lHv2AGnl5tLsYEDcAzagrEXf2j6Bz4pVdIV2nlyqvy5cr5
T3AKbbZ2s8XbUr/Z0kV03kprp/giPFu9CP/YY4+pRx99VBuDIuoFKojrCB7BXM3k63pNA62f3RpXNGui BKfQZms3W7wt9ZstXUTnrbR2ii/Cs9WL8I899ph69NFHtTEool6ggriO4BHM1Uy+rtc00PrZrXFFswa6
G7PFUGDq17MKd2DJx+brbGiujIkXzklTiThfHo8fN843SqfoMlUjDESh6P6/hqqa5pxRWwmDP7Z+Ii1d MVsMBaZ+PatwB5Z8bL7OhubKmHjhnDSViPPl8YTx432jdIouUzXCQBSI7v+rq8rpzhm1FTD4Y+sn0tJF
BBehTfGl1QfTPcW3tXrBbPmS9h955BHNP/7xD/0cT+qgQZnWPcHxvbXgxF3I0lB8ZIu6MDW7Do5jJE42 cBHaFF9afTDdU3xbqxfMli9p/5FHHtH84x//0M/xpA4alGndExzfWwtO3IUsDcVHtqgDU7Pr4DhG4mSD
mP7NmQQfB193ZUy8NMSOpRIOTmQxhEgGkOVZc9rG6RrFLQymf7aWapj60RBcCWTrL1umrE9ss2UHBTZF 6d+cSfBx8HVXxsRLA+xYKuHgRBZDiGQAWZ41p22crlHcgmD6Z2upgqkfDcGVQLb+0qVK+8Q2W3ZQYFNk
ZusW2MoFEZzCmqILbP0PP/yw+vvf/64eeugh/ZjdEveRK4LB1UsKLsiUtl4dDGhhAP2d8F5bDAWeUyAD tm6BrVwQwSmsKbrA1v/www+rv//97+qhhx7Sj9ktcR+5IhhcvaTggkxp69bGgBYG0N8J77XFUOA5BTLg
Pvb5fBx83ZUx8WJbeUsGupUDFj1wwQ7yKhtp7RRelmtlfl4bgSiMDLT+Gpz7o/Xr1cCq6P+RBWgCEd9s Y5/Px8HXXRkTL7aVt2SgWzlg0QMX7CCvspHWTuFluVbm57UQiILIQOuvzrk/Wr9eDayM/h9ZgCYQ8c1W
5aYRKLwYgQawGSHY0kV4Sflm2qfwf/vb39SDDz6oH6djXzJq1NBpnd+/AUQ24RqGQPH1mAatn10aF7WC bhqBwosRaACbEYItXYSXlG+mfQr/t7/9TT344IP6cTXsS0b16jqt8/vXh8gmXMMQKL4e06D1s0vjolYw
8SPS9zP1S3/fCC2eg2o+x/EVt+M2royJl+AOJwt3lumKO8opIX9dU9K/bVWOfagHWnkQtnxSnRdVoO/n fkT6fqZ+6e8bosVzUM3nOL7idtzGlTHxEtzhZOHOMl1xRzkl5K9rSvq3rcqxD/VAKw/Clk+q8qIK9P08
OfWVLr1UVShfXpUvV94T3+zPTZGDrZsiy61AwSm2iCwp3mztFF2E/+tf/6r+8pe/6Ne5X7XQDVBYv9jO p75C+fKqXNmyqmyZsp74Zn9uihxs3RRZbgUKTrFFZEnxZmun6CL8X//6V/WXv/xFv879qolugML6xXbW
+oU5lWXqZ3fBjMHvRAPYYshGxCmkk+rdrALBmUnYvXKKye2YYV0ZEy/mTqcC7iAHLBy8cCDIMYBM1Wxz L8ypLFM/uwtmDH4nGsAWQzYiTiGdVO9mFQjOTMLulVNMbscM68qYeDF3OhVwBzlg4eCFA0GOAWSqZpuj
9BoIQjqCyEA6VHFAuheY+ik+B340gPT/XA5ma6fwsVq0CCwtOtiqY4lNoSkyxTZFf+CBB9T999+v4XZc V0cQqiGIDKRDJQeke4Gpn+Jz4EcDSP/P5WC2dgofq0WLwNKig606ltgUmiJTbFP0Bx54QN1///0abscV
kWR2oqhaZE5dITTxZjIQnTji19RL2tKl2WJI2IB09wGhZTWUMLbmfVfGxItvxS0FsPXrExb0LKCpNoA5 SWYniqpF5tQVQhNvJgPRiSN+Db2kLV2aLYaEDUh3HxBaVkMJY2ved2VMvPhW3FIAW78+YUHPAppqA5hT
VQtO06qmpel0zlZdCQKTiuUreFxK0NLLly2rypYurbflUUA+X75cOV8/TuEFEZ0iB1u2IAM6eT4oPsUm teA0rXJ6uk7nbNUVIDBJK1vOozxBSy9burQqXbKk3pZHAfl82TJlfP04hRdEdIocbNmCDOjk+aD4FJvc
9913n+bee+/1bu+55x69DY3JlsyuKSi2hzuW0eMZGIADWr6HBrDFkDDlc6RvPsdxALOCPOYA0ZUx8eK4 d999mnvvvde7veeee/Q2NCZbMrumoNge7lhGj2dgAA5o+R4awBZDwpTPkb75HMcBzArymANEV8bEi+Pa
NnXQmWba4/l8MkWTaZo5VauIfrxcmTKqzCWXqNIXX6y5pFQpzcWkZElVqkQJVbJ4cVUClIEJLsY2JfBc 1EFnmmmP5/PJFE2maeZULQ39eJlSpVSpyy5TJS+9VHNZiRKaS0nx4qpEsWKqeNGiqhgoBRNcim2K4bki
sYsusrbugkQnbO0CW30wzct93gazAoX/85//rO6++26dBXhgihmL5ydwZO8BoQkF92DL53jGTf8c0wTj l1xibd35iU7Y2gW2+mCal/u8DWYFCv/nP/9Z3X333ToL8MAUMxbPT+DI3gNCEwruwZbP8Yyb/jmmCcbP
Z8JUbz5m12A+ZmNzZUy8SLpKFboLgDMFXkptztOD07NyGMlfXLIUBC6hShQrrooXK6aKQ9hiF16kLrrw hKnefMyuwXzMxubKmHiRdJUqdBcAZwq8lNqcpwenZ2Uwkr+0eAkIXEwVK1JUFS1SRBWFsEUuvkRdcvHF
QnXRBReqCy+4QF1w/gX6tjSMQgOUgjFKwgSS9pkB5FayQHBgJ/08TUFziBlEZIFim+meLV6g8HfddZf6 6pKLLlYXX3SRuujCi/RtSRiFBigBYxSHCSTtMwPIrWSB4MBO+nmaguYQM4jIAsU20z1bvEDh77rrLvWn
05/+pM3AFcmqMABFZRYI4hvjUHx0FxSfXRuzny2GAhsTx1S8z9avG5XxOmcHroyJF7h0paStVMAd1YtA P/1Jm4ErkpVhAIrKLBDEN8ah+OguKD67NmY/WwwFNiaOqXifrV83KuN1zg5cGRMvcOkqSVupgDuqF4HQ
6J/YR40ZNcpL9zRAcD7Ols+WrQUXsV3BLzj/fHXBeeer8887T513rgNbPYXne3hLYc2+XoQ2swHFptAU P7GPGjt6tJfuaYDgfJwtny1bCy5iu4JfdOGF6qILLlQXXnCBuuB/HNjqKTzfw1sKa/b1IrSZDSg2haa4
V9K7wJROkSXd876kecLWLi2ewuufnwd33HGHfsxxCdcmKCwFlkGrCV8TtPgY61TDeyqjO7PF0MQ0QPA1 kt4FpnSKLOme9yXNE7Z2afEUXv/8PLjjjjv0Y45LuDZBYSmwDFpN+JqgxcdYpwreUxHdmS2GJqYBgq/x
PgcJzzCIu5xRs2bNc2qn13yZ/VQqYB8lswAaYTQMYLb84CLM4MGDkT4xJUKgqiNA1fQJn85Jn1URqCpo OUh4lkHc5awaNWqcX6tqjZfZT6UC9lEyC6ARxsAAZssPLsIMGTIE6RNTIgSqKgJURZ/w6Zz0WRmBqoTW
XZz3VyYImn4d8HzAQQMHeq1Z0r2k/GCKNx+bKV1auyBm4K0JTcEWf/vtt6vb+DcH+DcJYAKOUygkRfUJ xXl/RYKg6dcBzwccPGiQ15ol3UvKD6Z487GZ0qW1C2IG3prQFGzxt99+u7qNf3OAf5MAJuA4hUJSVJ/Q
LeC7CBzAmoNavs8WwyAcS9mepzmaNWv2O+h4JrV0CV3kDWdWrFjxv2tVr/6KbQ4eL5yusO/SS5iAGYAG Ar6LwAGsOajl+2wxDMKxlO15miM7O/u30PEcaukSusgbzklLS/vvmlWrvmKbg8cLpyvsu/QSJmAGoAEI
IDRAcJrGAaJ5upgcNDLXDgSZTsqUktnE7ONFZDOVc/Rua93SqqVlC0zt0sIpNjHv33rrreqWW27R0AQc DRCcpnGAaJ4uJgeNzLUDQaaTMqVkNjH7eBHZTOUcvdtat7RqadkCU7u0cIpNzPu33nqruuWWWzQ0AQeo
oKZhUEpROZsJomc2eM2b0dDEwDFARWsMw8KBIvQ7OzMz8/fUEfzW1TRU4YZ8A9989jnnnFMsvWrV12z9 6RiUUlTOZoLomQ1e82Y0NDFwDJBmjWFYOFCEfudlZmb+jjqCs11NQxVuyDfwzeedf/75RapVrvyarR+L
WDywn+K8lQdFmAVGDh/upXwKb07XzPm52V9zUGcuxJiDOjOtU3xJ6xRapmyCPMeWLSYQzNG8mebNPt40 B/ZTnLfyoAizwKgRI7yUT+HN6Zo5Pzf7aw7qzIUYc1BnpnWKL2mdQsuUTZDn2LLFBII5mjfTvNnHm0ag
AsU2xRcDVChbTs9cqnKNQkQuCIivl7TR+jl+sMUwLIwztPtv8H/AH0BcmUC3fsA3ngMuOOussypWrVR5 2Kb4YoBypcvomUtlrlGIyPkB8fWSNlo/xw+2GIaFcYZ2/w3+D/g9iCsT6NYP+MbzwUXnnntuWuW0iuu4
LVfeEoXzVi5i8AwZZgL+dUvp95n6ExHdbOXBx5LWzZQu9wUxgC2tyy2NIOLzVgwRNIJpABqifOky6AbK 8pYonLdyEYNnyDAT8K9bSr/P1J+I6GYrDz6WtG6mdLkviAFsaV1uaQQRn7diiKARTAPQEGVLlkI3UFYL
a0GldRcEjSKtn5nDFsOwcJ0AuhUH/w/8F2BjDp0FuBH7j7MBXcSKLv3d737XEDv2T9uqXBg4OJElTTLo Kq07P2gUaf3MHLYYhoXrBNCtKPgj+C/Axhw6C3Aj9h/nAbqIFZX/7W9/26BC+bR/2lblwsDBiSxpksHX
2mt1upcWn4joIjJv+bo8Z7Z+CiwDN0JRg+nebNm8FURgM9WT4DbENAAph2kpu4HKEJPiFgaNQmgALmTZ XqvTvbT4REQXkXnL1+U5s/VTYBm4EYoaTPdmy+atIAKbqZ4EtyGmAUgZTEvZDVSEmBS3IGgUQgNwIcsW
YhgWrgVAs/KgmKvhWYCaxm2Ac0EpUBU0OvPMM7tWKl9+Aw9WxAsXO3iggv0Tb3ktn216ZhrAZgQxgQjN w7BwLQCalQVFXA3PBdQ0bgP8DygBKoOG55xzTrcKZctu5MGKeOFiBw9UsH/iLa/ls03PTAPYjCAmEKHZ
Vm327dK6zdQvRqDwFJ2tWqABBDGCCCuCm2l+zpw5+o9RmfC5oAHKXlJadwNpnA244hYEhZfWz67DFsMw qs2+XVq3mfrFCBSeorNVCzSAIEYQYUVwM83PnTtX/zEqEz4XNEDpy0rqbiCdswFX3Pyg8NL62XXYYhgG
0ABsbNCrGigNzgfsCiQLFFrEAEwdNMAloDpoCq787W9/m39p2fI7uFQbD5yyyBo2DcA/aiD9fjD9B7OA GoCNDXpVASXBhYBdgWSBAosYgKmDBrgMVAVNwZVnn312XvnLyu7kUm08cMoia9g0AP+ogfT7wfQfzAKC
YBogmAlEfOnbgyN3Sedmny4ii8AiMv9qWBA+z+0Evo+ZQbKEKT4pi2lshbJlISZnA464hUHx09yVT1sM aYBgJhDxpW8PjtwlnZt9uogsAovI/KthQfg8txP4PmYGyRKm+KQ0prHlSpeGmJwNOOIWBMVPd1c+bTEM
w8CxFozwC7TKBBXAReCPgF16qG6AG3AMwAzAPkQyQDboCsafccYZD5UvU2afbQdiwdGprASSnj16aOEI A8daMMIv0CoTlAOXgD8AdumhugFuwDEAMwD7EMkAjUE3MOGss856qFSpUvttOxALjk5lJZD06tlTC0co
RTQFlSkZBTX77qC4wf46KLJt0GaKLK1XBCbB1i2IEeQ+TcB6pe7Zs2f74DoGl6njNYAsfdtiWBgyDcSA oimoTMkoqNl3B8UN9tdBkW2DNlNkab0iMAm2bkGMIPdpAtYrdc+ZM8cH1zG4TB2vAWTp2xbDgpBpID7z
80fo1ACkAXbh/xeYg8ECixiA/QbfyAoqgvqgPRgO7oMJXsJA54BtR2xIehI6duigA0UBzMDxsSDP8W8B R+hUH6QDduH/F5iDwXyLGID9Bt/ICtJAPdABjAD3wQQvlS1a7KBtR2xIehI6deyoA0UBzMDxsSDP8W8B
zprl/O0+/ff7Zs5UM2bMUNPlb/hNnaqud/+On/5bfpMmqfz8fDVx4kQ1btw4/ff8Ro8erZH7ozANJXxM zp7t/O0+/ff7Zs1SM2fOVDPkb/hNm6aud/+On/5bfpMnq7y8PDVp0iQ1fvx4/ff8xowZo5H7ozENJXxM
JkyYUCD8u4CsK4g8P3bsWB8VynEW4IjPwV1YuAZAbDEsCKZ9NjLer1Kp0lZolJQBZBrIvoN9SBlQAzQH Jk6cmC/8u4CsK4g8P27cOB/lynAW4IjPwV1YuAZAbDHMD6Z9NjLer1ChwjZolJQBZBrIvoN9SClQHTQD
PcBM8BhMsByDnb0YxR7GFOYwvsARG3wNXcDh7KyGh5s0bHQYs4DDOa1aHe1y+eXHPDpffvzyzp01nTt1 PcEs8BhMsOKyyy7bh1HsEUxhjqDPO2qDr6ELOFKvXr0j9UEWaJ2Tc6zr5ZcfFzq0a3+ifbt2mnZt23q3
8m47dex4vH379h6XtWunaZeXdzwvN1c4QXLbtvUwH+fl5bmPHXLatDnRpnVrDe8Tbtc2J+c4nvPgY5Ij bXNzT7Ru3dqjVcuWmpY5OSdyWrQQTpIWzZt7mI9zcnLcxw7NsrNPZrvwPuF2zZs1O5HdtKkHH5NmQna2
tGmjkefzcvOOod5juTltj7Vq2Qq01LRs0eJYeuUqR6qnVT6CAd4RiU9hMSoI1mEjvUrVn9OrVvsJn/UD Rp5vm9v2OPbveG7rNsdzWuSAFhrUdbxa2XJHq5Ype7Q8vr/Ep6AY5QfrsFGtUuWfq1Su8hM+6wdstz+t
ttuHAeR6TN3ZSBPuAljMLCAzAVZWG7QBvcBEMAfcCe4B94H7wQMGfMxscW/x4sX/UrNmzb+1bt36oe7d fNoGTN3ZSBPuAljMLCAzAVZWC7QCvcEkMBfcCe4B94H7wQMGfMxscW/RokX/UqNGjb+1bNnyoR49ejw+
uz8+dOjQ59ByFqClLpoyZcoStOKlaNEvokUvx+0KtPJX0OpXofWvBmuQet9E+n4bqfddpNx1SPH/Qqr/ bNiw59ByFqKlLp46depStOJlaNEvokWvACvRwl9Bq1+N1r8GrEVGeBPp+22k3nfBeqT4fyHV/y/4EKl+
H/AhWI/U/xHYADaBzegOtuD5LRjtb8XjbXi8jffx3FZ0DVvQHWxGPZtwuxH1foy0/iH4AN3A+7j9Fz5v A1L/R2Aj2Ay2oDvYiue3YrS/Ddtux+PtvI/tt/F5dAdbkLo3o65NqPdjpPYPkdo/QDfwPu7/C5+3Ho/f
HW7fwe1beP1N3Oc+rEZm4j5x31YiGy0Hy7Dvi5FFnh8+fPizAwcOfKZbt25PNWvW7Im0tLSHzz333Pt/ wf238PqbuF0L1uB57hP3bRWy0QqwHPu+BFnk+REjRjw7aNCgZ7p37/4UzPVEenr6w3/84x/v/93vfsf4
//vfMz5/Bry9lzEpAL7O7YLw/SZ3g7vAbYANkqJ3B3mgIeAgkOO3uAeBLGYWkMFgCUAT1AJNwGXgStAT /Bnw9l7GJB/4OrcLwveb3A3uArcBNkiK3gO0BQ0AB4Ecv8U9CGQxs4AMBosBmqAmaALagytBL9APDAAD
9AX9wQBwrQEf98fAsV+xYsUGZWZmjkArHj9o0KAZSNNzkcZvRcDvQD96N/rqeyDqfRDoAfTx6PIf/Dv6 wbUGfDwAA8f+RYoUGZyZmTmyQ4cOEwYPHjwTaXoeRL4VAb8D/ejd4B4IdR94AH08uvwH/46+/x/gUYwH
/n+ARzEeeBzjgicxPngKPIPB4HMYKM7DtHE+WAQWY/C4FLdkGQaUL+LxcgwuV+D+Cjz3kglfI3htGepZ Hse44EmMD54Cz2Aw+BwGivMxbVwAFoMlGDwuwy1ZjgHli3i8ArcrCZ57yYSvua8vRz1LcX8pnl+CwegS
gvtL8PxibL8Yzy3E7QI8Nx+D0OfBc5iB8DOfxEAUdx/H3ccewWAUw5eHH8J+PYj9vR/f4xaYg99pDow9 PLcItwvx3AIMQp8Hz+Hz+JlPYiCKycjjuPvYIxiMYvjy8EPYrwcx0Lwf3+MWmIPfaS6MPbtnz55TmzRp
q0ePHlOaNGkyukyZMgPPPvvsPogDYZz6MSYFwNfDwvrYGLuBjqAVyALpoBzgNJDpP65poBTJAkwddBBN MgZjpUHnnXdeX8SBME79GZN84OthYX1sjN1BJ5ADskA1UAZwGsj0H9c0UIpkAaYOOogmYCYoDSqCGqAO
wExQFlQGNUFdQLdxgMhZQrMAfI5myU5PT29zxRVXdEIr6YYW3xetcDAGdUMh6DAMAIcj0KMgxmgIMRYC oNs4QOQsITsAn6NZGlerVq3VFVdc0RmtpDtafD+0wiEY1A2DoMMxAByBQI+GGGMgxDgIMB5CTJw/f37e
jIMQE+bNm5e/aNGiyWDK4sWLr8fttKVLl85YsmTJTILHN+D5WQsWLLgBM4rp2J7P3bhw4cJZvM/nXGYI 4sWLp4CpS5YsuR6305ctWzZz6dKlswge34DnZy9cuPAGzChmYHs+d+OiRYtm8z6fc5kpoN5ZmHncgNfJ
qHcmZh434HUyk8yfP38G6uB7Z+K90436p+HxVLw2Bfe5H5Ox7STUM5H7x/3kPsMMQ2Hc3shOveCDHshg LLJgwYKZqIPvnYX3zjDqn47H0/DaVNznfkzBtpNRzyTuH/eT+wwzDENm6YNs0hs+6IlM1mPo0KFd27Vr
3YcMGdKlXbt2uRUrVmz2xz/+sTFiQBgnxoNxSQWsi/VSA2rBxkltqBHFT2ghSAo3Nk3AiugmphRmA6YX l5uWlpb9hz/8oRFiQBgnxoNxSQWsi/VSA2rBxkltqBHFT2ghSAo3Nk3AiugmphRmA6YXuowDxAqAH1wp
uowDxEqAH1wlAJ/jQKRS6dKlqzdq1CijZ8+eDTAIa4zU2QwpuAVafQuk5xZoRa1giNZoVW0IWpkGLS4H AJ/jQKRCyZIlqzZs2DCjV69e9TEIa4TUmY0U3BwtvjnSc3O0+hwYoiVaVSuCVqZBi2sNc7RBoHPRKttB
5miLQOeiVbaDeHkQQQPx9S1EzIUobfka4XYQ6DIB72+H1pvH+zBYewLT5UG4tjBgLj5Hw/vclmAbbp9r vLYQQQPx9S1EzIUobfga4XYQqL2A97dD623L+zBYBwLTtYVwbWDAXHyOhve5LcE23D7XqLs16m2J/WhB
1J2DeltjP1oSbNscs48myF6N0T00gvB1b7rpprrowjIxaKyD71krOzu7WqlSpdL+8Ic/MD6EsbDFKVEk sG0zzD6aIHM1QlfREMLXuemmm+qg+8rEoLE2vmfNxo0bVylRokT673//e8aHMBa2OCWKxJcacOGH8/7i
vtSACz+c95cEF4KEl4LNYpqALmIqYaU0AjMCzcAP40CDjosFX7+wZMmSF2ZkZFzUpk2bYghQsQEDBhQf 4GKQ8FKwWUwT0EVMJayURmBGoBn4YRxo0HGx4OsXFy9e/OKMjIxLWrVqVQQBKjJw4MCiQ4YMKYKUqcEI
PHhwMaRMDUbwxZFC9a17v4SA4JYkCHQpGzDTxclgq5PI55r7IvsnyP7zu/A78bvxO6L1X1SiRAn93d0Y vihSqL517xcTENziBIEuYQNmujQZbHUS+VxzX2T/BNl/fhd+J343fke0/kuKFSumv7sbg2BcmFETxayH
BOPCjJooZj2s+wJwHqDwXMLnNJ6aUbu4W3+w8M2shJWxL6Gr+AHMCjQE4YfGQm9zySWX/FdWVpamT58+ dV8ELgAUnkv4nMZTM2oXd+sPFr6ZlbAy9iV0FT+AWYGGIPzQWOhtMGP4r6ysLE3fvn3Py83NPXfkyJE+
Z+fm5p41YsQIHwjw2acTwf3n98IA8Gz5nvzO8v3dWJwMWDc/h5qwkVJ46pRwy49VpDIxgxgiLGdeeeWV EODzziSC+8/vhQHgefI9+Z3l+7uxOBWwbn4ONWEjpfDUKeGWH6tIZWIGMURYzrnyyivPQeDOJnis65PH
ZyJwvyV4rOuTx6c7we/C78rvDIJxoECpwqxXPs+LLbCU3/zmfwGMIYrtwba35AAAAABJRU5ErkJggg== ZzrB78Lvyu8MgnGgQKnCrFc+z4stsJTf/Ob/AXRLhhbT3iVzAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton7.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="C1TrueDBDropdown1.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="C1TrueDBDropdown1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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, 213, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 213, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<data name="C1TrueDBDropdown2.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="C1TrueDBDropdown2.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 231, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 231, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
</root> </root>

80
DPM2016/Klassen/clsStammdaten_flat.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Data.SqlTypes Imports System.Data.SqlTypes
Imports C1.Win.C1TrueDBGrid
Public Class clsStammdaten_flat Public Class clsStammdaten_flat
@@ -42,8 +43,10 @@ Public Class clsStammdaten_flat
Public Sub get_data() Public Sub get_data()
Try Try
Me.C1Daten.datasource = Nothing
Me.C1Daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing Me.c1daten.DataMember = Nothing
@@ -51,12 +54,25 @@ Public Class clsStammdaten_flat
db.dsDaten.Tables.Clear() db.dsDaten.Tables.Clear()
db.Get_Tabledata(Me.Tablename) db.Get_Tabledata(Me.Tablename)
Me.C1Daten.DataSource = db.dsDaten
Me.c1daten.DataSource = db.dsDaten
Me.c1daten.DataMember = Tablename Me.c1daten.DataMember = Tablename
Dim spalten As New Tabellenspalte Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.C1Daten, Me.Tablename, db.dsDaten.Tables(0)) spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0))
If Tablename = "Auswertung" Then
Dim printer As New clsPrinter
printer.Get_Printers()
Me.C1TrueDBDropdown1.DataSource = printer.Printers
Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
End If
If Tablename = "User" Then Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1 Else Me.c1d.ContextMenuStrip = Nothing
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
@@ -66,7 +82,7 @@ Public Class clsStammdaten_flat
db.Update_Data() db.Update_Data()
End Sub End Sub
Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub End Sub
@@ -81,4 +97,56 @@ Public Class clsStammdaten_flat
End Try End Try
MsgBox("Daten wurden gespeichert") MsgBox("Daten wurden gespeichert")
End Sub End Sub
Private Sub c1daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles c1daten.RowColChange
Try
If Tablename = "Auswertung" Then
Me.C1TrueDBDropdown2.DataSource = Nothing
Dim printer As New clsPrinter
printer.Get_Papersources(Me.c1daten.Columns("Drucker").Value.ToString)
Me.C1TrueDBDropdown2.DataSource = printer.Papersources
Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
Me.c1daten.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
End If
Catch
End Try
End Sub
Private Sub NeuerBenutzerEröffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerBenutzerEröffnenToolStripMenuItem.Click
Dim f As New frmLogin(True)
f.ShowDialog()
get_data()
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
End Sub
Private Sub c1daten_AfterInsert(sender As Object, e As EventArgs) Handles c1daten.AfterInsert
Try
'Me.c1daten.Columns("erstellt_am").Value = Now
'Me.c1daten.Columns("mutiert_am").Value = Now
'Me.c1daten.Columns("mutierer").Value = Globals.ActUser
'Me.c1daten.Columns("aktiv").Value = True
'Me.c1daten.Columns("Mandant").Value = Globals.Mandant
Catch ex As Exception
End Try
End Sub
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
If Tablename = "Dentotar" Then
Dim f As New frmDentotarDetails
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
f.ShowDialog()
End If
End Sub
End Class End Class

25
DPM2016/My Project/Application.Designer.vb generated
View File

@@ -11,28 +11,3 @@
Option Strict On Option Strict On
Option Explicit 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

6
DPM2016/My Project/Application.myapp
View File

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

26
DPM2016/My Project/Settings.Designer.vb generated
View File

@@ -54,19 +54,6 @@ Namespace My
End Get End Get
End Property 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.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("2")> _ Global.System.Configuration.DefaultSettingValueAttribute("2")> _
@@ -102,6 +89,19 @@ Namespace My
Me("DocArchivPath") = value Me("DocArchivPath") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=dpm2018;integrated security=SSPI;persist securi"& _
"ty 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
End Class End Class
End Namespace End Namespace

6
DPM2016/My Project/Settings.settings
View File

@@ -2,9 +2,6 @@
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true"> <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles /> <Profiles />
<Settings> <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"> <Setting Name="LogLevel" Type="System.String" Scope="User">
<Value Profile="(Default)">2</Value> <Value Profile="(Default)">2</Value>
</Setting> </Setting>
@@ -14,5 +11,8 @@
<Setting Name="DocArchivPath" Type="System.String" Scope="User"> <Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value> <Value Profile="(Default)">h:\dpm\docarchiv</Value>
</Setting> </Setting>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=dpm2018;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

1
DPM2016/My Project/licenses.licx
View File

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

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

@@ -36,13 +36,13 @@ Partial Class Patient
Me.tsbtprev = New System.Windows.Forms.ToolStripButton() Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton() Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton() Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnVTX = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl() Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails() Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem() 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.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung() Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem() Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
@@ -52,6 +52,12 @@ Partial Class Patient
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte() Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem() Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -59,20 +65,21 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout() Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout() Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout() Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout() Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True 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.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.ToolStripSeparator1, Me.tsbtnVTX})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1006, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1278, 25)
Me.ToolStrip1.TabIndex = 15 Me.ToolStrip1.TabIndex = 15
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -180,6 +187,20 @@ Partial Class Patient
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22) Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz" Me.tsbtnlast.Text = "Letzter Datensatz"
' '
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'tsbtnVTX
'
Me.tsbtnVTX.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnVTX.Image = CType(resources.GetObject("tsbtnVTX.Image"), System.Drawing.Image)
Me.tsbtnVTX.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnVTX.Name = "tsbtnVTX"
Me.tsbtnVTX.Size = New System.Drawing.Size(23, 22)
Me.tsbtnVTX.Text = "ToolStripButton1"
'
'SuperTabControl1 'SuperTabControl1
' '
' '
@@ -196,32 +217,43 @@ Partial Class Patient
Me.SuperTabControl1.ControlBox.Name = "" Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox}) 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.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49) Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1" Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0 Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1006, 728) Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 637)
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.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.TabIndex = 18
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Krankengeschichte, Me.Finanzen}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Krankengeschichte})
Me.SuperTabControl1.Text = "SuperTabControl1" Me.SuperTabControl1.Text = "SuperTabControl1"
' '
'SuperTabControlPanel1 'SuperTabControlPanel1
' '
Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1) Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1" Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1006, 703) Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel1.TabIndex = 1 Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.Stammdaten Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
' '
'btnVTX
'
Me.btnVTX.Image = CType(resources.GetObject("btnVTX.Image"), System.Drawing.Image)
Me.btnVTX.Location = New System.Drawing.Point(739, 38)
Me.btnVTX.Name = "btnVTX"
Me.btnVTX.Size = New System.Drawing.Size(75, 41)
Me.btnVTX.TabIndex = 18
Me.btnVTX.UseVisualStyleBackColor = True
'
'PatientDetails1 'PatientDetails1
' '
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -230,7 +262,7 @@ Partial Class Patient
Me.PatientDetails1.Name = "PatientDetails1" Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = " " Me.PatientDetails1.Patientname = " "
Me.PatientDetails1.PatientNr = 0 Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1006, 703) Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17 Me.PatientDetails1.TabIndex = 17
' '
'Stammdaten 'Stammdaten
@@ -240,39 +272,13 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten" Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "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 'SuperTabControlPanel3
' '
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1) Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3" Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1006, 568) Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel3.TabIndex = 0 Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
' '
@@ -283,7 +289,7 @@ Partial Class Patient
Me.Behandlung1.Location = New System.Drawing.Point(0, 0) Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1" Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0 Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1006, 568) Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
Me.Behandlung1.TabIndex = 0 Me.Behandlung1.TabIndex = 0
' '
'Behandlungen 'Behandlungen
@@ -299,7 +305,7 @@ Partial Class Patient
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2" Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 568) Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel2.TabIndex = 0 Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.Abrechnung Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
' '
@@ -310,7 +316,7 @@ Partial Class Patient
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0) Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
Me.PatientAbrechnung1.Name = "PatientAbrechnung1" Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0 Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 568) Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 803)
Me.PatientAbrechnung1.TabIndex = 0 Me.PatientAbrechnung1.TabIndex = 0
' '
'Abrechnung 'Abrechnung
@@ -326,7 +332,7 @@ Partial Class Patient
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4" Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 568) Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel4.TabIndex = 0 Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
' '
@@ -336,23 +342,76 @@ Partial Class Patient
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0) Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1" Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0 Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 568) Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 803)
Me.Krankengeschichte1.TabIndex = 0 Me.Krankengeschichte1.TabIndex = 0
' '
'Krankengeschichte 'Krankengeschichte
' '
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4 Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.Enabled = False
Me.Krankengeschichte.GlobalItem = False Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "Krankengeschichte" Me.Krankengeschichte.Name = "Krankengeschichte"
Me.Krankengeschichte.Text = "Krankengeschichte" Me.Krankengeschichte.Text = "Krankengeschichte"
' '
'SuperTabControlPanel6
'
Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel6.TabIndex = 0
Me.SuperTabControlPanel6.TabItem = Me.Recall
'
'Recall1
'
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Recall1.Location = New System.Drawing.Point(0, 0)
Me.Recall1.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1006, 803)
Me.Recall1.TabIndex = 0
'
'Recall
'
Me.Recall.AttachedControl = Me.SuperTabControlPanel6
Me.Recall.GlobalItem = False
Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall"
'
'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, 803)
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, 803)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.AllowMerge = False Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1006, 24) Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
Me.MenuStrip1.TabIndex = 19 Me.MenuStrip1.TabIndex = 19
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
@@ -373,10 +432,11 @@ Partial Class Patient
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1006, 777) Me.ClientSize = New System.Drawing.Size(1278, 686)
Me.Controls.Add(Me.SuperTabControl1) Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1 Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Patient" Me.Name = "Patient"
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
@@ -386,10 +446,11 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False) Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False) Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False) Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False) Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -428,4 +489,10 @@ Partial Class Patient
Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Finanzen1 As DPM2016.Finanzen Friend WithEvents Finanzen1 As DPM2016.Finanzen
Friend WithEvents SuperTabControlPanel6 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Recall As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Recall1 As Recall
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbtnVTX As ToolStripButton
Friend WithEvents btnVTX As Button
End Class End Class

3989
DPM2016/Patient/Patient.resx
View File

File diff suppressed because it is too large Load Diff

63
DPM2016/Patient/Patient.vb
View File

@@ -12,7 +12,9 @@
Me.PatientAbrechnung1.PatientNr = value Me.PatientAbrechnung1.PatientNr = value
Me.Behandlung1.PatientNr = value Me.Behandlung1.PatientNr = value
Me.Finanzen1.Patientnr = value Me.Finanzen1.Patientnr = value
Me.Recall1.Patientnr = value
Globals.OnLoad = False Globals.OnLoad = False
End Set End Set
End Property End Property
@@ -53,7 +55,14 @@
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.tsbtnfirst_Click(sender, e) Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB
If db.Get_Option(9999) = "" Then
Me.tsbtnVTX.Visible = False
Me.btnVTX.Visible = False
Else
Me.tsbtnVTX.Visible = True
Me.btnVTX.Visible = True
End If
End Sub End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
@@ -167,5 +176,57 @@
End If End If
End Sub End Sub
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab()
SuperTabControl1.SelectNextTab()
Me.Recall1.SetValues(Datum, patient, behandler)
End If
End Sub
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
Dim db As New clsDB
db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
db.Dispose()
Exit Sub
End If
Dim vddsmodule As String = db.Get_Option(9999)
Dim vdspath As String = db.Get_Option(9998) + "\"
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
FileOpen(1, filename, OpenMode.Output)
PrintLine(1, "[Patient]")
PrintLine(1, "PVS=DPM")
PrintLine(1, "BVS=VixWinPRO_Imaging")
PrintLine(1, "PATID=" + Me.PatientNr.ToString)
PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString)
PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString)
PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
PrintLine(1, "SEX=F")
Else
PrintLine(1, "SEX=M")
End If
PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString)
PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString)
PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
PrintLine(1, "READY=0")
PrintLine(1, "ERRORLEVEL=0")
PrintLine(1, "ERRORTEXT=0")
FileClose(1)
Try
MsgBox(vddsmodule + " " + filename)
Process.Start(vddsmodule, filename)
Catch
End Try
End Sub
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
Me.tsbtnVTX_Click(sender, e)
End Sub
End Class End Class

86
DPM2016/Patient/PatientAbrechnung.Designer.vb generated
View File

@@ -116,10 +116,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrzahnarzt.Displaymember = Nothing Me.cbboxnrzahnarzt.Displaymember = Nothing
Me.cbboxnrzahnarzt.Location = New System.Drawing.Point(122, 305) Me.cbboxnrzahnarzt.Location = New System.Drawing.Point(122, 305)
Me.cbboxnrzahnarzt.Name = "cbboxnrzahnarzt" Me.cbboxnrzahnarzt.Name = "cbboxnrzahnarzt"
Me.cbboxnrzahnarzt.SelectedValue = Nothing Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 21)
Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 22) Me.cbboxnrzahnarzt.TabIndex = 11
Me.cbboxnrzahnarzt.TabIndex = 45
Me.cbboxnrzahnarzt.Table = Nothing Me.cbboxnrzahnarzt.Table = Nothing
Me.cbboxnrzahnarzt.TableAlias = ""
Me.cbboxnrzahnarzt.Valuemember = Nothing Me.cbboxnrzahnarzt.Valuemember = Nothing
' '
'cbboxnrhausarzt 'cbboxnrhausarzt
@@ -128,10 +128,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrhausarzt.Displaymember = Nothing Me.cbboxnrhausarzt.Displaymember = Nothing
Me.cbboxnrhausarzt.Location = New System.Drawing.Point(123, 277) Me.cbboxnrhausarzt.Location = New System.Drawing.Point(123, 277)
Me.cbboxnrhausarzt.Name = "cbboxnrhausarzt" Me.cbboxnrhausarzt.Name = "cbboxnrhausarzt"
Me.cbboxnrhausarzt.SelectedValue = Nothing Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 21)
Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 22) Me.cbboxnrhausarzt.TabIndex = 10
Me.cbboxnrhausarzt.TabIndex = 44
Me.cbboxnrhausarzt.Table = Nothing Me.cbboxnrhausarzt.Table = Nothing
Me.cbboxnrhausarzt.TableAlias = ""
Me.cbboxnrhausarzt.Valuemember = Nothing Me.cbboxnrhausarzt.Valuemember = Nothing
' '
'CBBOXNRFs 'CBBOXNRFs
@@ -140,10 +140,10 @@ Partial Class PatientAbrechnung
Me.CBBOXNRFs.Displaymember = Nothing Me.CBBOXNRFs.Displaymember = Nothing
Me.CBBOXNRFs.Location = New System.Drawing.Point(123, 223) Me.CBBOXNRFs.Location = New System.Drawing.Point(123, 223)
Me.CBBOXNRFs.Name = "CBBOXNRFs" Me.CBBOXNRFs.Name = "CBBOXNRFs"
Me.CBBOXNRFs.SelectedValue = Nothing Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 21)
Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 22) Me.CBBOXNRFs.TabIndex = 8
Me.CBBOXNRFs.TabIndex = 43
Me.CBBOXNRFs.Table = Nothing Me.CBBOXNRFs.Table = Nothing
Me.CBBOXNRFs.TableAlias = ""
Me.CBBOXNRFs.Valuemember = Nothing Me.CBBOXNRFs.Valuemember = Nothing
' '
'CBBOXNRIV 'CBBOXNRIV
@@ -152,10 +152,10 @@ Partial Class PatientAbrechnung
Me.CBBOXNRIV.Displaymember = Nothing Me.CBBOXNRIV.Displaymember = Nothing
Me.CBBOXNRIV.Location = New System.Drawing.Point(123, 176) Me.CBBOXNRIV.Location = New System.Drawing.Point(123, 176)
Me.CBBOXNRIV.Name = "CBBOXNRIV" Me.CBBOXNRIV.Name = "CBBOXNRIV"
Me.CBBOXNRIV.SelectedValue = Nothing Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 21)
Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 22) Me.CBBOXNRIV.TabIndex = 6
Me.CBBOXNRIV.TabIndex = 42
Me.CBBOXNRIV.Table = Nothing Me.CBBOXNRIV.Table = Nothing
Me.CBBOXNRIV.TableAlias = ""
Me.CBBOXNRIV.Valuemember = Nothing Me.CBBOXNRIV.Valuemember = Nothing
' '
'cbboxNRKK 'cbboxNRKK
@@ -164,10 +164,10 @@ Partial Class PatientAbrechnung
Me.cbboxNRKK.Displaymember = Nothing Me.cbboxNRKK.Displaymember = Nothing
Me.cbboxNRKK.Location = New System.Drawing.Point(123, 122) Me.cbboxNRKK.Location = New System.Drawing.Point(123, 122)
Me.cbboxNRKK.Name = "cbboxNRKK" Me.cbboxNRKK.Name = "cbboxNRKK"
Me.cbboxNRKK.SelectedValue = Nothing Me.cbboxNRKK.Size = New System.Drawing.Size(208, 21)
Me.cbboxNRKK.Size = New System.Drawing.Size(208, 22) Me.cbboxNRKK.TabIndex = 4
Me.cbboxNRKK.TabIndex = 41
Me.cbboxNRKK.Table = Nothing Me.cbboxNRKK.Table = Nothing
Me.cbboxNRKK.TableAlias = ""
Me.cbboxNRKK.Valuemember = Nothing Me.cbboxNRKK.Valuemember = Nothing
' '
'cbboxNRVS 'cbboxNRVS
@@ -176,10 +176,10 @@ Partial Class PatientAbrechnung
Me.cbboxNRVS.Displaymember = Nothing Me.cbboxNRVS.Displaymember = Nothing
Me.cbboxNRVS.Location = New System.Drawing.Point(123, 70) Me.cbboxNRVS.Location = New System.Drawing.Point(123, 70)
Me.cbboxNRVS.Name = "cbboxNRVS" Me.cbboxNRVS.Name = "cbboxNRVS"
Me.cbboxNRVS.SelectedValue = Nothing Me.cbboxNRVS.Size = New System.Drawing.Size(208, 21)
Me.cbboxNRVS.Size = New System.Drawing.Size(208, 22) Me.cbboxNRVS.TabIndex = 2
Me.cbboxNRVS.TabIndex = 40
Me.cbboxNRVS.Table = Nothing Me.cbboxNRVS.Table = Nothing
Me.cbboxNRVS.TableAlias = ""
Me.cbboxNRVS.Valuemember = Nothing Me.cbboxNRVS.Valuemember = Nothing
' '
'cbboxNrGarant 'cbboxNrGarant
@@ -188,10 +188,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrGarant.Displaymember = Nothing Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(123, 42) Me.cbboxNrGarant.Location = New System.Drawing.Point(123, 42)
Me.cbboxNrGarant.Name = "cbboxNrGarant" Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.SelectedValue = Nothing Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 21)
Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 22) Me.cbboxNrGarant.TabIndex = 1
Me.cbboxNrGarant.TabIndex = 39
Me.cbboxNrGarant.Table = Nothing Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing Me.cbboxNrGarant.Valuemember = Nothing
' '
'cbboxNrGesVertreter 'cbboxNrGesVertreter
@@ -200,10 +200,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrGesVertreter.Displaymember = Nothing Me.cbboxNrGesVertreter.Displaymember = Nothing
Me.cbboxNrGesVertreter.Location = New System.Drawing.Point(123, 14) Me.cbboxNrGesVertreter.Location = New System.Drawing.Point(123, 14)
Me.cbboxNrGesVertreter.Name = "cbboxNrGesVertreter" Me.cbboxNrGesVertreter.Name = "cbboxNrGesVertreter"
Me.cbboxNrGesVertreter.SelectedValue = Nothing Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 21)
Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 22) Me.cbboxNrGesVertreter.TabIndex = 0
Me.cbboxNrGesVertreter.TabIndex = 38
Me.cbboxNrGesVertreter.Table = Nothing Me.cbboxNrGesVertreter.Table = Nothing
Me.cbboxNrGesVertreter.TableAlias = ""
Me.cbboxNrGesVertreter.Valuemember = Nothing Me.cbboxNrGesVertreter.Valuemember = Nothing
' '
'Label30 'Label30
@@ -247,7 +247,7 @@ Partial Class PatientAbrechnung
Me.txtFSNR.Location = New System.Drawing.Point(123, 251) Me.txtFSNR.Location = New System.Drawing.Point(123, 251)
Me.txtFSNR.Name = "txtFSNR" Me.txtFSNR.Name = "txtFSNR"
Me.txtFSNR.Size = New System.Drawing.Size(208, 20) Me.txtFSNR.Size = New System.Drawing.Size(208, 20)
Me.txtFSNR.TabIndex = 31 Me.txtFSNR.TabIndex = 9
' '
'Label25 'Label25
' '
@@ -272,7 +272,7 @@ Partial Class PatientAbrechnung
Me.txtIVNR.Location = New System.Drawing.Point(123, 201) Me.txtIVNR.Location = New System.Drawing.Point(123, 201)
Me.txtIVNR.Name = "txtIVNR" Me.txtIVNR.Name = "txtIVNR"
Me.txtIVNR.Size = New System.Drawing.Size(208, 20) Me.txtIVNR.Size = New System.Drawing.Size(208, 20)
Me.txtIVNR.TabIndex = 27 Me.txtIVNR.TabIndex = 7
' '
'Label24 'Label24
' '
@@ -288,7 +288,7 @@ Partial Class PatientAbrechnung
Me.txtKKNR.Location = New System.Drawing.Point(123, 150) Me.txtKKNR.Location = New System.Drawing.Point(123, 150)
Me.txtKKNR.Name = "txtKKNR" Me.txtKKNR.Name = "txtKKNR"
Me.txtKKNR.Size = New System.Drawing.Size(208, 20) Me.txtKKNR.Size = New System.Drawing.Size(208, 20)
Me.txtKKNR.TabIndex = 24 Me.txtKKNR.TabIndex = 5
' '
'Label23 'Label23
' '
@@ -313,7 +313,7 @@ Partial Class PatientAbrechnung
Me.txtVSNR.Location = New System.Drawing.Point(123, 95) Me.txtVSNR.Location = New System.Drawing.Point(123, 95)
Me.txtVSNR.Name = "txtVSNR" Me.txtVSNR.Name = "txtVSNR"
Me.txtVSNR.Size = New System.Drawing.Size(208, 20) Me.txtVSNR.Size = New System.Drawing.Size(208, 20)
Me.txtVSNR.TabIndex = 7 Me.txtVSNR.TabIndex = 3
' '
'Label19 'Label19
' '
@@ -398,10 +398,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrbehandler.Displaymember = Nothing Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(82, 18) Me.cbboxnrbehandler.Location = New System.Drawing.Point(82, 18)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler" Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.SelectedValue = Nothing Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 21)
Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 22) Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.TabIndex = 18
Me.cbboxnrbehandler.Table = Nothing Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing Me.cbboxnrbehandler.Valuemember = Nothing
' '
'cbboxzazRecallTyp 'cbboxzazRecallTyp
@@ -410,10 +410,10 @@ Partial Class PatientAbrechnung
Me.cbboxzazRecallTyp.Displaymember = Nothing Me.cbboxzazRecallTyp.Displaymember = Nothing
Me.cbboxzazRecallTyp.Location = New System.Drawing.Point(82, 72) Me.cbboxzazRecallTyp.Location = New System.Drawing.Point(82, 72)
Me.cbboxzazRecallTyp.Name = "cbboxzazRecallTyp" Me.cbboxzazRecallTyp.Name = "cbboxzazRecallTyp"
Me.cbboxzazRecallTyp.SelectedValue = Nothing Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 22) Me.cbboxzazRecallTyp.TabIndex = 2
Me.cbboxzazRecallTyp.TabIndex = 9
Me.cbboxzazRecallTyp.Table = Nothing Me.cbboxzazRecallTyp.Table = Nothing
Me.cbboxzazRecallTyp.TableAlias = ""
Me.cbboxzazRecallTyp.Valuemember = Nothing Me.cbboxzazRecallTyp.Valuemember = Nothing
' '
'txtzazRecallBemerkung 'txtzazRecallBemerkung
@@ -422,7 +422,7 @@ Partial Class PatientAbrechnung
Me.txtzazRecallBemerkung.Multiline = True Me.txtzazRecallBemerkung.Multiline = True
Me.txtzazRecallBemerkung.Name = "txtzazRecallBemerkung" Me.txtzazRecallBemerkung.Name = "txtzazRecallBemerkung"
Me.txtzazRecallBemerkung.Size = New System.Drawing.Size(161, 49) Me.txtzazRecallBemerkung.Size = New System.Drawing.Size(161, 49)
Me.txtzazRecallBemerkung.TabIndex = 17 Me.txtzazRecallBemerkung.TabIndex = 4
' '
'Label11 'Label11
' '
@@ -447,7 +447,7 @@ Partial Class PatientAbrechnung
Me.txtZAZRecallfixmonat.Location = New System.Drawing.Point(82, 99) Me.txtZAZRecallfixmonat.Location = New System.Drawing.Point(82, 99)
Me.txtZAZRecallfixmonat.Name = "txtZAZRecallfixmonat" Me.txtZAZRecallfixmonat.Name = "txtZAZRecallfixmonat"
Me.txtZAZRecallfixmonat.Size = New System.Drawing.Size(58, 20) Me.txtZAZRecallfixmonat.Size = New System.Drawing.Size(58, 20)
Me.txtZAZRecallfixmonat.TabIndex = 14 Me.txtZAZRecallfixmonat.TabIndex = 3
' '
'Label9 'Label9
' '
@@ -473,7 +473,7 @@ Partial Class PatientAbrechnung
Me.txtzazrecall.Location = New System.Drawing.Point(82, 46) Me.txtzazrecall.Location = New System.Drawing.Point(82, 46)
Me.txtzazrecall.Name = "txtzazrecall" Me.txtzazrecall.Name = "txtzazrecall"
Me.txtzazrecall.Size = New System.Drawing.Size(58, 20) Me.txtzazrecall.Size = New System.Drawing.Size(58, 20)
Me.txtzazrecall.TabIndex = 10 Me.txtzazrecall.TabIndex = 1
' '
'Label8 'Label8
' '
@@ -516,10 +516,10 @@ Partial Class PatientAbrechnung
Me.cbboxESTyp.Displaymember = Nothing Me.cbboxESTyp.Displaymember = Nothing
Me.cbboxESTyp.Location = New System.Drawing.Point(84, 72) Me.cbboxESTyp.Location = New System.Drawing.Point(84, 72)
Me.cbboxESTyp.Name = "cbboxESTyp" Me.cbboxESTyp.Name = "cbboxESTyp"
Me.cbboxESTyp.SelectedValue = Nothing Me.cbboxESTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxESTyp.Size = New System.Drawing.Size(160, 22) Me.cbboxESTyp.TabIndex = 2
Me.cbboxESTyp.TabIndex = 8
Me.cbboxESTyp.Table = Nothing Me.cbboxESTyp.Table = Nothing
Me.cbboxESTyp.TableAlias = ""
Me.cbboxESTyp.Valuemember = Nothing Me.cbboxESTyp.Valuemember = Nothing
' '
'cbboxNrRGTyp 'cbboxNrRGTyp
@@ -528,10 +528,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrRGTyp.Displaymember = Nothing Me.cbboxNrRGTyp.Displaymember = Nothing
Me.cbboxNrRGTyp.Location = New System.Drawing.Point(83, 14) Me.cbboxNrRGTyp.Location = New System.Drawing.Point(83, 14)
Me.cbboxNrRGTyp.Name = "cbboxNrRGTyp" Me.cbboxNrRGTyp.Name = "cbboxNrRGTyp"
Me.cbboxNrRGTyp.SelectedValue = Nothing Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 22) Me.cbboxNrRGTyp.TabIndex = 0
Me.cbboxNrRGTyp.TabIndex = 7
Me.cbboxNrRGTyp.Table = Nothing Me.cbboxNrRGTyp.Table = Nothing
Me.cbboxNrRGTyp.TableAlias = ""
Me.cbboxNrRGTyp.Valuemember = Nothing Me.cbboxNrRGTyp.Valuemember = Nothing
' '
'Label6 'Label6

4
DPM2016/Patient/PatientAbrechnung.resx
View File

@@ -112,9 +112,9 @@
<value>2.0</value> <value>2.0</value>
</resheader> </resheader>
<resheader name="reader"> <resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
</root> </root>

169
DPM2016/Patient/PatientDetails.Designer.vb generated
View File

@@ -83,6 +83,11 @@ Partial Class PatientDetails
Me.cbboxStatus = New DPM2016.MyCombobox() Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = New DPM2016.MyCombobox() Me.cbboxNRTitel = New DPM2016.MyCombobox()
Me.cbboxNrAnrede = New DPM2016.MyCombobox() Me.cbboxNrAnrede = New DPM2016.MyCombobox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
Me.lblGLN = New System.Windows.Forms.Label()
Me.txtGLN = New System.Windows.Forms.TextBox()
Me.txtZSR = New System.Windows.Forms.TextBox()
Me.SuspendLayout() Me.SuspendLayout()
' '
'txtnrprivat 'txtnrprivat
@@ -93,7 +98,7 @@ Partial Class PatientDetails
Me.txtnrprivat.ReadOnly = True Me.txtnrprivat.ReadOnly = True
Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrprivat.Size = New System.Drawing.Size(48, 20) Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
Me.txtnrprivat.TabIndex = 100 Me.txtnrprivat.TabIndex = 0
' '
'lblNr 'lblNr
' '
@@ -184,7 +189,7 @@ Partial Class PatientDetails
' '
Me.Label15.AutoSize = True Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Location = New System.Drawing.Point(272, 254) Me.Label15.Location = New System.Drawing.Point(272, 280)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(50, 13) Me.Label15.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 201 Me.Label15.TabIndex = 201
@@ -194,7 +199,7 @@ Partial Class PatientDetails
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Location = New System.Drawing.Point(272, 230) Me.Label14.Location = New System.Drawing.Point(272, 256)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(49, 13) Me.Label14.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 200 Me.Label14.TabIndex = 200
@@ -217,21 +222,21 @@ Partial Class PatientDetails
Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39) Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
Me.chklbAdresstyp.Name = "chklbAdresstyp" Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154) Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
Me.chklbAdresstyp.TabIndex = 26 Me.chklbAdresstyp.TabIndex = 30
' '
'txtBemerkung 'txtBemerkung
' '
Me.txtBemerkung.Location = New System.Drawing.Point(275, 301) Me.txtBemerkung.Location = New System.Drawing.Point(275, 327)
Me.txtBemerkung.Multiline = True Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(446, 101) Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
Me.txtBemerkung.TabIndex = 25 Me.txtBemerkung.TabIndex = 29
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(272, 281) Me.Label2.Location = New System.Drawing.Point(272, 307)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13) Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 198 Me.Label2.TabIndex = 198
@@ -241,7 +246,7 @@ Partial Class PatientDetails
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Location = New System.Drawing.Point(272, 200) Me.Label1.Location = New System.Drawing.Point(272, 226)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13) Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 197 Me.Label1.TabIndex = 197
@@ -249,23 +254,23 @@ Partial Class PatientDetails
' '
'txtFaxG 'txtFaxG
' '
Me.txtFaxG.Location = New System.Drawing.Point(342, 197) Me.txtFaxG.Location = New System.Drawing.Point(342, 223)
Me.txtFaxG.Name = "txtFaxG" Me.txtFaxG.Name = "txtFaxG"
Me.txtFaxG.Size = New System.Drawing.Size(162, 20) Me.txtFaxG.Size = New System.Drawing.Size(162, 20)
Me.txtFaxG.TabIndex = 22 Me.txtFaxG.TabIndex = 26
' '
'txtName 'txtName
' '
Me.txtName.Location = New System.Drawing.Point(74, 93) Me.txtName.Location = New System.Drawing.Point(74, 93)
Me.txtName.Name = "txtName" Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(162, 20) Me.txtName.Size = New System.Drawing.Size(162, 20)
Me.txtName.TabIndex = 2 Me.txtName.TabIndex = 3
' '
'lbltelg 'lbltelg
' '
Me.lbltelg.AutoSize = True Me.lbltelg.AutoSize = True
Me.lbltelg.BackColor = System.Drawing.Color.Transparent Me.lbltelg.BackColor = System.Drawing.Color.Transparent
Me.lbltelg.Location = New System.Drawing.Point(272, 174) Me.lbltelg.Location = New System.Drawing.Point(272, 200)
Me.lbltelg.Name = "lbltelg" Me.lbltelg.Name = "lbltelg"
Me.lbltelg.Size = New System.Drawing.Size(57, 13) Me.lbltelg.Size = New System.Drawing.Size(57, 13)
Me.lbltelg.TabIndex = 196 Me.lbltelg.TabIndex = 196
@@ -283,17 +288,17 @@ Partial Class PatientDetails
' '
'txtTelg 'txtTelg
' '
Me.txtTelg.Location = New System.Drawing.Point(342, 171) Me.txtTelg.Location = New System.Drawing.Point(342, 197)
Me.txtTelg.Name = "txtTelg" Me.txtTelg.Name = "txtTelg"
Me.txtTelg.Size = New System.Drawing.Size(162, 20) Me.txtTelg.Size = New System.Drawing.Size(162, 20)
Me.txtTelg.TabIndex = 21 Me.txtTelg.TabIndex = 25
' '
'txtVorname 'txtVorname
' '
Me.txtVorname.Location = New System.Drawing.Point(74, 119) Me.txtVorname.Location = New System.Drawing.Point(74, 119)
Me.txtVorname.Name = "txtVorname" Me.txtVorname.Name = "txtVorname"
Me.txtVorname.Size = New System.Drawing.Size(162, 20) Me.txtVorname.Size = New System.Drawing.Size(162, 20)
Me.txtVorname.TabIndex = 3 Me.txtVorname.TabIndex = 4
' '
'lblahv 'lblahv
' '
@@ -310,7 +315,7 @@ Partial Class PatientDetails
Me.txtahvnr.Location = New System.Drawing.Point(342, 145) Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
Me.txtahvnr.Name = "txtahvnr" Me.txtahvnr.Name = "txtahvnr"
Me.txtahvnr.Size = New System.Drawing.Size(162, 20) Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
Me.txtahvnr.TabIndex = 20 Me.txtahvnr.TabIndex = 22
' '
'lblVorname 'lblVorname
' '
@@ -337,14 +342,14 @@ Partial Class PatientDetails
Me.txtBeruf.Location = New System.Drawing.Point(342, 119) Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
Me.txtBeruf.Name = "txtBeruf" Me.txtBeruf.Name = "txtBeruf"
Me.txtBeruf.Size = New System.Drawing.Size(162, 20) Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
Me.txtBeruf.TabIndex = 19 Me.txtBeruf.TabIndex = 21
' '
'txtCOAdresse 'txtCOAdresse
' '
Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145) Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
Me.txtCOAdresse.Name = "txtCOAdresse" Me.txtCOAdresse.Name = "txtCOAdresse"
Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20) Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
Me.txtCOAdresse.TabIndex = 4 Me.txtCOAdresse.TabIndex = 5
' '
'lblArbeitgeber 'lblArbeitgeber
' '
@@ -371,7 +376,7 @@ Partial Class PatientDetails
Me.txtStrasse.Location = New System.Drawing.Point(74, 171) Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
Me.txtStrasse.Name = "txtStrasse" Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(162, 20) Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 5 Me.txtStrasse.TabIndex = 6
' '
'lblSprache 'lblSprache
' '
@@ -398,7 +403,7 @@ Partial Class PatientDetails
Me.txtPLZ.Location = New System.Drawing.Point(74, 197) Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
Me.txtPLZ.Name = "txtPLZ" Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(48, 20) Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
Me.txtPLZ.TabIndex = 6 Me.txtPLZ.TabIndex = 7
' '
'lblStatus 'lblStatus
' '
@@ -424,7 +429,7 @@ Partial Class PatientDetails
' '
Me.lblBriefanrede.AutoSize = True Me.lblBriefanrede.AutoSize = True
Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
Me.lblBriefanrede.Location = New System.Drawing.Point(4, 411) Me.lblBriefanrede.Location = New System.Drawing.Point(4, 435)
Me.lblBriefanrede.Name = "lblBriefanrede" Me.lblBriefanrede.Name = "lblBriefanrede"
Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13) Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13)
Me.lblBriefanrede.TabIndex = 190 Me.lblBriefanrede.TabIndex = 190
@@ -435,20 +440,20 @@ Partial Class PatientDetails
Me.txtOrt.Location = New System.Drawing.Point(128, 197) Me.txtOrt.Location = New System.Drawing.Point(128, 197)
Me.txtOrt.Name = "txtOrt" Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(108, 20) Me.txtOrt.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 7 Me.txtOrt.TabIndex = 8
' '
'txtBriefanrede 'txtBriefanrede
' '
Me.txtBriefanrede.Location = New System.Drawing.Point(74, 408) Me.txtBriefanrede.Location = New System.Drawing.Point(74, 432)
Me.txtBriefanrede.Name = "txtBriefanrede" Me.txtBriefanrede.Name = "txtBriefanrede"
Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20) Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20)
Me.txtBriefanrede.TabIndex = 15 Me.txtBriefanrede.TabIndex = 17
' '
'lblGebDat 'lblGebDat
' '
Me.lblGebDat.AutoSize = True Me.lblGebDat.AutoSize = True
Me.lblGebDat.BackColor = System.Drawing.Color.Transparent Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
Me.lblGebDat.Location = New System.Drawing.Point(4, 229) Me.lblGebDat.Location = New System.Drawing.Point(4, 253)
Me.lblGebDat.Name = "lblGebDat" Me.lblGebDat.Name = "lblGebDat"
Me.lblGebDat.Size = New System.Drawing.Size(44, 13) Me.lblGebDat.Size = New System.Drawing.Size(44, 13)
Me.lblGebDat.TabIndex = 183 Me.lblGebDat.TabIndex = 183
@@ -458,7 +463,7 @@ Partial Class PatientDetails
' '
Me.lblGeschlecht.AutoSize = True Me.lblGeschlecht.AutoSize = True
Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
Me.lblGeschlecht.Location = New System.Drawing.Point(4, 384) Me.lblGeschlecht.Location = New System.Drawing.Point(4, 408)
Me.lblGeschlecht.Name = "lblGeschlecht" Me.lblGeschlecht.Name = "lblGeschlecht"
Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13) Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13)
Me.lblGeschlecht.TabIndex = 189 Me.lblGeschlecht.TabIndex = 189
@@ -466,16 +471,16 @@ Partial Class PatientDetails
' '
'txttelp 'txttelp
' '
Me.txttelp.Location = New System.Drawing.Point(74, 251) Me.txttelp.Location = New System.Drawing.Point(74, 275)
Me.txttelp.Name = "txttelp" Me.txttelp.Name = "txttelp"
Me.txttelp.Size = New System.Drawing.Size(162, 20) Me.txttelp.Size = New System.Drawing.Size(162, 20)
Me.txttelp.TabIndex = 9 Me.txttelp.TabIndex = 11
' '
'lblInternet 'lblInternet
' '
Me.lblInternet.AutoSize = True Me.lblInternet.AutoSize = True
Me.lblInternet.BackColor = System.Drawing.Color.Transparent Me.lblInternet.BackColor = System.Drawing.Color.Transparent
Me.lblInternet.Location = New System.Drawing.Point(4, 358) Me.lblInternet.Location = New System.Drawing.Point(4, 382)
Me.lblInternet.Name = "lblInternet" Me.lblInternet.Name = "lblInternet"
Me.lblInternet.Size = New System.Drawing.Size(43, 13) Me.lblInternet.Size = New System.Drawing.Size(43, 13)
Me.lblInternet.TabIndex = 188 Me.lblInternet.TabIndex = 188
@@ -485,7 +490,7 @@ Partial Class PatientDetails
' '
Me.lblTelefon.AutoSize = True Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(4, 254) Me.lblTelefon.Location = New System.Drawing.Point(4, 278)
Me.lblTelefon.Name = "lblTelefon" Me.lblTelefon.Name = "lblTelefon"
Me.lblTelefon.Size = New System.Drawing.Size(55, 13) Me.lblTelefon.Size = New System.Drawing.Size(55, 13)
Me.lblTelefon.TabIndex = 184 Me.lblTelefon.TabIndex = 184
@@ -493,23 +498,23 @@ Partial Class PatientDetails
' '
'txtWeb 'txtWeb
' '
Me.txtWeb.Location = New System.Drawing.Point(74, 355) Me.txtWeb.Location = New System.Drawing.Point(74, 379)
Me.txtWeb.Name = "txtWeb" Me.txtWeb.Name = "txtWeb"
Me.txtWeb.Size = New System.Drawing.Size(162, 20) Me.txtWeb.Size = New System.Drawing.Size(162, 20)
Me.txtWeb.TabIndex = 13 Me.txtWeb.TabIndex = 15
' '
'txtFaxp 'txtFaxp
' '
Me.txtFaxp.Location = New System.Drawing.Point(74, 277) Me.txtFaxp.Location = New System.Drawing.Point(74, 301)
Me.txtFaxp.Name = "txtFaxp" Me.txtFaxp.Name = "txtFaxp"
Me.txtFaxp.Size = New System.Drawing.Size(162, 20) Me.txtFaxp.Size = New System.Drawing.Size(162, 20)
Me.txtFaxp.TabIndex = 10 Me.txtFaxp.TabIndex = 12
' '
'lblemail 'lblemail
' '
Me.lblemail.AutoSize = True Me.lblemail.AutoSize = True
Me.lblemail.BackColor = System.Drawing.Color.Transparent Me.lblemail.BackColor = System.Drawing.Color.Transparent
Me.lblemail.Location = New System.Drawing.Point(4, 332) Me.lblemail.Location = New System.Drawing.Point(4, 356)
Me.lblemail.Name = "lblemail" Me.lblemail.Name = "lblemail"
Me.lblemail.Size = New System.Drawing.Size(36, 13) Me.lblemail.Size = New System.Drawing.Size(36, 13)
Me.lblemail.TabIndex = 187 Me.lblemail.TabIndex = 187
@@ -519,7 +524,7 @@ Partial Class PatientDetails
' '
Me.lblFaxP.AutoSize = True Me.lblFaxP.AutoSize = True
Me.lblFaxP.BackColor = System.Drawing.Color.Transparent Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
Me.lblFaxP.Location = New System.Drawing.Point(4, 280) Me.lblFaxP.Location = New System.Drawing.Point(4, 304)
Me.lblFaxP.Name = "lblFaxP" Me.lblFaxP.Name = "lblFaxP"
Me.lblFaxP.Size = New System.Drawing.Size(36, 13) Me.lblFaxP.Size = New System.Drawing.Size(36, 13)
Me.lblFaxP.TabIndex = 185 Me.lblFaxP.TabIndex = 185
@@ -527,23 +532,23 @@ Partial Class PatientDetails
' '
'txtE_Mail 'txtE_Mail
' '
Me.txtE_Mail.Location = New System.Drawing.Point(74, 329) Me.txtE_Mail.Location = New System.Drawing.Point(74, 353)
Me.txtE_Mail.Name = "txtE_Mail" Me.txtE_Mail.Name = "txtE_Mail"
Me.txtE_Mail.Size = New System.Drawing.Size(162, 20) Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 12 Me.txtE_Mail.TabIndex = 14
' '
'txtNatel 'txtNatel
' '
Me.txtNatel.Location = New System.Drawing.Point(74, 303) Me.txtNatel.Location = New System.Drawing.Point(74, 327)
Me.txtNatel.Name = "txtNatel" Me.txtNatel.Name = "txtNatel"
Me.txtNatel.Size = New System.Drawing.Size(162, 20) Me.txtNatel.Size = New System.Drawing.Size(162, 20)
Me.txtNatel.TabIndex = 11 Me.txtNatel.TabIndex = 13
' '
'lblMobile 'lblMobile
' '
Me.lblMobile.AutoSize = True Me.lblMobile.AutoSize = True
Me.lblMobile.BackColor = System.Drawing.Color.Transparent Me.lblMobile.BackColor = System.Drawing.Color.Transparent
Me.lblMobile.Location = New System.Drawing.Point(4, 306) Me.lblMobile.Location = New System.Drawing.Point(4, 330)
Me.lblMobile.Name = "lblMobile" Me.lblMobile.Name = "lblMobile"
Me.lblMobile.Size = New System.Drawing.Size(38, 13) Me.lblMobile.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 186 Me.lblMobile.TabIndex = 186
@@ -552,26 +557,26 @@ Partial Class PatientDetails
'dtgebdat 'dtgebdat
' '
Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgebdat.Location = New System.Drawing.Point(74, 223) Me.dtgebdat.Location = New System.Drawing.Point(74, 247)
Me.dtgebdat.Name = "dtgebdat" Me.dtgebdat.Name = "dtgebdat"
Me.dtgebdat.Size = New System.Drawing.Size(162, 20) Me.dtgebdat.Size = New System.Drawing.Size(162, 20)
Me.dtgebdat.TabIndex = 8 Me.dtgebdat.TabIndex = 10
' '
'dtGueltigab 'dtGueltigab
' '
Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtGueltigab.Location = New System.Drawing.Point(342, 225) Me.dtGueltigab.Location = New System.Drawing.Point(342, 251)
Me.dtGueltigab.Name = "dtGueltigab" Me.dtGueltigab.Name = "dtGueltigab"
Me.dtGueltigab.Size = New System.Drawing.Size(162, 20) Me.dtGueltigab.Size = New System.Drawing.Size(162, 20)
Me.dtGueltigab.TabIndex = 23 Me.dtGueltigab.TabIndex = 27
' '
'dtgueltigbis 'dtgueltigbis
' '
Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgueltigbis.Location = New System.Drawing.Point(342, 251) Me.dtgueltigbis.Location = New System.Drawing.Point(342, 277)
Me.dtgueltigbis.Name = "dtgueltigbis" Me.dtgueltigbis.Name = "dtgueltigbis"
Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20) Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
Me.dtgueltigbis.TabIndex = 24 Me.dtgueltigbis.TabIndex = 28
' '
'cbboxNRArbeitgeber 'cbboxNRArbeitgeber
' '
@@ -580,7 +585,7 @@ Partial Class PatientDetails
Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91) Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber" Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21) Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
Me.cbboxNRArbeitgeber.TabIndex = 18 Me.cbboxNRArbeitgeber.TabIndex = 20
Me.cbboxNRArbeitgeber.Table = Nothing Me.cbboxNRArbeitgeber.Table = Nothing
Me.cbboxNRArbeitgeber.TableAlias = "" Me.cbboxNRArbeitgeber.TableAlias = ""
Me.cbboxNRArbeitgeber.Valuemember = Nothing Me.cbboxNRArbeitgeber.Valuemember = Nothing
@@ -589,10 +594,10 @@ Partial Class PatientDetails
' '
Me.cbboxNrGeschlecht.Dataselection = Nothing Me.cbboxNrGeschlecht.Dataselection = Nothing
Me.cbboxNrGeschlecht.Displaymember = Nothing Me.cbboxNrGeschlecht.Displaymember = Nothing
Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 381) Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 405)
Me.cbboxNrGeschlecht.Name = "cbboxNrGeschlecht" Me.cbboxNrGeschlecht.Name = "cbboxNrGeschlecht"
Me.cbboxNrGeschlecht.Size = New System.Drawing.Size(162, 21) Me.cbboxNrGeschlecht.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrGeschlecht.TabIndex = 14 Me.cbboxNrGeschlecht.TabIndex = 16
Me.cbboxNrGeschlecht.Table = Nothing Me.cbboxNrGeschlecht.Table = Nothing
Me.cbboxNrGeschlecht.TableAlias = "" Me.cbboxNrGeschlecht.TableAlias = ""
Me.cbboxNrGeschlecht.Valuemember = Nothing Me.cbboxNrGeschlecht.Valuemember = Nothing
@@ -604,7 +609,7 @@ Partial Class PatientDetails
Me.cbboxSprache.Location = New System.Drawing.Point(342, 65) Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
Me.cbboxSprache.Name = "cbboxSprache" Me.cbboxSprache.Name = "cbboxSprache"
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21) Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 17 Me.cbboxSprache.TabIndex = 19
Me.cbboxSprache.Table = Nothing Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = "" Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing Me.cbboxSprache.Valuemember = Nothing
@@ -616,7 +621,7 @@ Partial Class PatientDetails
Me.cbboxStatus.Location = New System.Drawing.Point(342, 38) Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
Me.cbboxStatus.Name = "cbboxStatus" Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21) Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 16 Me.cbboxStatus.TabIndex = 18
Me.cbboxStatus.Table = Nothing Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = "" Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing Me.cbboxStatus.Valuemember = Nothing
@@ -628,7 +633,7 @@ Partial Class PatientDetails
Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65) Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
Me.cbboxNRTitel.Name = "cbboxNRTitel" Me.cbboxNRTitel.Name = "cbboxNRTitel"
Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21) Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
Me.cbboxNRTitel.TabIndex = 1 Me.cbboxNRTitel.TabIndex = 2
Me.cbboxNRTitel.Table = Nothing Me.cbboxNRTitel.Table = Nothing
Me.cbboxNRTitel.TableAlias = "" Me.cbboxNRTitel.TableAlias = ""
Me.cbboxNRTitel.Valuemember = Nothing Me.cbboxNRTitel.Valuemember = Nothing
@@ -640,15 +645,63 @@ Partial Class PatientDetails
Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38) Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
Me.cbboxNrAnrede.Name = "cbboxNrAnrede" Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21) Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrAnrede.TabIndex = 0 Me.cbboxNrAnrede.TabIndex = 1
Me.cbboxNrAnrede.Table = Nothing Me.cbboxNrAnrede.Table = Nothing
Me.cbboxNrAnrede.TableAlias = "" Me.cbboxNrAnrede.TableAlias = ""
Me.cbboxNrAnrede.Valuemember = Nothing Me.cbboxNrAnrede.Valuemember = Nothing
' '
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(3, 225)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 208
Me.Label3.Text = "Kanton"
'
'cbtxtboxKanton
'
Me.cbtxtboxKanton.FormattingEnabled = True
Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
Me.cbtxtboxKanton.Location = New System.Drawing.Point(74, 221)
Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
Me.cbtxtboxKanton.TabIndex = 9
'
'lblGLN
'
Me.lblGLN.AutoSize = True
Me.lblGLN.BackColor = System.Drawing.Color.Transparent
Me.lblGLN.Location = New System.Drawing.Point(272, 174)
Me.lblGLN.Name = "lblGLN"
Me.lblGLN.Size = New System.Drawing.Size(56, 13)
Me.lblGLN.TabIndex = 210
Me.lblGLN.Text = "GLN/ZSR"
'
'txtGLN
'
Me.txtGLN.Location = New System.Drawing.Point(342, 171)
Me.txtGLN.Name = "txtGLN"
Me.txtGLN.Size = New System.Drawing.Size(107, 20)
Me.txtGLN.TabIndex = 23
'
'txtZSR
'
Me.txtZSR.Location = New System.Drawing.Point(455, 171)
Me.txtZSR.Name = "txtZSR"
Me.txtZSR.Size = New System.Drawing.Size(49, 20)
Me.txtZSR.TabIndex = 24
'
'PatientDetails 'PatientDetails
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.txtZSR)
Me.Controls.Add(Me.txtGLN)
Me.Controls.Add(Me.lblGLN)
Me.Controls.Add(Me.cbtxtboxKanton)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cbboxNRArbeitgeber) Me.Controls.Add(Me.cbboxNRArbeitgeber)
Me.Controls.Add(Me.cbboxNrGeschlecht) Me.Controls.Add(Me.cbboxNrGeschlecht)
Me.Controls.Add(Me.cbboxSprache) Me.Controls.Add(Me.cbboxSprache)
@@ -711,7 +764,7 @@ Partial Class PatientDetails
Me.Controls.Add(Me.lblAnrede) Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.lblTitel) Me.Controls.Add(Me.lblTitel)
Me.Name = "PatientDetails" Me.Name = "PatientDetails"
Me.Size = New System.Drawing.Size(737, 439) Me.Size = New System.Drawing.Size(737, 461)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -777,5 +830,9 @@ Partial Class PatientDetails
Friend WithEvents cbboxSprache As DPM2016.MyCombobox Friend WithEvents cbboxSprache As DPM2016.MyCombobox
Friend WithEvents cbboxNrGeschlecht As DPM2016.MyCombobox Friend WithEvents cbboxNrGeschlecht As DPM2016.MyCombobox
Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
Friend WithEvents Label3 As Label
Friend WithEvents cbtxtboxKanton As ComboBox
Friend WithEvents lblGLN As Label
Friend WithEvents txtGLN As TextBox
Friend WithEvents txtZSR As TextBox
End Class End Class

28
DPM2016/Patient/PatientDetails.vb
View File

@@ -16,6 +16,7 @@ Public Class PatientDetails
Get_Data() Get_Data()
log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information) log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
AddChanges(Me) AddChanges(Me)
Me.cbboxNrAnrede.Select()
Me.HasChanges = False Me.HasChanges = False
Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr) Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
@@ -266,6 +267,19 @@ Public Class PatientDetails
Exit For Exit For
End If End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim ct As ComboBox
Dim o As Object = Ctl
Try
o.text = r(c.ColumnName)
Catch
o.Text = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information) log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim dt As DateTimePicker Dim dt As DateTimePicker
@@ -358,6 +372,16 @@ Public Class PatientDetails
End Try End Try
Exit For Exit For
End If End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
r(c.ColumnName) = o.text
Catch ex As Exception
r(c.ColumnName) = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker Dim dt As DateTimePicker
dt = Ctl dt = Ctl
@@ -439,8 +463,8 @@ Public Class PatientDetails
If alt <> neu Then Me.txtBriefanrede.Text = neu If alt <> neu Then Me.txtBriefanrede.Text = neu
End Sub End Sub
Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave 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) If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
End Sub End Sub
End Class End Class

134
DPM2016/Reporting/frmReportView.vb
View File

@@ -1,7 +1,7 @@
Public Class frmReportView Public Class frmReportView
Dim splitter() As String Dim splitter() As String
Dim WithEvents freport As New FastReport.Report Dim WithEvents freport As FastReport.Report
Dim ReportNr As Integer Dim ReportNr As Integer
Dim Design As Boolean Dim Design As Boolean
Dim Parameter As String Dim Parameter As String
@@ -28,11 +28,12 @@
Dim dbr As DataRow = paramdaten.NewRow Dim dbr As DataRow = paramdaten.NewRow
Dim db As New clsDB Dim db As New clsDB
Public Sub Fakturierung(ByVal reportnr As Integer, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer) Public Sub Fakturierung(ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0)
Me.ReportNr = reportnr Me.ReportNr = reportnr
Me.Parameter = Parameter Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung Me.NrBehandlung = nrbehandlung
Print_Rechnung(False, False, rate) Print_Rechnung(False, False, rate, kopie, fakturanr)
If kopie = 1 Then Exit Sub
rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100) rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub End Sub
@@ -40,9 +41,15 @@
db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag) db.Rechnung_buchen(1, daten.Tables("esdaten").Rows(0).Item("fakturanr"), rate, daten.Tables("behandlungsdaten").Rows(0).Item("nrbehandlung"), Betrag)
End Sub 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 Public Sub Print_Rechnung(Optional vorschaue As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0)
If Rate > 1 Then ReportNr = ReportNr + 1 If Rate > 1 Then ReportNr = ReportNr + 1
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
freport = New FastReport.Report
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter) Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME) db.Get_RptDatei((Me.ReportNr), FILENAME)
@@ -52,6 +59,7 @@
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(0).TableName = "Daten" daten.Tables(0).TableName = "Daten"
@@ -63,64 +71,113 @@
dbr = paramdaten.NewRow dbr = paramdaten.NewRow
paramdaten.Columns.Add("Paramname") paramdaten.Columns.Add("Paramname")
paramdaten.Columns.Add("Paramvalue") paramdaten.Columns.Add("Paramvalue")
dbr(0) = "@behandlungsnr" dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow dbr = paramdaten.NewRow
dbr(0) = "@typ" dbr(0) = "@typ"
dbr(1) = "2" dbr(1) = "2"
paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten) db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Behandlungsdaten" daten.Tables(daten.Tables.Count - 1).TableName = "Behandlungsdaten"
' Leistungen ' Leistungen
'daten.Tables.Clear() paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
'dbr = paramdaten.NewRow
'paramdaten.Columns.Add("Paramname")
'paramdaten.Columns.Add("Paramvalue")
dbr(0) = "@behandlungsnr" dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung dbr(1) = Me.NrBehandlung
'paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
'dbr = paramdaten.NewRow dbr = paramdaten.NewRow
dbr(0) = "@typ" dbr(0) = "@typ"
dbr(1) = "3" dbr(1) = "3"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
'paramdaten.Rows.Add(dbr) 'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten) db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen" daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen"
paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
dbr(0) = "@behandlungsnr" dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung dbr(1) = Me.NrBehandlung
'paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
'dbr = paramdaten.NewRow dbr = paramdaten.NewRow
dbr(0) = "@typ" dbr(0) = "@typ"
dbr(1) = "4" dbr(1) = "4"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
'paramdaten.Rows.Add(dbr) 'paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten) db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_LR" daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_LR"
get_esdaten(Rate) paramdaten.Rows.Clear()
dbr = paramdaten.NewRow
dbr(0) = "@behandlungsnr"
dbr(1) = Me.NrBehandlung
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@typ"
dbr(1) = "5"
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = Fakturanr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar"
get_esdaten(Rate, kopie, Fakturanr)
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten" daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten"
freport.RegisterData(daten) freport.RegisterData(daten)
'freport.GetDataSource("Daten").Enabled = True
freport.GetDataSource("Behandlungsdaten").Enabled = True freport.GetDataSource("Behandlungsdaten").Enabled = True
freport.GetDataSource("Leistungen").Enabled = True freport.GetDataSource("Leistungen").Enabled = True
freport.GetDataSource("Leistungen_LR").Enabled = True freport.GetDataSource("Leistungen_LR").Enabled = True
freport.GetDataSource("Leistungen_Dentotar").Enabled = True
freport.GetDataSource("ESDaten").Enabled = True freport.GetDataSource("ESDaten").Enabled = True
freport.PrintSettings.ShowDialog = True freport.PrintSettings.ShowDialog = True
If design = True Then If design = True Then
Dim ReportDate As DateTime = System.IO.File.GetLastWriteTime(FILENAME) Dim ReportDate As DateTime = System.IO.File.GetLastWriteTime(FILENAME)
freport.Design() freport.Design()
@@ -132,25 +189,36 @@
If vorschaue = True Then If vorschaue = True Then
freport.Preview = Me.previewControl1 freport.Preview = Me.previewControl1
freport.Show() freport.Show()
End If End If
If vorschaue = False And design = False Then If vorschaue = False And design = False Then
freport.PrintSettings.Printer = "Microsoft Print to PDF" Dim printer As New clsPrinter
Dim printername As String
Dim papierschacht As String
printer.Get_Printersettings(ReportNr, printername, papierschacht)
freport.PrintSettings.Printer = printername
Try
freport.PrintSettings.PaperSource = papierschacht
Catch
End Try
freport.PrintSettings.ShowDialog = False freport.PrintSettings.ShowDialog = False
freport.Print() freport.Print()
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss_" + Me.NrBehandlung.ToString + ".pdf") Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss_" + Me.NrBehandlung.ToString + ".pdf")
Dim pdfExport As New FastReport.Export.Pdf.PDFExport() 'Dim pdfExport As New FastReport.Export.Pdf.PDFExport()
pdfExport.ShowProgress = False 'pdfExport.ShowProgress = False
pdfExport.Subject = "Export" 'pdfExport.Subject = "Export"
pdfExport.Title = "Export" 'pdfExport.Title = "Export"
pdfExport.Compressed = False 'pdfExport.Compressed = False
pdfExport.AllowPrint = True 'pdfExport.AllowPrint = True
pdfExport.EmbeddingFonts = True 'pdfExport.EmbeddingFonts = True
freport.Export(pdfExport, s) 'freport.Export(pdfExport, s)
End If End If
End Sub End Sub
Private Sub get_esdaten(ratenr As Integer) Private Sub get_esdaten(ratenr As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0)
'ES-Daten auselsen 'ES-Daten auselsen
paramdaten.Rows.Clear() paramdaten.Rows.Clear()
@@ -170,6 +238,14 @@
dbr(0) = "@rate" dbr(0) = "@rate"
dbr(1) = ratenr dbr(1) = ratenr
paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@kopie"
dbr(1) = kopie
paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@ifakturanr"
dbr(1) = fakturanr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten) db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
Dim Referenznr As String Dim Referenznr As String

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

@@ -23,6 +23,22 @@ Partial Class frmAuswertungen
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertungen)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertungen))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -31,9 +47,16 @@ Partial Class frmAuswertungen
Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'MenuStrip1 'MenuStrip1
@@ -55,11 +78,12 @@ Partial Class frmAuswertungen
'SchliessenToolStripMenuItem 'SchliessenToolStripMenuItem
' '
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem" Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.SchliessenToolStripMenuItem.Text = "Schliessen" Me.SchliessenToolStripMenuItem.Text = "Schliessen"
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton6})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(772, 25) Me.ToolStrip1.Size = New System.Drawing.Size(772, 25)
@@ -79,7 +103,7 @@ Partial Class frmAuswertungen
Me.C1Auswertungen.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.C1Auswertungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Auswertungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Auswertungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Auswertungen.PreviewInfo.ZoomFactor = 75.0R Me.C1Auswertungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Auswertungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1Auswertungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Auswertungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Auswertungen.Size = New System.Drawing.Size(772, 400) Me.C1Auswertungen.Size = New System.Drawing.Size(772, 400)
Me.C1Auswertungen.TabIndex = 17 Me.C1Auswertungen.TabIndex = 17
Me.C1Auswertungen.Text = "C1TrueDBGrid1" Me.C1Auswertungen.Text = "C1TrueDBGrid1"
@@ -89,29 +113,112 @@ Partial Class frmAuswertungen
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(153, 48) Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26)
' '
'BearbeitenToolStripMenuItem 'BearbeitenToolStripMenuItem
' '
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem" Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten" Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
' '
'C1TrueDBDropdown1
'
Me.C1TrueDBDropdown1.AllowColMove = True
Me.C1TrueDBDropdown1.AllowColSelect = True
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown1.AlternatingRows = False
Me.C1TrueDBDropdown1.CaptionStyle = Style1
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
Me.C1TrueDBDropdown1.EvenRowStyle = Style2
Me.C1TrueDBDropdown1.FetchRowStyles = False
Me.C1TrueDBDropdown1.FooterStyle = Style3
Me.C1TrueDBDropdown1.HeadingStyle = Style4
Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(157, 53)
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
Me.C1TrueDBDropdown1.OddRowStyle = Style6
Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
Me.C1TrueDBDropdown1.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown1.ScrollTips = False
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(328, 150)
Me.C1TrueDBDropdown1.Style = Style8
Me.C1TrueDBDropdown1.TabIndex = 18
Me.C1TrueDBDropdown1.Visible = False
Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag")
'
'C1TrueDBDropdown2
'
Me.C1TrueDBDropdown2.AllowColMove = True
Me.C1TrueDBDropdown2.AllowColSelect = True
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.C1TrueDBDropdown2.AlternatingRows = False
Me.C1TrueDBDropdown2.CaptionStyle = Style9
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
Me.C1TrueDBDropdown2.EvenRowStyle = Style10
Me.C1TrueDBDropdown2.FetchRowStyles = False
Me.C1TrueDBDropdown2.FooterStyle = Style11
Me.C1TrueDBDropdown2.HeadingStyle = Style12
Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(185, 90)
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
Me.C1TrueDBDropdown2.OddRowStyle = Style14
Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
Me.C1TrueDBDropdown2.RowDivider.Color = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.C1TrueDBDropdown2.ScrollTips = False
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(311, 150)
Me.C1TrueDBDropdown2.Style = Style16
Me.C1TrueDBDropdown2.TabIndex = 19
Me.C1TrueDBDropdown2.Visible = False
Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.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"
'
'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"
'
'frmAuswertungen 'frmAuswertungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(772, 449) Me.ClientSize = New System.Drawing.Size(772, 449)
Me.Controls.Add(Me.C1TrueDBDropdown2)
Me.Controls.Add(Me.C1TrueDBDropdown1)
Me.Controls.Add(Me.C1Auswertungen) Me.Controls.Add(Me.C1Auswertungen)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1 Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmAuswertungen" Me.Name = "frmAuswertungen"
Me.Text = "frmAuswertungen" Me.Text = "Auswertungen"
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -124,4 +231,8 @@ Partial Class frmAuswertungen
Friend WithEvents C1Auswertungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents C1Auswertungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton
End Class End Class

3623
DPM2016/Sysadmin/frmAuswertungen.resx
View File

File diff suppressed because it is too large Load Diff

39
DPM2016/Sysadmin/frmAuswertungen.vb
View File

@@ -1,4 +1,6 @@
Public Class frmAuswertungen Imports C1.Win.C1TrueDBGrid
Public Class frmAuswertungen
Dim db As New clsDB Dim db As New clsDB
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
@@ -9,9 +11,16 @@
Dim dt As New DataTable Dim dt As New DataTable
db.Get_Tabledata("Auswertung") db.Get_Tabledata("Auswertung")
dt = db.dsDaten.Tables(0).Copy dt = db.dsDaten.Tables(0).Copy
Me.C1Auswertungen.DataSource = dt Me.C1Auswertungen.DataSource = db.dsDaten.Tables(0)
Me.C1Auswertungen.DataMember = dt.TableName Me.C1Auswertungen.DataMember = db.dsDaten.Tables(0).TableName
Dim printer As New clsPrinter
printer.Get_Printers()
Me.C1TrueDBDropdown1.DataSource = printer.Printers
Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
Me.C1Auswertungen.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
End Sub End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
@@ -33,4 +42,28 @@
End Try End Try
End Sub End Sub
Private Sub C1Auswertungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Auswertungen.RowColChange
Me.C1TrueDBDropdown2.DataSource = Nothing
Dim printer As New clsPrinter
printer.Get_Papersources(Me.C1Auswertungen.Columns("Drucker").Value.ToString)
Me.C1TrueDBDropdown2.DataSource = printer.Papersources
Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
Me.C1Auswertungen.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Me.Close()
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
db.Update_Data()
MsgBox("Daten wurden gespeichert")
End Sub
End Class End Class

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

@@ -22,6 +22,7 @@ Partial Class frmStammdaten
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto") 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 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 TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
@@ -36,14 +37,19 @@ Partial Class frmStammdaten
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete") 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 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 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 TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz") Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15})
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp") Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine") Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp") Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode16, TreeNode17, TreeNode18, TreeNode19}) Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten") Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode17, TreeNode18, TreeNode19, TreeNode20})
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode21}) Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode22})
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode24, TreeNode25, TreeNode26})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -53,6 +59,8 @@ Partial Class frmStammdaten
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez() Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat() Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -113,23 +121,33 @@ Partial Class frmStammdaten
TreeNode13.Text = "Paketpositionen" TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar" TreeNode14.Name = "Dentotar"
TreeNode14.Text = "Dentotar" TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Knoten8" TreeNode15.Name = "Dentotar_Parameter"
TreeNode15.Text = "Tarif" TreeNode15.Text = "Dentotar_Parameter"
TreeNode16.Name = "Ansatz" TreeNode16.Name = "Knoten8"
TreeNode16.Text = "Ansatz" TreeNode16.Text = "Tarif"
TreeNode17.Name = "Abrtyp" TreeNode17.Name = "Ansatz"
TreeNode17.Text = "Abrechnungstyp" TreeNode17.Text = "Ansatz"
TreeNode18.Name = "ESTyp" TreeNode18.Name = "Abrtyp"
TreeNode18.Text = "Einmzahlungsscheine" TreeNode18.Text = "Abrechnungstyp"
TreeNode19.Name = "RGTyp" TreeNode19.Name = "ESTyp"
TreeNode19.Text = "Rechnungstyp" TreeNode19.Text = "Einmzahlungsscheine"
TreeNode20.Name = "Knoten14" TreeNode20.Name = "RGTyp"
TreeNode20.Text = "Abrechnung" TreeNode20.Text = "Rechnungstyp"
TreeNode21.Name = "Spalten" TreeNode21.Name = "Knoten14"
TreeNode21.Text = "Spalten" TreeNode21.Text = "Abrechnung"
TreeNode22.Name = "Diverse" TreeNode22.Name = "Auswertung"
TreeNode22.Text = "Diverse" TreeNode22.Text = "Auswertung"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode15, TreeNode20, TreeNode22}) TreeNode23.Name = "Reporting"
TreeNode23.Text = "Reporting"
TreeNode24.Name = "Spalten"
TreeNode24.Text = "Spalten"
TreeNode25.Name = "Options"
TreeNode25.Text = "Options"
TreeNode26.Name = "User"
TreeNode26.Text = "User"
TreeNode27.Name = "Diverse"
TreeNode27.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode23, TreeNode27})
Me.TreeView1.Size = New System.Drawing.Size(204, 425) Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1 Me.TreeView1.TabIndex = 1
' '
@@ -178,6 +196,16 @@ Partial Class frmStammdaten
Me.OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*" Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'frmStammdaten 'frmStammdaten
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -207,4 +235,6 @@ Partial Class frmStammdaten
Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class End Class

6
DPM2016/Sysadmin/frmStammdaten.resx
View File

@@ -163,6 +163,12 @@
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value> <value>239, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>381, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>538, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAkAAAAAAAEAIAAoIAQAlgAAAICAAAABACAAKAgBAL4gBABgYAAAAQAgAKiUAADmKAUASEgAAAEA AAABAAkAAAAAAAEAIAAoIAQAlgAAAICAAAABACAAKAgBAL4gBABgYAAAAQAgAKiUAADmKAUASEgAAAEA

1
DPM2016/Sysadmin/frmStammdaten.vb
View File

@@ -55,6 +55,7 @@ Public Class frmStammdaten
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll() Me.TreeView1.ExpandAll()
End Sub End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click

7
DPM2016/Utils/Globals.vb
View File

@@ -5,7 +5,14 @@ Module Globals
Public ActUser As Integer = 1 Public ActUser As Integer = 1
Public WithEvents EVH As New Generic_Event_Handler Public WithEvents EVH As New Generic_Event_Handler
Public OnLoad As Boolean = False Public OnLoad As Boolean = False
Public Mandant As Integer = 1
Public Auswertungsverzeicnis As String = "\Default"
Public Version As String = "1.0.1.1801"
Public Versionastaum As String = "31.01.2018"
Public LogedIn As Boolean = False
Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
Public encrypted As Boolean = False
Public Function Round5(ByVal inp As String) As String Public Function Round5(ByVal inp As String) As String
Dim Rappen5 As Double Dim Rappen5 As Double
Rappen5 = CDbl(inp) Rappen5 = CDbl(inp)

13
DPM2016/app.config
View File

@@ -1,8 +1,8 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.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"/> <section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<system.diagnostics> <system.diagnostics>
@@ -25,11 +25,9 @@
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> --> <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners> </sharedListeners>
</system.diagnostics> </system.diagnostics>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/></startup>
<userSettings> <userSettings>
<DPM2016.My.MySettings> <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"> <setting name="LogLevel" serializeAs="String">
<value>2</value> <value>2</value>
</setting> </setting>
@@ -39,6 +37,9 @@
<setting name="DocArchivPath" serializeAs="String"> <setting name="DocArchivPath" serializeAs="String">
<value>h:\dpm\docarchiv</value> <value>h:\dpm\docarchiv</value>
</setting> </setting>
<setting name="ConnectionString" serializeAs="String">
<value>data source=shu00;initial catalog=dpm2018;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting>
</DPM2016.My.MySettings> </DPM2016.My.MySettings>
</userSettings> </userSettings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration> </configuration>

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

Binary file not shown.

44
DPM2016/bin/Debug/DPM2016.exe.config
View File

@@ -1,44 +0,0 @@
<?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>

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

Binary file not shown.

191
DPM2016/bin/Debug/DPM2016.xml
View File

@@ -1,191 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DPM2016
</name>
</assembly>
<members>
<member name="T:DPM2016.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:DPM2016.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:DPM2016.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="M:DPM2016.Behandlung.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
</members>
</doc>

BIN
DPM2016/bin/Debug/Syncfusion.Core.dll
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Syncfusion.Shared.Base.dll
View File

Binary file not shown.

105
DPM2016/frmMain.Designer.vb generated
View File

@@ -22,35 +22,45 @@ Partial Class frmMain
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.mnuMain = New System.Windows.Forms.MenuStrip() Me.mnuMain = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.StammdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StammdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpaltentitelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SpaltentitelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StammdatenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.StammdatenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PatientToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PatientToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FirmenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PruefzifferToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PruefzifferToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.FinanzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FinanzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.RechnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MahnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MahnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FirmenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZahlungsdateiVerarbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.DruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SepaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuMain.SuspendLayout() Me.mnuMain.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'mnuMain 'mnuMain
' '
Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.FinanzenToolStripMenuItem}) Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.FinanzenToolStripMenuItem, Me.ToolStripMenuItem1, Me.DruckerToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.SepaToolStripMenuItem})
Me.mnuMain.Location = New System.Drawing.Point(0, 0) Me.mnuMain.Location = New System.Drawing.Point(0, 0)
Me.mnuMain.Name = "mnuMain" Me.mnuMain.Name = "mnuMain"
Me.mnuMain.Size = New System.Drawing.Size(1199, 24) Me.mnuMain.Size = New System.Drawing.Size(1325, 24)
Me.mnuMain.TabIndex = 0 Me.mnuMain.TabIndex = 0
Me.mnuMain.Text = "MenuStrip1" Me.mnuMain.Text = "MenuStrip1"
' '
'DateiToolStripMenuItem 'DateiToolStripMenuItem
' '
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem}) Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.AbmeldenToolStripMenuItem, Me.ToolStripMenuItem3})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem" Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20) Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei" Me.DateiToolStripMenuItem.Text = "&Datei"
@@ -58,9 +68,21 @@ Partial Class frmMain
'BeendenToolStripMenuItem 'BeendenToolStripMenuItem
' '
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem" Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22) Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden" Me.BeendenToolStripMenuItem.Text = "&Beenden"
' '
'AbmeldenToolStripMenuItem
'
Me.AbmeldenToolStripMenuItem.Name = "AbmeldenToolStripMenuItem"
Me.AbmeldenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
Me.AbmeldenToolStripMenuItem.Text = "Abmelden"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(183, 22)
Me.ToolStripMenuItem3.Text = "Datenbank wechseln"
'
'StammdatenToolStripMenuItem 'StammdatenToolStripMenuItem
' '
Me.StammdatenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpaltentitelToolStripMenuItem, Me.StammdatenToolStripMenuItem1, Me.AuswertungenToolStripMenuItem1}) Me.StammdatenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpaltentitelToolStripMenuItem, Me.StammdatenToolStripMenuItem1, Me.AuswertungenToolStripMenuItem1})
@@ -92,9 +114,15 @@ Partial Class frmMain
Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(56, 20) Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.PatientToolStripMenuItem.Text = "Patient" Me.PatientToolStripMenuItem.Text = "Patient"
' '
'FirmenToolStripMenuItem
'
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.FirmenToolStripMenuItem.Text = "&Firmen"
'
'AuswertungenToolStripMenuItem 'AuswertungenToolStripMenuItem
' '
Me.AuswertungenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PruefzifferToolStripMenuItem}) Me.AuswertungenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PruefzifferToolStripMenuItem, Me.AuswertungenToolStripMenuItem2})
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem" Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 20) Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 20)
Me.AuswertungenToolStripMenuItem.Text = "Auswertungen" Me.AuswertungenToolStripMenuItem.Text = "Auswertungen"
@@ -102,12 +130,20 @@ Partial Class frmMain
'PruefzifferToolStripMenuItem 'PruefzifferToolStripMenuItem
' '
Me.PruefzifferToolStripMenuItem.Name = "PruefzifferToolStripMenuItem" Me.PruefzifferToolStripMenuItem.Name = "PruefzifferToolStripMenuItem"
Me.PruefzifferToolStripMenuItem.Size = New System.Drawing.Size(128, 22) Me.PruefzifferToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.PruefzifferToolStripMenuItem.Text = "Pruefziffer" Me.PruefzifferToolStripMenuItem.Text = "Pruefziffer"
Me.PruefzifferToolStripMenuItem.Visible = False
'
'AuswertungenToolStripMenuItem2
'
Me.AuswertungenToolStripMenuItem2.Name = "AuswertungenToolStripMenuItem2"
Me.AuswertungenToolStripMenuItem2.Size = New System.Drawing.Size(151, 22)
Me.AuswertungenToolStripMenuItem2.Text = "Auswertungen"
Me.AuswertungenToolStripMenuItem2.Visible = False
' '
'FinanzenToolStripMenuItem 'FinanzenToolStripMenuItem
' '
Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.MahnungenToolStripMenuItem}) Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.MahnungenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ZahlungsdateiVerarbeitenToolStripMenuItem})
Me.FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem" Me.FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem"
Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(66, 20) Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(66, 20)
Me.FinanzenToolStripMenuItem.Text = "Finanzen" Me.FinanzenToolStripMenuItem.Text = "Finanzen"
@@ -115,27 +151,57 @@ Partial Class frmMain
'RechnungenToolStripMenuItem 'RechnungenToolStripMenuItem
' '
Me.RechnungenToolStripMenuItem.Name = "RechnungenToolStripMenuItem" Me.RechnungenToolStripMenuItem.Name = "RechnungenToolStripMenuItem"
Me.RechnungenToolStripMenuItem.Size = New System.Drawing.Size(141, 22) Me.RechnungenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungenToolStripMenuItem.Text = "Rechnungen" Me.RechnungenToolStripMenuItem.Text = "Rechnungen"
' '
'MahnungenToolStripMenuItem 'MahnungenToolStripMenuItem
' '
Me.MahnungenToolStripMenuItem.Name = "MahnungenToolStripMenuItem" Me.MahnungenToolStripMenuItem.Name = "MahnungenToolStripMenuItem"
Me.MahnungenToolStripMenuItem.Size = New System.Drawing.Size(141, 22) Me.MahnungenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.MahnungenToolStripMenuItem.Text = "Mahnungen" Me.MahnungenToolStripMenuItem.Text = "Mahnungen"
' '
'FirmenToolStripMenuItem 'ToolStripMenuItem2
' '
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem" Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 20) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(208, 6)
Me.FirmenToolStripMenuItem.Text = "&Firmen" '
'ZahlungsdateiVerarbeitenToolStripMenuItem
'
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Name = "ZahlungsdateiVerarbeitenToolStripMenuItem"
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Text = "Zahlungsdatei verarbeiten"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(12, 20)
'
'DruckerToolStripMenuItem
'
Me.DruckerToolStripMenuItem.Name = "DruckerToolStripMenuItem"
Me.DruckerToolStripMenuItem.Size = New System.Drawing.Size(60, 20)
Me.DruckerToolStripMenuItem.Text = "Drucker"
'
'EncryptToolStripMenuItem
'
Me.EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem"
Me.EncryptToolStripMenuItem.Size = New System.Drawing.Size(59, 20)
Me.EncryptToolStripMenuItem.Text = "Encrypt"
Me.EncryptToolStripMenuItem.Visible = False
'
'SepaToolStripMenuItem
'
Me.SepaToolStripMenuItem.Name = "SepaToolStripMenuItem"
Me.SepaToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.SepaToolStripMenuItem.Text = "Sepa"
' '
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1199, 742) Me.ClientSize = New System.Drawing.Size(1325, 793)
Me.Controls.Add(Me.mnuMain) Me.Controls.Add(Me.mnuMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.IsMdiContainer = True Me.IsMdiContainer = True
Me.MainMenuStrip = Me.mnuMain Me.MainMenuStrip = Me.mnuMain
Me.Name = "frmMain" Me.Name = "frmMain"
@@ -160,4 +226,13 @@ Partial Class frmMain
Friend WithEvents MahnungenToolStripMenuItem As ToolStripMenuItem Friend WithEvents MahnungenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AuswertungenToolStripMenuItem1 As ToolStripMenuItem Friend WithEvents AuswertungenToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents FirmenToolStripMenuItem As ToolStripMenuItem Friend WithEvents FirmenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents DruckerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
Friend WithEvents ZahlungsdateiVerarbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AuswertungenToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents AbmeldenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EncryptToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents SepaToolStripMenuItem As ToolStripMenuItem
End Class End Class

2622
DPM2016/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

114
DPM2016/frmMain.vb
View File

@@ -1,11 +1,13 @@
Public Class frmMain
Public Class frmMain
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close() Me.Close()
End Sub End Sub
Private Sub StammdatenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenToolStripMenuItem.Click Private Sub StammdatenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenToolStripMenuItem.Click
End Sub End Sub
Private Sub SpaltentitelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpaltentitelToolStripMenuItem.Click Private Sub SpaltentitelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpaltentitelToolStripMenuItem.Click
@@ -24,24 +26,58 @@
End Sub End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim db As New clsDB If check_db_connection() Then
db.Get_Spaltendata()
Globals.Spaltendaten = db.dsDaten.Tables(0)
PatientToolStripMenuItem_Click(sender, e) Dim db As New clsDB
db.Get_Spaltendata()
Globals.Spaltendaten = db.dsDaten.Tables(0)
If frmLogin.Check_User Then
PatientToolStripMenuItem_Click(sender, e)
Else
ActUser = -1
Dim f As New frmLogin
f.ShowDialog()
If ActUser = -1 Then Me.Close()
End If
End If
End Sub End Sub
Function check_db_connection() As Boolean
If System.IO.File.Exists(Application.StartupPath + "\Connectionstrings.cfg") Then
Dim f As New frmDBConnection
f.BringToFront()
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
My.Settings.ConnectionString = f.Connectionstring
Globals.Spaltendaten.Clear()
Globals.SQLStatements.Clear()
IntTables.Inttables.Tables.Clear()
IntTables.orte.Clear()
Return True
Else
Return False
End If
Else
Return True
End If
End Function
Private Sub PatientToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PatientToolStripMenuItem.Click Private Sub PatientToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PatientToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New Patient Dim f As New Patient
f.MdiParent = Me f.MdiParent = Me
f.Show() f.Show()
Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click
Dim rpt As New frmReportauswahl Dim f As New frmAuswertung
rpt.MdiParent = Me f.MdiParent = Me
rpt.Show() f.Show()
End Sub End Sub
Private Sub PruefzifferToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PruefzifferToolStripMenuItem.Click Private Sub PruefzifferToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PruefzifferToolStripMenuItem.Click
@@ -106,4 +142,62 @@
f.MdiParent = Me f.MdiParent = Me
f.Show() f.Show()
End Sub End Sub
Private Sub DruckerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckerToolStripMenuItem.Click
Dim f As New frmPrinterselect
f.MdiParent = Me
f.Show()
End Sub
Private Sub ZahlungsdateiVerarbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungsdateiVerarbeitenToolStripMenuItem.Click
Dim f As New frmZahlung
f.MdiParent = Me
f.Show()
End Sub
Private Sub AuswertungenToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem2.Click
Dim f As New frmAuswertung
f.MdiParent = Me
f.Show()
End Sub
Private Sub AbmeldenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbmeldenToolStripMenuItem.Click
If MsgBox("Möchten Sie sich abmelden?", vbYesNo + vbQuestion) = vbYes Then
Globals.LogedIn = False
While Globals.LogedIn = False
Dim f As New frmLogin
f.ShowDialog()
End While
End If
End Sub
Private Sub EncryptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EncryptToolStripMenuItem.Click
Dim db As New clsDB
db.Get_Tabledata("Privat")
For Each r As DataRow In db.dsDaten.Tables(0).Rows
r("Name") = Crypto.EncryptText(r("Name"), encryptkey)
r("Vorname") = Crypto.EncryptText(r("Vorname"), encryptkey)
r("Strasse") = Crypto.EncryptText(r("Strasse"), encryptkey)
r("PLZ") = Crypto.EncryptText(r("PLZ"), encryptkey)
r("Ort") = Crypto.EncryptText(r("Ort"), encryptkey)
r("Telp") = Crypto.EncryptText(r("Telp"), encryptkey)
Next
db.Update_Data()
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
For Each frm As Form In Me.MdiChildren
frm.Close()
Next
frmMain_Load(sender, e)
End Sub
Private Sub SepaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SepaToolStripMenuItem.Click
End Sub
End Class End Class

2
DPM2016/obj/Debug/CoreCompileInputs.cache
View File

@@ -1 +1 @@
a28382a85791eb9a8423564ac25fab169f00dc0b 5a6f41365c32419caba70dfcf71a6d6eaa80359d

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.exe
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

BIN
DPM2016/obj/Debug/DPM2016.pdb
View File

Binary file not shown.

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

@@ -1,9 +1,33 @@
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Behandlung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Benhandungdetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Leistungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrivatSelect.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmprogress.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFakturierung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmOffeneBehandlungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Finanzen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirma.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirmaAP.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmMain.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Krankengeschichte.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Patient.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.PatientAbrechnung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.PatientDetails.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Recall.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmReportauswahl.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmReportView.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrinterselect.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmStammdaten.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_Bez.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_flat.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Resources.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSysadminTableSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmZahlung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.Cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1.mdf E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1.mdf
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1_log.ldf E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1_log.ldf
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2016.exe.config
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2016.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2016.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2016.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.dll
@@ -11,42 +35,42 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Bars.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Bars.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Editor.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FastReport.Editor.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Core.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FlexCel.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\XLSLib.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\XLSLib.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\FlexCel.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.pdb E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.xml E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.xml E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar2.xml E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.pdb E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.xml E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Behandlung.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Form2.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Benhandungdetail.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetail.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Leistungen.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmPrivatSelect.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Finanzen.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmMain.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Krankengeschichte.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Patient.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSplash.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.PatientAbrechnung.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.SplashForm.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.PatientDetails.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Charts.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmReportauswahl.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLogin.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmReportView.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Command.4.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmStammdaten.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Input.4.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_Bez.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Command.4.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_flat.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Input.4.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Resources.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSysadminTableSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.Cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.exe.licenses
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFakturierung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbprojResolveAssemblyReference.cache E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmprogress.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDBConnection.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirma.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.exe.config
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirmaAP.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe.licenses
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDentotarDetails.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\TCDev.SEPA.dll

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

Binary file not shown.

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

Binary file not shown.

191
DPM2016/obj/Debug/DPM2016.xml
View File

@@ -1,191 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
DPM2016
</name>
</assembly>
<members>
<member name="T:DPM2016.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:DPM2016.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:DPM2016.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="M:DPM2016.Behandlung.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Behandlung.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.Benhandungdetail.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientAbrechnung.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.Check_Changes">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.
</summary>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.AddChanges(System.Windows.Forms.Control)">
<summary>
Allg Eventhandler für Chanage-Ereignise festlegen
</summary>
<param name="Container"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.ChangesMade(System.Object,System.EventArgs)">
<summary>
Envent-Handler für Change-Ereignisse
</summary>
<param name="sender"></param>
<param name="e"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.PatientDetails.GetControl(System.Windows.Forms.Control,System.String,System.Collections.Generic.List{System.Windows.Forms.Control}@,System.Boolean)">
<summary>
Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
die gefundnen Controls in der Liste L zur weiteren Bearbeitung
</summary>
<param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
<param name="Key">Schlüssel welcher gesucht werden soll</param>
<param name="L">Liste der gefundenen Objekte</param>
<returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
</returns>
<remarks></remarks>
</member>
</members>
</doc>

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

BIN
DPM2016/obj/Debug/dpm2016.exe.licenses
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

1
Datenmigration.txt
View File

@@ -5,6 +5,7 @@ Traif: SSO-Nummer -> SSO_Nummer
Tarif: SSO_Nummer -> INT -> Varchar(50) Tarif: SSO_Nummer -> INT -> Varchar(50)
Firma: E-Mail -> E_Mail Firma: E-Mail -> E_Mail
Privat: E-Mail -> E_Mail Privat: E-Mail -> E_Mail
GLN bei Privat und Firma
Views Views
Stored Proc Stored Proc

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

Binary file not shown.

BIN
_FRReporting/obj/Release/TempPE/My Project.Resources.Designer.vb.dll
View File

Binary file not shown.