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
# Visual Studio 2013
VisualStudioVersion = 12.0.40629.0
# Visual Studio 15
VisualStudioVersion = 15.0.26228.4
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
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.tsbtnnewbehandlung = 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.treebehandlungen = New DevComponents.AdvTree.AdvTree()
Me.ctxmenubehandlung = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
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.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node2 = New DevComponents.AdvTree.Node()
@@ -49,18 +53,16 @@ Partial Class Behandlung
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -77,10 +79,10 @@ Partial Class Behandlung
'
'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.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.Text = "ToolStrip1"
'
@@ -102,13 +104,22 @@ Partial Class Behandlung
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(23, 22)
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
'
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(220, 558)
Me.GroupBox1.Size = New System.Drawing.Size(220, 813)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen"
@@ -137,16 +148,16 @@ Partial Class Behandlung
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
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.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1"
'
'ctxmenubehandlung
'
Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1})
Me.ctxmenubehandlung.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.Size = New System.Drawing.Size(210, 104)
Me.ctxmenubehandlung.Size = New System.Drawing.Size(210, 148)
'
'NeueBehandlungToolStripMenuItem1
'
@@ -154,12 +165,28 @@ Partial Class Behandlung
Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(206, 6)
'
'BehandlungabschliessenToolStripMenuItem1
'
Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
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
'
Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
@@ -247,15 +274,15 @@ Partial Class Behandlung
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(220, 25)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(830, 558)
Me.SuperTabControl1.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.TabIndex = 9
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.Location = New System.Drawing.Point(0, 25)
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.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(830, 533)
Me.Panel2.Size = New System.Drawing.Size(1062, 788)
Me.Panel2.TabIndex = 9
'
'Behandungdetail1
@@ -288,7 +314,7 @@ Partial Class Behandlung
Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(627, 642)
Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
Me.Behandungdetail1.TabIndex = 0
'
'STBehandlung
@@ -298,21 +324,13 @@ Partial Class Behandlung
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(830, 558)
Me.SuperTabControlPanel3.TabIndex = 0
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(830, 533)
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(988, 788)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.STLeistung
'
@@ -322,7 +340,7 @@ Partial Class Behandlung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(830, 533)
Me.Panel1.Size = New System.Drawing.Size(988, 788)
Me.Panel1.TabIndex = 1
'
'Leistungen1
@@ -330,11 +348,12 @@ Partial Class Behandlung
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(830, 533)
Me.Leistungen1.Size = New System.Drawing.Size(988, 788)
Me.Leistungen1.TabIndex = 0
'
'STLeistung
@@ -344,6 +363,14 @@ Partial Class Behandlung
Me.STLeistung.Name = "STLeistung"
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
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -377,21 +404,11 @@ Partial Class Behandlung
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
'
'BehandlungZurücksetzenToolStripMenuItem
'KopieErstellenToolStripMenuItem
'
Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem"
Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(206, 6)
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(206, 6)
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.KopieErstellenToolStripMenuItem.Text = "Kopie erstellen"
'
'Behandlung
'
@@ -401,7 +418,7 @@ Partial Class Behandlung
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.tsbtndelete)
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.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
@@ -457,4 +474,6 @@ Partial Class Behandlung
Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
Friend WithEvents BehandlungZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents KopieErstellenToolStripMenuItem As ToolStripMenuItem
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
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaQdFf3Y+sP3f/sDqf9gm8Q8gMRgG
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwAsbvzUSNPIp4AAAAASUVORK5CYII=
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<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
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
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>
</data>
<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
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAATABAgEwAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DQAAAk1TRnQBSQFMAgEBBQEAAYABAgGAAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

453
DPM2016/Behandlung/Behandlung.vb
View File

@@ -188,7 +188,6 @@ Public Class Behandlung
End Function
#End Region
#Region "Daten_Laden"
@@ -331,6 +330,270 @@ Public Class Behandlung
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
If Me.PatientNr = patientnr Then
Dim tn As DevComponents.AdvTree.Node
@@ -362,133 +625,85 @@ Public Class Behandlung
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
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
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")
Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs)
Neue_Behandlung(4)
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Get_Behandlungen()
End Sub
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click
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
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()
Dim fakturanr As Integer
Try
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey)
Me.nodeselected()
Catch ex As Exception
End Try
End Sub
Private Sub tsbtndeletebehandlung_Click(sender As Object, e As EventArgs) Handles tsbtndeletebehandlung.Click
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion, "Behandlung löschen") = MsgBoxResult.Yes Then
Dim db As New clsDB
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = 0
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
End If
End Sub
Private Sub BehandlungAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungAbschliessenToolStripMenuItem.Click
End Sub
Private Sub NeueBehandlungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeueBehandlungToolStripMenuItem1.Click
Me.tsbtnnewbehandlung_Click(sender, e)
End Sub
Private Sub BehandlungLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungLöschenToolStripMenuItem1.Click
Me.tsbtndeletebehandlung_Click(sender, e)
End Sub
Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click
Me.Behandungdetail1.Save_Data()
Dim db As New clsDB
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
db.dsDaten.Tables(0).Rows(0).Item("Status") = 2
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, key, key)
Me.nodeselected()
End Sub
Private Sub tsbtndelete_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles tsbtndelete.ItemClicked
End Sub
Private Sub ctxmenubehandlung_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenubehandlung.Opening
Try
Dim i As Integer = Me.treebehandlungen.SelectedNode.Parent.Tag
Me.ctxmenubehandlung.Enabled = True
Select Case i
Case -11
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = True
Case -12
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Case -13
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
End Select
Select Case i
Case > -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Behandlung"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen"
Case < -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
End Select
DB.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
fakturanr = DB.dsDaten.Tables(0).Rows(0).Item(0)
Catch
Me.ctxmenubehandlung.Enabled = False
fakturanr = 0
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 Region
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.Label2 = New System.Windows.Forms.Label()
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.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.lblAnsprechpartner = New System.Windows.Forms.Label()
@@ -93,12 +105,20 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton()
Me.VorschaRechnungToolStripMenuItem = 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.cbboxrgtext = New DPM2016.MyCombobox()
Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
Me.lblDiagnose = New System.Windows.Forms.Label()
Me.txtDiagnose = New System.Windows.Forms.TextBox()
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.grpZusammenfassugn.SuspendLayout()
Me.GrpGaramt.SuspendLayout()
CType(Me.DDTDatum_Kostengutsprache, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DDTUnfalldatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpRaten.SuspendLayout()
CType(Me.txtAnzahlraten, 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()
Me.ToolStrip1.SuspendLayout()
Me.GrpRechnungstext.SuspendLayout()
Me.grpglndiagnose.SuspendLayout()
Me.SuspendLayout()
'
'GrpPatient
@@ -134,7 +155,7 @@ Partial Class Benhandungdetail
Me.cbboxNRESTyp.Location = New System.Drawing.Point(72, 52)
Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
Me.cbboxNRESTyp.Size = New System.Drawing.Size(216, 21)
Me.cbboxNRESTyp.TabIndex = 22
Me.cbboxNRESTyp.TabIndex = 1
Me.cbboxNRESTyp.Table = Nothing
Me.cbboxNRESTyp.TableAlias = ""
Me.cbboxNRESTyp.Valuemember = Nothing
@@ -144,9 +165,9 @@ Partial Class Benhandungdetail
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(6, 56)
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.Text = "Einzahlung"
Me.Label6.Text = "Formulartyp"
'
'cbboxnrbehandler
'
@@ -155,7 +176,7 @@ Partial Class Benhandungdetail
Me.cbboxnrbehandler.Location = New System.Drawing.Point(72, 24)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(216, 21)
Me.cbboxnrbehandler.TabIndex = 20
Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
@@ -308,6 +329,18 @@ Partial Class Benhandungdetail
'
'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.cbboxNrAnsprechpartner)
Me.GrpGaramt.Controls.Add(Me.lblAnsprechpartner)
@@ -322,15 +355,197 @@ Partial Class Benhandungdetail
Me.GrpGaramt.Controls.Add(Me.rbversicherung)
Me.GrpGaramt.Location = New System.Drawing.Point(312, 283)
Me.GrpGaramt.Name = "GrpGaramt"
Me.GrpGaramt.Size = New System.Drawing.Size(299, 222)
Me.GrpGaramt.Size = New System.Drawing.Size(299, 261)
Me.GrpGaramt.TabIndex = 14
Me.GrpGaramt.TabStop = False
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
'
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.Size = New System.Drawing.Size(62, 13)
Me.lblFallNummer.TabIndex = 32
@@ -340,10 +555,10 @@ Partial Class Benhandungdetail
'
Me.cbboxNrAnsprechpartner.Dataselection = 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.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsprechpartner.TabIndex = 31
Me.cbboxNrAnsprechpartner.TabIndex = 7
Me.cbboxNrAnsprechpartner.Table = Nothing
Me.cbboxNrAnsprechpartner.TableAlias = ""
Me.cbboxNrAnsprechpartner.Valuemember = Nothing
@@ -351,7 +566,7 @@ Partial Class Benhandungdetail
'lblAnsprechpartner
'
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.Size = New System.Drawing.Size(85, 13)
Me.lblAnsprechpartner.TabIndex = 30
@@ -359,19 +574,19 @@ Partial Class Benhandungdetail
'
'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.Size = New System.Drawing.Size(196, 20)
Me.txtFallnummer.TabIndex = 29
Me.txtFallnummer.TabIndex = 8
'
'cbboxNrGarant
'
Me.cbboxNrGarant.Dataselection = 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.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrGarant.TabIndex = 28
Me.cbboxNrGarant.TabIndex = 6
Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing
@@ -379,7 +594,7 @@ Partial Class Benhandungdetail
'lblgarant
'
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.Size = New System.Drawing.Size(39, 13)
Me.lblgarant.TabIndex = 27
@@ -388,7 +603,7 @@ Partial Class Benhandungdetail
'rbPrivatPersonen
'
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.Size = New System.Drawing.Size(100, 17)
Me.rbPrivatPersonen.TabIndex = 5
@@ -399,7 +614,7 @@ Partial Class Benhandungdetail
'rbkk
'
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.Size = New System.Drawing.Size(93, 17)
Me.rbkk.TabIndex = 4
@@ -410,7 +625,7 @@ Partial Class Benhandungdetail
'rbdiverseFirmen
'
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.Size = New System.Drawing.Size(95, 17)
Me.rbdiverseFirmen.TabIndex = 3
@@ -421,7 +636,7 @@ Partial Class Benhandungdetail
'rbiv
'
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.Size = New System.Drawing.Size(64, 17)
Me.rbiv.TabIndex = 2
@@ -432,7 +647,7 @@ Partial Class Benhandungdetail
'rbfs
'
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.Size = New System.Drawing.Size(83, 17)
Me.rbfs.TabIndex = 1
@@ -443,7 +658,7 @@ Partial Class Benhandungdetail
'rbversicherung
'
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.Size = New System.Drawing.Size(87, 17)
Me.rbversicherung.TabIndex = 0
@@ -481,7 +696,7 @@ Partial Class Benhandungdetail
Me.txtAnzahlraten.NumberDecimalDigits = 0
Me.txtAnzahlraten.Size = New System.Drawing.Size(61, 20)
Me.txtAnzahlraten.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.txtAnzahlraten.TabIndex = 32
Me.txtAnzahlraten.TabIndex = 0
Me.txtAnzahlraten.Text = "0"
Me.txtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
@@ -497,7 +712,7 @@ Partial Class Benhandungdetail
Me.mtxtRatenzuschlag.NullString = ""
Me.mtxtRatenzuschlag.Size = New System.Drawing.Size(61, 20)
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.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
@@ -506,7 +721,7 @@ Partial Class Benhandungdetail
Me.xxtxtAnzahlraten.Location = New System.Drawing.Point(173, 51)
Me.xxtxtAnzahlraten.Name = "xxtxtAnzahlraten"
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
'
'chkUngeraterateamstart
@@ -533,7 +748,7 @@ Partial Class Benhandungdetail
Me.Label3.Location = New System.Drawing.Point(173, 20)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(129, 13)
Me.Label3.TabIndex = 28
Me.Label3.TabIndex = 1
Me.Label3.Text = "Erste Rate mit ungeradem"
'
'lblZuschlagRaten
@@ -614,7 +829,7 @@ Partial Class Benhandungdetail
Me.DDTRGStellung.Name = "DDTRGStellung"
Me.DDTRGStellung.Size = New System.Drawing.Size(162, 20)
Me.DDTRGStellung.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTRGStellung.TabIndex = 212
Me.DDTRGStellung.TabIndex = 2
'
'DDTBehandlungsende
'
@@ -659,7 +874,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsende.Name = "DDTBehandlungsende"
Me.DDTBehandlungsende.Size = New System.Drawing.Size(162, 20)
Me.DDTBehandlungsende.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTBehandlungsende.TabIndex = 211
Me.DDTBehandlungsende.TabIndex = 1
'
'DDTBehandlungsbeginn
'
@@ -670,6 +885,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsbeginn.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTBehandlungsbeginn.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
Me.DDTBehandlungsbeginn.ButtonDropDown.Visible = True
Me.DDTBehandlungsbeginn.DefaultInputValues = False
Me.DDTBehandlungsbeginn.IsPopupCalendarOpen = False
Me.DDTBehandlungsbeginn.Location = New System.Drawing.Point(129, 18)
'
@@ -704,7 +920,7 @@ Partial Class Benhandungdetail
Me.DDTBehandlungsbeginn.Name = "DDTBehandlungsbeginn"
Me.DDTBehandlungsbeginn.Size = New System.Drawing.Size(162, 20)
Me.DDTBehandlungsbeginn.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTBehandlungsbeginn.TabIndex = 39
Me.DDTBehandlungsbeginn.TabIndex = 0
'
'btnAbschliessen
'
@@ -790,7 +1006,7 @@ Partial Class Benhandungdetail
Me.mtxtRabatt.NullString = ""
Me.mtxtRabatt.Size = New System.Drawing.Size(100, 20)
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.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
@@ -806,7 +1022,7 @@ Partial Class Benhandungdetail
Me.mtxtTaxpunktwert.NullString = ""
Me.mtxtTaxpunktwert.Size = New System.Drawing.Size(100, 20)
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.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
@@ -843,7 +1059,7 @@ Partial Class Benhandungdetail
Me.chkMitdatum.Location = New System.Drawing.Point(6, 216)
Me.chkMitdatum.Name = "chkMitdatum"
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.UseVisualStyleBackColor = True
'
@@ -853,7 +1069,7 @@ Partial Class Benhandungdetail
Me.chkAndrucken_Taxpunkte.Location = New System.Drawing.Point(179, 193)
Me.chkAndrucken_Taxpunkte.Name = "chkAndrucken_Taxpunkte"
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.UseVisualStyleBackColor = True
'
@@ -863,7 +1079,7 @@ Partial Class Benhandungdetail
Me.chkRabattGesamt.Location = New System.Drawing.Point(6, 193)
Me.chkRabattGesamt.Name = "chkRabattGesamt"
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.UseVisualStyleBackColor = True
'
@@ -874,7 +1090,7 @@ Partial Class Benhandungdetail
Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(97, 138)
Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrtaxpunkt.TabIndex = 30
Me.cbboxNrtaxpunkt.TabIndex = 4
Me.cbboxNrtaxpunkt.Table = Nothing
Me.cbboxNrtaxpunkt.TableAlias = ""
Me.cbboxNrtaxpunkt.Valuemember = Nothing
@@ -886,7 +1102,7 @@ Partial Class Benhandungdetail
Me.cbboxNrAnsatz.Location = New System.Drawing.Point(94, 81)
Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
Me.cbboxNrAnsatz.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsatz.TabIndex = 28
Me.cbboxNrAnsatz.TabIndex = 2
Me.cbboxNrAnsatz.Table = Nothing
Me.cbboxNrAnsatz.TableAlias = ""
Me.cbboxNrAnsatz.Valuemember = Nothing
@@ -907,7 +1123,7 @@ Partial Class Benhandungdetail
Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(94, 53)
Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAbrechnungstyp.TabIndex = 26
Me.cbboxNrAbrechnungstyp.TabIndex = 1
Me.cbboxNrAbrechnungstyp.Table = Nothing
Me.cbboxNrAbrechnungstyp.TableAlias = ""
Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
@@ -928,7 +1144,7 @@ Partial Class Benhandungdetail
Me.cbboxNRRGtyp.Location = New System.Drawing.Point(94, 25)
Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
Me.cbboxNRRGtyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNRRGtyp.TabIndex = 24
Me.cbboxNRRGtyp.TabIndex = 0
Me.cbboxNRRGtyp.Table = Nothing
Me.cbboxNRRGtyp.TableAlias = ""
Me.cbboxNRRGtyp.Valuemember = Nothing
@@ -944,10 +1160,10 @@ Partial Class Benhandungdetail
'
'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.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.Text = "ToolStrip1"
'
@@ -968,30 +1184,35 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 22)
Me.ToolStripDropDownButton1.Text = "ToolStripDropDownButton1"
Me.ToolStripDropDownButton1.Text = "Drucken / Vorschau / Design"
'
'VorschaRechnungToolStripMenuItem
'
Me.VorschaRechnungToolStripMenuItem.Name = "VorschaRechnungToolStripMenuItem"
Me.VorschaRechnungToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.VorschaRechnungToolStripMenuItem.Text = "Vorscha Rechnung"
Me.VorschaRechnungToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.VorschaRechnungToolStripMenuItem.Text = "Vorschau Rechnung/KV"
'
'DesignRechnungToolStripMenuItem
'
Me.DesignRechnungToolStripMenuItem.Name = "DesignRechnungToolStripMenuItem"
Me.DesignRechnungToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.DesignRechnungToolStripMenuItem.Text = "Design Rechnung"
Me.DesignRechnungToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.DesignRechnungToolStripMenuItem.Text = "Design Rechnung/KV"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'GrpRechnungstext
'
Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
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.Size = New System.Drawing.Size(608, 141)
Me.GrpRechnungstext.Size = New System.Drawing.Size(433, 141)
Me.GrpRechnungstext.TabIndex = 16
Me.GrpRechnungstext.TabStop = False
Me.GrpRechnungstext.Text = "Rechnungstext"
Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
'
'cbboxrgtext
'
@@ -999,8 +1220,8 @@ Partial Class Benhandungdetail
Me.cbboxrgtext.Displaymember = Nothing
Me.cbboxrgtext.Location = New System.Drawing.Point(5, 20)
Me.cbboxrgtext.Name = "cbboxrgtext"
Me.cbboxrgtext.Size = New System.Drawing.Size(600, 21)
Me.cbboxrgtext.TabIndex = 21
Me.cbboxrgtext.Size = New System.Drawing.Size(419, 21)
Me.cbboxrgtext.TabIndex = 0
Me.cbboxrgtext.Table = Nothing
Me.cbboxrgtext.TableAlias = ""
Me.cbboxrgtext.Valuemember = Nothing
@@ -1011,13 +1232,59 @@ Partial Class Benhandungdetail
Me.txtRechnungsbemerkung.Location = New System.Drawing.Point(3, 47)
Me.txtRechnungsbemerkung.Multiline = True
Me.txtRechnungsbemerkung.Name = "txtRechnungsbemerkung"
Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(602, 91)
Me.txtRechnungsbemerkung.TabIndex = 17
Me.txtRechnungsbemerkung.Size = New System.Drawing.Size(427, 91)
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.grpglndiagnose)
Me.Controls.Add(Me.GrpRechnungstext)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.GrpPatient)
@@ -1027,13 +1294,15 @@ Partial Class Benhandungdetail
Me.Controls.Add(Me.grpBehandlungsdaten)
Me.Controls.Add(Me.grpAbrechnung)
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.PerformLayout()
Me.grpZusammenfassugn.ResumeLayout(False)
Me.grpZusammenfassugn.PerformLayout()
Me.GrpGaramt.ResumeLayout(False)
Me.GrpGaramt.PerformLayout()
CType(Me.DDTDatum_Kostengutsprache, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DDTUnfalldatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpRaten.ResumeLayout(False)
Me.GrpRaten.PerformLayout()
CType(Me.txtAnzahlraten, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1052,6 +1321,8 @@ Partial Class Benhandungdetail
Me.ToolStrip1.PerformLayout()
Me.GrpRechnungstext.ResumeLayout(False)
Me.GrpRechnungstext.PerformLayout()
Me.grpglndiagnose.ResumeLayout(False)
Me.grpglndiagnose.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1097,7 +1368,6 @@ Partial Class Benhandungdetail
Friend WithEvents grpBehandlungsdaten As System.Windows.Forms.GroupBox
Friend WithEvents DDTRGStellung 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 btnZuruecksetzen As System.Windows.Forms.Button
Friend WithEvents lblRGStellung As System.Windows.Forms.Label
@@ -1129,4 +1399,23 @@ Partial Class Benhandungdetail
Friend WithEvents GrpRechnungstext As GroupBox
Friend WithEvents cbboxrgtext As MyCombobox
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

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">
<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==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAETSURBVDhPtZLBSsNAFEXzMcVvEPSj1J3ion5C27TB4D/o
xqWCLlpw5aZVghYhkE3SkE0ySSC99j1nTKKvwS68cAgz785JCGP9zOnZObrQte2h0rbsJCiKogXlf76A
Ng37RyORg+MBDk+G3+vmmdYbadifvqH/8CJyMX3njokouFxGcF4DEXe56hKseTicBxg8f4iMFkGHoCp5
+BewLlFVVS3I8xxRGKJUGW7uZrh9fBK5vp9BpSlWUYgsy2pBkiS82IU4jvnJgnRjpeder4fJxIXv+/A8
rwXtOc4Vd5pnWGCg4Xjs8i9RSrWg0MwIDPo6fV2opkC6yk2BPlbHGI1ACs1MTx/7nU0pp6KEbduFrulY
1ifZ/XIlNzeApwAAAABJRU5ErkJggg==
</value>
</data>
</root>

182
DPM2016/Behandlung/Benhandungdetail.vb
View File

@@ -213,7 +213,11 @@
db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
Me.Behandlungsstatus = r("status")
Me.NrAnsprechpartner = r("nrAnsprechpartner")
Try
Me.NrAnsprechpartner = r("nrAnsprechpartner")
Catch
Me.NrAnsprechpartner = 0
End Try
Get_Data_Controls(Me, r)
@@ -432,7 +436,7 @@
If UCase(Ctl.Name) = "DDT" + UCase(c.ColumnName) Then
Dim dt As DevComponents.Editors.DateTimeAdv.DateTimeInput
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
End If
Next
@@ -449,6 +453,18 @@
Me.cbboxnrbehandler.Displaymember = "Name"
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.TableAlias = "ESTYP_BH"
Me.cbboxNRESTyp.Table = "ESTyp"
@@ -670,6 +686,8 @@
Me.GrpGaramt.Enabled = enable
Me.GrpRaten.Enabled = enable
Me.tsbtnSave.Enabled = enable
Me.grpglndiagnose.Enabled = enable
Me.GrpRechnungstext.Enabled = enable
End Sub
@@ -813,28 +831,139 @@
End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
Dim f As New frmReportView(Me.cbboxNRESTyp.SelectedValue, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Visible = False
f.Print_Rechnung()
f.Close()
Check_Changes()
Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "")
If result <> 2 And result <> 5 Then
If MsgBox("Es können nur abgeschlossene Rechnungen/KV gedruckt und verbucht werden. Abschliessen und drucken/verbuchen?", vbYesNo + vbQuestion) = vbYes Then
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
Private Sub DesignRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignRechnungToolStripMenuItem.Click
Dim f As New frmReportView(Me.cbboxNRESTyp.SelectedValue, True, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(False, True)
f.Close()
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")
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
Private Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click
Dim f As New frmReportView(1, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(True, False)
'f.Close()
Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Check_Changes()
Dim reportnr As Integer
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Show()
f.Print_Rechnung(True, False, i)
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
End Sub
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
@@ -844,13 +973,30 @@
End Sub
Private Sub btnAbschliessen_Click(sender As Object, e As EventArgs) Handles btnAbschliessen.Click
If MsgBox("Behandlung abschliessen?", vbYesNo = vbYes) Then
End If
evh.Fire_Behandlung_Abschliessen(Me.Behandlungsnr, Me.Patientnr)
End Sub
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

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

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

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">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
@@ -139,7 +142,7 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</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>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
@@ -194,6 +197,6 @@
</value>
</data>
<data name="C1Leistungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}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>
</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
@@ -253,7 +255,7 @@
Private Sub txtfilter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyDown
If e.KeyCode <> Keys.Enter Then
End If
End Sub
@@ -274,7 +276,7 @@
Exit Sub
End If
If e.KeyCode <> Keys.Enter Then
If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing
Dim SortString As String = ""
If intSort = 0 Then
@@ -348,6 +350,7 @@
End Sub
Dim interror As Integer = 0
Private Sub txtPosition_TextChanged(sender As Object, e As EventArgs) Handles txtPosition.Leave
If Me.dtdatum.Value = "00:00:00" Then Me.dtdatum.Value = Now
Try
@@ -361,28 +364,36 @@
Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'"
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Dim dr As DataRowView
dr = dv1(0)
If dr.Item("Abrechnungseinheit") = "TP" Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
Me.DIPunkte.Value = dr.Item("pp_max")
Case Taxpunkttyp.Minmal
Me.DIPunkte.Value = dr.Item("pp_min")
Case Taxpunkttyp.Privat
Me.DIPunkte.Value = dr.Item("pp_privat")
Case Taxpunkttyp.Suva
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Else
Try
dr = dv1(0)
If dr.Item("Abrechnungseinheit") = "TP" Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
Me.DIPunkte.Value = dr.Item("pp_max")
Case Taxpunkttyp.Minmal
Me.DIPunkte.Value = dr.Item("pp_min")
Case Taxpunkttyp.Privat
Me.DIPunkte.Value = dr.Item("pp_privat")
Case Taxpunkttyp.Suva
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = dr.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
Me.DIMenge.Text = 1
Me.diwert.Text = 1
Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub
End Select
End If
Me.DIMenge.Text = 1
Me.diwert.Text = 1
Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub
Catch
interror = 1
MsgBox("Eingegebene Position ist nicht vorhanden.", vbExclamation)
Me.txtPosition.Focus()
Me.txtPosition.SelectAll()
Exit Sub
End Try
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows)
@@ -436,7 +447,7 @@
End Sub
Private Sub BtnInsertLeistung_Click(sender As Object, e As EventArgs) Handles BtnInsertLeistung.Click
leistung_einfuegen()
Leistung_Einfuegen()
End Sub
Private Sub diwert_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPosition.KeyDown, txtBezD.KeyDown, diwert.KeyDown, DIPunkte.KeyDown, DIMenge.KeyDown
@@ -449,11 +460,13 @@
End If
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 sortstring As String = ""
Dim wherestring As String = "LeistungNrNeu='" + Me.txtPosition.Text.ToString + "'"
If DentotarNr <> "" Then
wherestring = "LeistungNrNeu='" + DentotarNr + "'"
End If
If SSONummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
Else
@@ -488,43 +501,59 @@
r.Item("bezd") = drv("Leistungd")
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
Else
If drv.Item("Frankenbetrag") < 0.1 Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
r.Item("taxpunkte") = drv.Item("pp_amx")
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("pp_min")
Case Taxpunkttyp.Privat
r.Item("taxpunkte") = drv.Item("pp_privat")
Case Taxpunkttyp.Suva
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
Try
If betraginchf = 0 Then
Select Case Me.TaxPunkte
Case Taxpunkttyp.Maximal
r.Item("taxpunkte") = drv.Item("pp_amx")
Case Taxpunkttyp.Minmal
r.Item("taxpunkte") = drv.Item("pp_min")
Case Taxpunkttyp.Privat
r.Item("taxpunkte") = drv.Item("pp_privat")
Case Taxpunkttyp.Suva
r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
Case Taxpunkttyp.Dentotar
Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
Case Else
End Select
End If
Catch
End Try
End Select
End If
End If
If SSONummer = "" Then
If SSONummer = "" And DentotarNr = "" Then
r.Item("menge") = Me.DIMenge.Value
Else
r.Item("menge") = anzahl
End If
If SSONummer = "" Then
If SSONummer = "" And DentotarNr = "" Then
r.Item("frankenprotaxpunkt") = Me.diwert.Value
Else
r.Item("frankenprotaxpunkt") = Frankenwert
End If
If SSONummer = "" Then
If SSONummer = "" And DentotarNr = "" Then
r.Item("total") = Me.txtTotal.Text
Else
Dim total As Double
If drv.Item("frankenbetrag") < 0.1 Then
If betraginchf = 0 Then
total = r.Item("taxpunkte") * anzahl * 1
r.Item("total") = total.ToString("N2")
Else
@@ -544,6 +573,10 @@
End Sub
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
Leistung_Einfuegen_Dentotar(ssonummer, anzahl)
Exit Sub
@@ -648,7 +681,7 @@
Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0)
Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0))
EVH.Fire_Leistung_Changed(Me.Behandlungnr, calc_Leistungstotal)
evh.Fire_Leistung_Changed(Me.Behandlungnr, calc_Leistungstotal)
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
@@ -683,7 +716,7 @@
End Try
End Sub
Private Sub TreeTarifGruppen_NodeClick(sender As Object, e As DevComponents.AdvTree.TreeNodeMouseEventArgs) Handles TreeTarifGruppen.NodeClick
Load_Tarif()
@@ -697,14 +730,33 @@
Me.cbboxnrbehandler.SelectedValue = Me.behandler
End Try
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)
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
@@ -735,8 +787,8 @@
btnPaketeinfuegen_Click(sender, e)
End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
If Me.Behandlungnr = behandlungsnummer Then Me.tslabelbhtotal.Text = "Behandlungstotal: " + Total.ToString("N2")
End Sub
@@ -758,7 +810,7 @@
End Sub
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
Dim f As New frmLeistungDetail
@@ -781,4 +833,28 @@
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
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

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

153
DPM2016/DPM2016.vbproj
View File

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

14
DPM2016/Database/IntTables.vb
View File

@@ -1,6 +1,8 @@
Module IntTables
Public Inttables As New DataSet
Public orte As New DataTable
Dim Ortsverzeichnis As New DataTable
Public Function GetOrt(ByVal plz As String) As String
If orte.Rows.Count = 0 Then
@@ -19,4 +21,16 @@
Next
Return ort
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

163
DPM2016/Database/clsDB.vb
View File

@@ -30,29 +30,32 @@ Public Class clsDB
Public Sub Dispose()
dsDaten.Dispose()
dssql.Dispose()
dadaten.Dispose()
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
dsDaten.Clear()
dsDaten.Tables.Clear()
'If SP = True Then
' Dim sqlcmd As New SqlCommand
' Dim sqlconnect As New SqlConnection
' sqlconnect.ConnectionString = Me.Connectionstring
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = tablename
' For Each r As DataRow In SP_Params.Rows
' sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
' sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
' Next
' sqlcmd.Connection = sqlconnect
' dadaten.SelectCommand = sqlcmd
' dadaten.Fill(dsDaten, sql)
'End If
If sql <> "" Then
sql = sql.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
@@ -76,6 +79,7 @@ Public Class clsDB
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
If SP = True Then
Dim sqlcmd As New SqlCommand
Dim sqlconnect As New SqlConnection
@@ -87,18 +91,36 @@ Public Class clsDB
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
Next
sqlcmd.Connection = sqlconnect
dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
Try
dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
Exit Sub
Catch ex As Exception
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
End Try
End If
If SQL <> "" Then
SQL = SQL.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
Else
dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
dadaten = New SqlDataAdapter("select * from [" + tablename + "] " + wherestatement, Me.Connectionstring)
End If
'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
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
Dim a As Integer = 1
End Try
@@ -162,6 +184,24 @@ Public Class clsDB
End Try
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
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
@@ -250,7 +290,8 @@ Public Class clsDB
Dim dsPartner As New DataSet
dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
dadaten.Fill(dsDaten, "Daten")
Catch
Catch ex As Exception
End Try
End Function
@@ -315,6 +356,42 @@ Public Class clsDB
End If
End If
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
@@ -344,12 +421,17 @@ Public Class clsDB
Select Case Tablename
Case "Privat"
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
Case "Firma"
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
Case "Leistung"
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
Case "Behandlung"
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
Case "Zahlung"
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
Case "Recall"
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function
@@ -465,8 +547,6 @@ Public Class clsDB
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
Update_Data()
End Function
Public Function Get_Leistung(ByVal nrleistung As Integer)
@@ -492,6 +572,16 @@ Public Class clsDB
Return Filename
End Select
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
#Region "Fakturierung"
@@ -599,5 +689,32 @@ Public Class clsDB
End Try
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 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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrivatSelect))
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.Button1 = 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.Button1)
Me.Controls.Add(Me.TreeView1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPrivatSelect"
Me.Text = "frmPrivatSelect"
Me.Text = "Patient-Auswahl"
Me.ResumeLayout(False)
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 Total_Berechnet(ByVal behandlungsnummer As Integer, Total As Double)
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)
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)
RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr)
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

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

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

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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Finanzen))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.GrpZahlung = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnBuchen = New System.Windows.Forms.Button()
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
Me.lblVorauszahlung = New System.Windows.Forms.Label()
@@ -38,15 +40,23 @@ Partial Class Finanzen
Me.lblRechnungsnummer = New System.Windows.Forms.Label()
Me.GrpZahlungen = New System.Windows.Forms.GroupBox()
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.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()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpZahlungen.SuspendLayout()
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip2.SuspendLayout()
Me.GrpBehandlungen.SuspendLayout()
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
@@ -59,6 +69,7 @@ Partial Class Finanzen
'
'GrpZahlung
'
Me.GrpZahlung.Controls.Add(Me.Button1)
Me.GrpZahlung.Controls.Add(Me.btnBuchen)
Me.GrpZahlung.Controls.Add(Me.chkVorauszahlung)
Me.GrpZahlung.Controls.Add(Me.lblVorauszahlung)
@@ -78,6 +89,14 @@ Partial Class Finanzen
Me.GrpZahlung.TabStop = False
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
'
Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
@@ -122,9 +141,9 @@ Partial Class Finanzen
Me.lblKonto.AutoSize = True
Me.lblKonto.Location = New System.Drawing.Point(20, 112)
Me.lblKonto.Name = "lblKonto"
Me.lblKonto.Size = New System.Drawing.Size(55, 13)
Me.lblKonto.Size = New System.Drawing.Size(66, 13)
Me.lblKonto.TabIndex = 16
Me.lblKonto.Text = "Behandler"
Me.lblKonto.Text = "Gegenkonto"
'
'lblBetrag
'
@@ -208,7 +227,7 @@ Partial Class Finanzen
'
Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
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
'
'lblRechnungsnummer
@@ -226,7 +245,7 @@ Partial Class Finanzen
Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25)
Me.GrpZahlungen.Name = "GrpZahlungen"
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 249)
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 401)
Me.GrpZahlungen.TabIndex = 2
Me.GrpZahlungen.TabStop = False
Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
@@ -234,6 +253,7 @@ Partial Class Finanzen
'C1Zahlungen
'
Me.C1Zahlungen.AlternatingRows = True
Me.C1Zahlungen.ContextMenuStrip = Me.ContextMenuStrip2
Me.C1Zahlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Zahlungen.FilterBar = True
Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column"
@@ -244,18 +264,42 @@ Partial Class Finanzen
Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 230)
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 382)
Me.C1Zahlungen.TabIndex = 3
Me.C1Zahlungen.Text = "C1TrueDBGrid1"
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
'
Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 274)
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 426)
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.TabStop = False
Me.GrpBehandlungen.Text = "Offene Rechnungen"
@@ -263,6 +307,7 @@ Partial Class Finanzen
'C1OffeneRechnungen
'
Me.C1OffeneRechnungen.AlternatingRows = True
Me.C1OffeneRechnungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1OffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1OffeneRechnungen.FilterBar = True
Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column"
@@ -273,11 +318,23 @@ Partial Class Finanzen
Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 294)
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 142)
Me.C1OffeneRechnungen.TabIndex = 4
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -294,8 +351,10 @@ Partial Class Finanzen
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpZahlungen.ResumeLayout(False)
CType(Me.C1Zahlungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip2.ResumeLayout(False)
Me.GrpBehandlungen.ResumeLayout(False)
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -317,5 +376,11 @@ Partial Class Finanzen
Friend WithEvents lblVorauszahlung As System.Windows.Forms.Label
Friend WithEvents cbboxKonto As DPM2016.MyCombobox
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

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">
<value>17, 17</value>
</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" />
<data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -158,8 +161,11 @@
</value>
</data>
<data name="C1Zahlungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 637, 228&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 637, 228&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<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>
<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">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -197,6 +203,6 @@
</value>
</data>
<data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 637, 292&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 637, 292&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<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>
</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 dbk As New clsDB
@@ -10,7 +12,7 @@
End Get
Set(value As Integer)
m_patientnr = value
Refresh_Konto()
refresh_konto()
Refresh_Zahlungen()
End Set
End Property
@@ -57,6 +59,10 @@
End Sub
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
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
Exit Sub
@@ -68,13 +74,30 @@
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
r("vorauszahlung") = chkVorauszahlung.Checked
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("betrag") = Me.diBetrag.Value
r("nrkonto") = cbboxKonto.SelectedValue
r("valuta") = Me.dtdatum.Value
r("nrbehandlung") = 0
r("status") = 0
If chkVorauszahlung.Checked Then r("status") = 1
If chkVorauszahlung.Checked Then
r("status") = 1
vz = "J"
End If
r("statusdatum") = Now
r("erstellt_am") = Now
r("mutiert_am") = Now
@@ -82,10 +105,92 @@
r("aktiv") = True
dbz.dsDaten.Tables(0).Rows.Add(r)
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()
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
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

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

@@ -39,6 +39,8 @@ Partial Class frmFirma
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = 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.txtnrfirma = New System.Windows.Forms.TextBox()
Me.lblNr = New System.Windows.Forms.Label()
@@ -91,6 +93,11 @@ Partial Class frmFirma
Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
Me.btndeldatetimeab = 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.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
@@ -104,7 +111,7 @@ Partial Class frmFirma
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(940, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1003, 24)
Me.MenuStrip1.TabIndex = 20
Me.MenuStrip1.Text = "MenuStrip1"
'
@@ -124,10 +131,10 @@ Partial Class frmFirma
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
Me.ToolStrip1.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.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.Text = "ToolStrip1"
'
@@ -235,28 +242,42 @@ Partial Class frmFirma
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
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
'
Me.txtName1.Location = New System.Drawing.Point(71, 88)
Me.txtName1.Location = New System.Drawing.Point(72, 88)
Me.txtName1.Name = "txtName1"
Me.txtName1.Size = New System.Drawing.Size(162, 20)
Me.txtName1.TabIndex = 103
Me.txtName1.TabIndex = 1
'
'txtnrfirma
'
Me.txtnrfirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtnrfirma.Location = New System.Drawing.Point(71, 62)
Me.txtnrfirma.Location = New System.Drawing.Point(72, 62)
Me.txtnrfirma.Name = "txtnrfirma"
Me.txtnrfirma.ReadOnly = True
Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrfirma.Size = New System.Drawing.Size(48, 20)
Me.txtnrfirma.TabIndex = 110
Me.txtnrfirma.TabIndex = 0
'
'lblNr
'
Me.lblNr.AutoSize = True
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.Size = New System.Drawing.Size(21, 13)
Me.lblNr.TabIndex = 111
@@ -266,7 +287,7 @@ Partial Class frmFirma
'
Me.lblAnrede.AutoSize = True
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.Size = New System.Drawing.Size(51, 13)
Me.lblAnrede.TabIndex = 112
@@ -276,7 +297,7 @@ Partial Class frmFirma
'
Me.lblName2.AutoSize = True
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.Size = New System.Drawing.Size(51, 13)
Me.lblName2.TabIndex = 114
@@ -284,16 +305,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtName2.TabIndex = 113
Me.txtName2.TabIndex = 2
'
'lblStrasse
'
Me.lblStrasse.AutoSize = True
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.Size = New System.Drawing.Size(42, 13)
Me.lblStrasse.TabIndex = 116
@@ -301,16 +322,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 115
Me.txtStrasse.TabIndex = 3
'
'lblPostfach
'
Me.lblPostfach.AutoSize = True
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.Size = New System.Drawing.Size(49, 13)
Me.lblPostfach.TabIndex = 118
@@ -318,16 +339,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtPostfach.TabIndex = 117
Me.txtPostfach.TabIndex = 4
'
'lblPlz
'
Me.lblPlz.AutoSize = True
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.Size = New System.Drawing.Size(46, 13)
Me.lblPlz.TabIndex = 120
@@ -335,23 +356,23 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(48, 20)
Me.txtPlz.TabIndex = 119
Me.txtPlz.TabIndex = 5
'
'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.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 121
Me.txtOrt.TabIndex = 6
'
'lblTelefon
'
Me.lblTelefon.AutoSize = True
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.Size = New System.Drawing.Size(43, 13)
Me.lblTelefon.TabIndex = 123
@@ -359,16 +380,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtTel.TabIndex = 122
Me.txtTel.TabIndex = 8
'
'lblTelefax
'
Me.lblTelefax.AutoSize = True
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.Size = New System.Drawing.Size(42, 13)
Me.lblTelefax.TabIndex = 125
@@ -376,16 +397,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtFax.TabIndex = 124
Me.txtFax.TabIndex = 9
'
'lblMobile
'
Me.lblMobile.AutoSize = True
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.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 127
@@ -393,16 +414,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtnatel.TabIndex = 126
Me.txtnatel.TabIndex = 10
'
'lblEmail
'
Me.lblEmail.AutoSize = True
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.Size = New System.Drawing.Size(36, 13)
Me.lblEmail.TabIndex = 129
@@ -410,16 +431,16 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 128
Me.txtE_Mail.TabIndex = 11
'
'lblInterner
'
Me.lblInterner.AutoSize = True
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.Size = New System.Drawing.Size(43, 13)
Me.lblInterner.TabIndex = 131
@@ -427,19 +448,19 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtweb.TabIndex = 130
Me.txtweb.TabIndex = 12
'
'cbboxSprache
'
Me.cbboxSprache.Dataselection = 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.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 203
Me.cbboxSprache.TabIndex = 14
Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing
@@ -448,10 +469,10 @@ Partial Class frmFirma
'
Me.cbboxStatus.Dataselection = 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.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 202
Me.cbboxStatus.TabIndex = 13
Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing
@@ -460,7 +481,7 @@ Partial Class frmFirma
'
Me.Label15.AutoSize = True
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.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 211
@@ -470,7 +491,7 @@ Partial Class frmFirma
'
Me.Label14.AutoSize = True
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.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 210
@@ -478,17 +499,17 @@ Partial Class frmFirma
'
'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.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(427, 197)
Me.txtBemerkung.TabIndex = 206
Me.txtBemerkung.TabIndex = 19
'
'Label2
'
Me.Label2.AutoSize = True
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.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 209
@@ -498,7 +519,7 @@ Partial Class frmFirma
'
Me.lblSprache.AutoSize = True
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.Size = New System.Drawing.Size(47, 13)
Me.lblSprache.TabIndex = 208
@@ -508,7 +529,7 @@ Partial Class frmFirma
'
Me.lblStatus.AutoSize = True
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.Size = New System.Drawing.Size(37, 13)
Me.lblStatus.TabIndex = 207
@@ -518,7 +539,7 @@ Partial Class frmFirma
'
Me.Label13.AutoSize = True
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.Size = New System.Drawing.Size(53, 13)
Me.Label13.TabIndex = 213
@@ -528,18 +549,18 @@ Partial Class frmFirma
'
Me.chklbAdresstyp.FormattingEnabled = True
Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"})
Me.chklbAdresstyp.Location = New System.Drawing.Point(317, 195)
Me.chklbAdresstyp.Location = New System.Drawing.Point(318, 224)
Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(165, 109)
Me.chklbAdresstyp.TabIndex = 212
Me.chklbAdresstyp.TabIndex = 18
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.c1daten)
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.Size = New System.Drawing.Size(916, 154)
Me.GroupBox1.Size = New System.Drawing.Size(916, 114)
Me.GroupBox1.TabIndex = 214
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Ansprechpartner"
@@ -559,7 +580,7 @@ Partial Class frmFirma
Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1daten.Size = New System.Drawing.Size(910, 110)
Me.c1daten.Size = New System.Drawing.Size(910, 70)
Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.c1daten.TabIndex = 1
Me.c1daten.Text = "C1TrueDBGrid1"
@@ -687,21 +708,21 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigab.TabIndex = 215
Me.dtgueltigab.TabIndex = 16
'
'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.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigbis.TabIndex = 216
Me.dtgueltigbis.TabIndex = 17
'
'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.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimeab.TabIndex = 217
@@ -709,57 +730,108 @@ Partial Class frmFirma
'
'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.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimebis.TabIndex = 218
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(940, 514)
Me.Controls.Add(Me.btndeldatetimebis)
Me.Controls.Add(Me.btndeldatetimeab)
Me.Controls.Add(Me.dtgueltigbis)
Me.Controls.Add(Me.dtgueltigab)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.chklbAdresstyp)
Me.Controls.Add(Me.cbboxSprache)
Me.Controls.Add(Me.cbboxStatus)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.txtBemerkung)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblSprache)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.lblInterner)
Me.Controls.Add(Me.txtweb)
Me.Controls.Add(Me.lblEmail)
Me.Controls.Add(Me.txtE_Mail)
Me.Controls.Add(Me.lblMobile)
Me.Controls.Add(Me.txtnatel)
Me.Controls.Add(Me.lblTelefax)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.lblTelefon)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.lblPlz)
Me.Controls.Add(Me.txtPlz)
Me.Controls.Add(Me.lblPostfach)
Me.Controls.Add(Me.txtPostfach)
Me.Controls.Add(Me.lblStrasse)
Me.Controls.Add(Me.txtStrasse)
Me.Controls.Add(Me.lblName2)
Me.Controls.Add(Me.txtName2)
Me.ClientSize = New System.Drawing.Size(1003, 657)
Me.Controls.Add(Me.Finanzen1)
Me.Controls.Add(Me.txtnrfirma)
Me.Controls.Add(Me.txtGLN)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.lblGLN)
Me.Controls.Add(Me.lblNr)
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.txtnrfirma)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.txtweb)
Me.Controls.Add(Me.cbtxtboxKanton)
Me.Controls.Add(Me.lblEmail)
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.Text = "Firmen"
Me.MenuStrip1.ResumeLayout(False)
@@ -844,4 +916,11 @@ Partial Class frmFirma
Friend WithEvents ToolStripButton11 As ToolStripButton
Friend WithEvents ToolStripButton12 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

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
Dim m_haschanges As Boolean
Property HasChanges As Boolean
@@ -19,6 +20,8 @@ Public Class frmFirma
m_firmanr = value
Get_Data()
AddChanges(Me)
Me.txtName1.Select()
Me.Finanzen1.Patientnr = value
Me.HasChanges = False
End Set
End Property
@@ -210,9 +213,9 @@ Public Class frmFirma
Dim ctlname As String
Dim colname As String
Try
db.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
DB.Get_Tabledata("firma", " where nrfirma=" + Me.Firmanr.ToString)
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
colname = c.ColumnName
For Each Ctl As Control In Me.Controls
'Dim objtype As System.Type = Ctl.GetType
@@ -238,6 +241,18 @@ Public Class frmFirma
Exit For
End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim ct As ComboBox
Dim o As Object = Ctl
Try
o.text = r(c.ColumnName)
Catch
o.Text = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
log.Writelog("--Firmadetails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim dt As DateTimePicker
@@ -354,6 +369,16 @@ Public Class frmFirma
End Try
Exit For
End If
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
Dim ct As MyCombobox
Dim o As Object = Ctl
Try
r(c.ColumnName) = o.text
Catch ex As Exception
r(c.ColumnName) = ""
End Try
Exit For
End If
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
Dim dt As DateTimePicker
dt = Ctl
@@ -490,9 +515,53 @@ Public Class frmFirma
End Sub
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
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

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

@@ -118,7 +118,7 @@ Partial Class frmFirmaAP
'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
'
'ToolStripButton10
@@ -127,7 +127,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image)
Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton10.Name = "ToolStripButton10"
Me.ToolStripButton10.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton10.Text = "Erster Datensatz"
Me.ToolStripButton10.Visible = False
'
@@ -137,7 +137,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image)
Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton11.Name = "ToolStripButton11"
Me.ToolStripButton11.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton11.Text = "Vorheriger Datensatz"
Me.ToolStripButton11.Visible = False
'
@@ -147,7 +147,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image)
Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton12.Name = "ToolStripButton12"
Me.ToolStripButton12.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton12.Text = "nächster Datensatz"
Me.ToolStripButton12.Visible = False
'
@@ -157,7 +157,7 @@ Partial Class frmFirmaAP
Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image)
Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton13.Name = "ToolStripButton13"
Me.ToolStripButton13.Size = New System.Drawing.Size(23, 20)
Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton13.Text = "Letzter Datensatz"
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
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
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.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
@@ -31,12 +48,21 @@ Partial Class clsStammdaten_flat
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = 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()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'c1daten
'
Me.c1daten.AllowAddNew = True
Me.c1daten.AlternatingRows = True
Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -59,7 +85,7 @@ Partial Class clsStammdaten_flat
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6})
Me.ToolStrip1.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.Name = "ToolStrip1"
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.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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.C1TrueDBDropdown2)
Me.Controls.Add(Me.C1TrueDBDropdown1)
Me.Controls.Add(Me.c1daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsStammdaten_flat"
@@ -135,6 +243,9 @@ Partial Class clsStammdaten_flat
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
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.PerformLayout()
@@ -147,4 +258,9 @@ Partial Class clsStammdaten_flat
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.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

454
DPM2016/Klassen/clsStammdaten_flat.resx
View File

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

80
DPM2016/Klassen/clsStammdaten_flat.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports C1.Win.C1TrueDBGrid
Public Class clsStammdaten_flat
@@ -42,8 +43,10 @@ Public Class clsStammdaten_flat
Public Sub get_data()
Try
Me.C1Daten.datasource = Nothing
Me.C1Daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing
@@ -51,12 +54,25 @@ Public Class clsStammdaten_flat
db.dsDaten.Tables.Clear()
db.Get_Tabledata(Me.Tablename)
Me.C1Daten.DataSource = db.dsDaten
Me.c1daten.DataSource = db.dsDaten
Me.c1daten.DataMember = Tablename
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.C1Daten, Me.Tablename, db.dsDaten.Tables(0))
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
End Try
End Sub
@@ -66,7 +82,7 @@ Public Class clsStammdaten_flat
db.Update_Data()
End Sub
Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
@@ -81,4 +97,56 @@ Public Class clsStammdaten_flat
End Try
MsgBox("Daten wurden gespeichert")
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

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

@@ -11,28 +11,3 @@
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten,
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DPM2016.frmMain
End Sub
End Class
End Namespace

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">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<MySubMain>false</MySubMain>
<MainForm>frmSplash</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>

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

@@ -54,19 +54,6 @@ Namespace My
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=dpmneu;integrated security=SSPI;persist securit"& _
"y info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)
End Get
Set
Me("ConnectionString") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("2")> _
@@ -102,6 +89,19 @@ Namespace My
Me("DocArchivPath") = value
End Set
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 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">
<Profiles />
<Settings>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=dpmneu;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="LogLevel" Type="System.String" Scope="User">
<Value Profile="(Default)">2</Value>
</Setting>
@@ -14,5 +11,8 @@
<Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value>
</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>
</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.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.tsbtnnext = 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.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
@@ -52,6 +52,12 @@ Partial Class Patient
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -59,20 +65,21 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
Me.ToolStrip1.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.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.Text = "ToolStrip1"
'
@@ -180,6 +187,20 @@ Partial Class Patient
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
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
'
'
@@ -196,32 +217,43 @@ Partial Class Patient
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1006, 728)
Me.SuperTabControl1.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.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"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.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.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
'
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -230,7 +262,7 @@ Partial Class Patient
Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = " "
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
'
'Stammdaten
@@ -240,39 +272,13 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 703)
Me.SuperTabControlPanel5.TabIndex = 0
Me.SuperTabControlPanel5.TabItem = Me.Finanzen
'
'Finanzen1
'
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1006, 703)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
@@ -283,7 +289,7 @@ Partial Class Patient
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1006, 568)
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
@@ -299,7 +305,7 @@ Partial Class Patient
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
'
@@ -310,7 +316,7 @@ Partial Class Patient
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 568)
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 803)
Me.PatientAbrechnung1.TabIndex = 0
'
'Abrechnung
@@ -326,7 +332,7 @@ Partial Class Patient
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
'
@@ -336,23 +342,76 @@ Partial Class Patient
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 568)
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 803)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte
'
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.Enabled = False
Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "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
'
Me.MenuStrip1.AllowMerge = False
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1006, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
Me.MenuStrip1.TabIndex = 19
Me.MenuStrip1.Text = "MenuStrip1"
'
@@ -373,10 +432,11 @@ Partial Class Patient
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1006, 777)
Me.ClientSize = New System.Drawing.Size(1278, 686)
Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Patient"
Me.ShowInTaskbar = False
@@ -386,10 +446,11 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
@@ -428,4 +489,10 @@ Partial Class Patient
Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
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

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.Behandlung1.PatientNr = value
Me.Finanzen1.Patientnr = value
Me.Recall1.Patientnr = value
Globals.OnLoad = False
End Set
End Property
@@ -53,7 +55,14 @@
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
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
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
@@ -167,5 +176,57 @@
End If
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

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

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

4
DPM2016/Patient/PatientAbrechnung.resx
View File

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

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

@@ -83,6 +83,11 @@ Partial Class PatientDetails
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = 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()
'
'txtnrprivat
@@ -93,7 +98,7 @@ Partial Class PatientDetails
Me.txtnrprivat.ReadOnly = True
Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
Me.txtnrprivat.TabIndex = 100
Me.txtnrprivat.TabIndex = 0
'
'lblNr
'
@@ -184,7 +189,7 @@ Partial Class PatientDetails
'
Me.Label15.AutoSize = True
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.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 201
@@ -194,7 +199,7 @@ Partial Class PatientDetails
'
Me.Label14.AutoSize = True
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.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 200
@@ -217,21 +222,21 @@ Partial Class PatientDetails
Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
Me.chklbAdresstyp.TabIndex = 26
Me.chklbAdresstyp.TabIndex = 30
'
'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.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
Me.txtBemerkung.TabIndex = 25
Me.txtBemerkung.TabIndex = 29
'
'Label2
'
Me.Label2.AutoSize = True
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.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 198
@@ -241,7 +246,7 @@ Partial Class PatientDetails
'
Me.Label1.AutoSize = True
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.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 197
@@ -249,23 +254,23 @@ Partial Class PatientDetails
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtFaxG.TabIndex = 22
Me.txtFaxG.TabIndex = 26
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(74, 93)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(162, 20)
Me.txtName.TabIndex = 2
Me.txtName.TabIndex = 3
'
'lbltelg
'
Me.lbltelg.AutoSize = True
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.Size = New System.Drawing.Size(57, 13)
Me.lbltelg.TabIndex = 196
@@ -283,17 +288,17 @@ Partial Class PatientDetails
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtTelg.TabIndex = 21
Me.txtTelg.TabIndex = 25
'
'txtVorname
'
Me.txtVorname.Location = New System.Drawing.Point(74, 119)
Me.txtVorname.Name = "txtVorname"
Me.txtVorname.Size = New System.Drawing.Size(162, 20)
Me.txtVorname.TabIndex = 3
Me.txtVorname.TabIndex = 4
'
'lblahv
'
@@ -310,7 +315,7 @@ Partial Class PatientDetails
Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
Me.txtahvnr.Name = "txtahvnr"
Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
Me.txtahvnr.TabIndex = 20
Me.txtahvnr.TabIndex = 22
'
'lblVorname
'
@@ -337,14 +342,14 @@ Partial Class PatientDetails
Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
Me.txtBeruf.Name = "txtBeruf"
Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
Me.txtBeruf.TabIndex = 19
Me.txtBeruf.TabIndex = 21
'
'txtCOAdresse
'
Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
Me.txtCOAdresse.Name = "txtCOAdresse"
Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
Me.txtCOAdresse.TabIndex = 4
Me.txtCOAdresse.TabIndex = 5
'
'lblArbeitgeber
'
@@ -371,7 +376,7 @@ Partial Class PatientDetails
Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 5
Me.txtStrasse.TabIndex = 6
'
'lblSprache
'
@@ -398,7 +403,7 @@ Partial Class PatientDetails
Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
Me.txtPLZ.TabIndex = 6
Me.txtPLZ.TabIndex = 7
'
'lblStatus
'
@@ -424,7 +429,7 @@ Partial Class PatientDetails
'
Me.lblBriefanrede.AutoSize = True
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.Size = New System.Drawing.Size(65, 13)
Me.lblBriefanrede.TabIndex = 190
@@ -435,20 +440,20 @@ Partial Class PatientDetails
Me.txtOrt.Location = New System.Drawing.Point(128, 197)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 7
Me.txtOrt.TabIndex = 8
'
'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.Size = New System.Drawing.Size(647, 20)
Me.txtBriefanrede.TabIndex = 15
Me.txtBriefanrede.TabIndex = 17
'
'lblGebDat
'
Me.lblGebDat.AutoSize = True
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.Size = New System.Drawing.Size(44, 13)
Me.lblGebDat.TabIndex = 183
@@ -458,7 +463,7 @@ Partial Class PatientDetails
'
Me.lblGeschlecht.AutoSize = True
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.Size = New System.Drawing.Size(61, 13)
Me.lblGeschlecht.TabIndex = 189
@@ -466,16 +471,16 @@ Partial Class PatientDetails
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txttelp.TabIndex = 9
Me.txttelp.TabIndex = 11
'
'lblInternet
'
Me.lblInternet.AutoSize = True
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.Size = New System.Drawing.Size(43, 13)
Me.lblInternet.TabIndex = 188
@@ -485,7 +490,7 @@ Partial Class PatientDetails
'
Me.lblTelefon.AutoSize = True
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.Size = New System.Drawing.Size(55, 13)
Me.lblTelefon.TabIndex = 184
@@ -493,23 +498,23 @@ Partial Class PatientDetails
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtWeb.TabIndex = 13
Me.txtWeb.TabIndex = 15
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtFaxp.TabIndex = 10
Me.txtFaxp.TabIndex = 12
'
'lblemail
'
Me.lblemail.AutoSize = True
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.Size = New System.Drawing.Size(36, 13)
Me.lblemail.TabIndex = 187
@@ -519,7 +524,7 @@ Partial Class PatientDetails
'
Me.lblFaxP.AutoSize = True
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.Size = New System.Drawing.Size(36, 13)
Me.lblFaxP.TabIndex = 185
@@ -527,23 +532,23 @@ Partial Class PatientDetails
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 12
Me.txtE_Mail.TabIndex = 14
'
'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.Size = New System.Drawing.Size(162, 20)
Me.txtNatel.TabIndex = 11
Me.txtNatel.TabIndex = 13
'
'lblMobile
'
Me.lblMobile.AutoSize = True
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.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 186
@@ -552,26 +557,26 @@ Partial Class PatientDetails
'dtgebdat
'
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.Size = New System.Drawing.Size(162, 20)
Me.dtgebdat.TabIndex = 8
Me.dtgebdat.TabIndex = 10
'
'dtGueltigab
'
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.Size = New System.Drawing.Size(162, 20)
Me.dtGueltigab.TabIndex = 23
Me.dtGueltigab.TabIndex = 27
'
'dtgueltigbis
'
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.Size = New System.Drawing.Size(162, 20)
Me.dtgueltigbis.TabIndex = 24
Me.dtgueltigbis.TabIndex = 28
'
'cbboxNRArbeitgeber
'
@@ -580,7 +585,7 @@ Partial Class PatientDetails
Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
Me.cbboxNRArbeitgeber.TabIndex = 18
Me.cbboxNRArbeitgeber.TabIndex = 20
Me.cbboxNRArbeitgeber.Table = Nothing
Me.cbboxNRArbeitgeber.TableAlias = ""
Me.cbboxNRArbeitgeber.Valuemember = Nothing
@@ -589,10 +594,10 @@ Partial Class PatientDetails
'
Me.cbboxNrGeschlecht.Dataselection = 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.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrGeschlecht.TabIndex = 14
Me.cbboxNrGeschlecht.TabIndex = 16
Me.cbboxNrGeschlecht.Table = Nothing
Me.cbboxNrGeschlecht.TableAlias = ""
Me.cbboxNrGeschlecht.Valuemember = Nothing
@@ -604,7 +609,7 @@ Partial Class PatientDetails
Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
Me.cbboxSprache.Name = "cbboxSprache"
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 17
Me.cbboxSprache.TabIndex = 19
Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing
@@ -616,7 +621,7 @@ Partial Class PatientDetails
Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 16
Me.cbboxStatus.TabIndex = 18
Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing
@@ -628,7 +633,7 @@ Partial Class PatientDetails
Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
Me.cbboxNRTitel.Name = "cbboxNRTitel"
Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
Me.cbboxNRTitel.TabIndex = 1
Me.cbboxNRTitel.TabIndex = 2
Me.cbboxNRTitel.Table = Nothing
Me.cbboxNRTitel.TableAlias = ""
Me.cbboxNRTitel.Valuemember = Nothing
@@ -640,15 +645,63 @@ Partial Class PatientDetails
Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrAnrede.TabIndex = 0
Me.cbboxNrAnrede.TabIndex = 1
Me.cbboxNrAnrede.Table = Nothing
Me.cbboxNrAnrede.TableAlias = ""
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.cbboxNrGeschlecht)
Me.Controls.Add(Me.cbboxSprache)
@@ -711,7 +764,7 @@ Partial Class PatientDetails
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.lblTitel)
Me.Name = "PatientDetails"
Me.Size = New System.Drawing.Size(737, 439)
Me.Size = New System.Drawing.Size(737, 461)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -777,5 +830,9 @@ Partial Class PatientDetails
Friend WithEvents cbboxSprache As DPM2016.MyCombobox
Friend WithEvents cbboxNrGeschlecht 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

28
DPM2016/Patient/PatientDetails.vb
View File

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

134
DPM2016/Reporting/frmReportView.vb
View File

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

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

@@ -23,6 +23,22 @@ Partial Class frmAuswertungen
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
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))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -31,9 +47,16 @@ Partial Class frmAuswertungen
Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
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.ToolStrip1.SuspendLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
@@ -55,11 +78,12 @@ Partial Class frmAuswertungen
'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"
'
'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.Name = "ToolStrip1"
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.Size = New System.Drawing.Size(0, 0)
Me.C1Auswertungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Auswertungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Auswertungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Auswertungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Auswertungen.Size = New System.Drawing.Size(772, 400)
Me.C1Auswertungen.TabIndex = 17
Me.C1Auswertungen.Text = "C1TrueDBGrid1"
@@ -89,29 +113,112 @@ Partial Class frmAuswertungen
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(153, 48)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26)
'
'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"
'
'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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(772, 449)
Me.Controls.Add(Me.C1TrueDBDropdown2)
Me.Controls.Add(Me.C1TrueDBDropdown1)
Me.Controls.Add(Me.C1Auswertungen)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmAuswertungen"
Me.Text = "frmAuswertungen"
Me.Text = "Auswertungen"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -124,4 +231,8 @@ Partial Class frmAuswertungen
Friend WithEvents C1Auswertungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
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

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
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
@@ -9,9 +11,16 @@
Dim dt As New DataTable
db.Get_Tabledata("Auswertung")
dt = db.dsDaten.Tables(0).Copy
Me.C1Auswertungen.DataSource = dt
Me.C1Auswertungen.DataMember = dt.TableName
Me.C1Auswertungen.DataSource = db.dsDaten.Tables(0)
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
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
@@ -33,4 +42,28 @@
End Try
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

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.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
@@ -36,14 +37,19 @@ Partial Class frmStammdaten
Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14})
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode16, TreeNode17, TreeNode18, TreeNode19})
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode21})
Dim 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("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15})
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einmzahlungsscheine")
Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode17, TreeNode18, TreeNode19, TreeNode20})
Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode22})
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode24, TreeNode25, TreeNode26})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -53,6 +59,8 @@ Partial Class frmStammdaten
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
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()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -113,23 +121,33 @@ Partial Class frmStammdaten
TreeNode13.Text = "Paketpositionen"
TreeNode14.Name = "Dentotar"
TreeNode14.Text = "Dentotar"
TreeNode15.Name = "Knoten8"
TreeNode15.Text = "Tarif"
TreeNode16.Name = "Ansatz"
TreeNode16.Text = "Ansatz"
TreeNode17.Name = "Abrtyp"
TreeNode17.Text = "Abrechnungstyp"
TreeNode18.Name = "ESTyp"
TreeNode18.Text = "Einmzahlungsscheine"
TreeNode19.Name = "RGTyp"
TreeNode19.Text = "Rechnungstyp"
TreeNode20.Name = "Knoten14"
TreeNode20.Text = "Abrechnung"
TreeNode21.Name = "Spalten"
TreeNode21.Text = "Spalten"
TreeNode22.Name = "Diverse"
TreeNode22.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode15, TreeNode20, TreeNode22})
TreeNode15.Name = "Dentotar_Parameter"
TreeNode15.Text = "Dentotar_Parameter"
TreeNode16.Name = "Knoten8"
TreeNode16.Text = "Tarif"
TreeNode17.Name = "Ansatz"
TreeNode17.Text = "Ansatz"
TreeNode18.Name = "Abrtyp"
TreeNode18.Text = "Abrechnungstyp"
TreeNode19.Name = "ESTyp"
TreeNode19.Text = "Einmzahlungsscheine"
TreeNode20.Name = "RGTyp"
TreeNode20.Text = "Rechnungstyp"
TreeNode21.Name = "Knoten14"
TreeNode21.Text = "Abrechnung"
TreeNode22.Name = "Auswertung"
TreeNode22.Text = "Auswertung"
TreeNode23.Name = "Reporting"
TreeNode23.Text = "Reporting"
TreeNode24.Name = "Spalten"
TreeNode24.Text = "Spalten"
TreeNode25.Name = "Options"
TreeNode25.Text = "Options"
TreeNode26.Name = "User"
TreeNode26.Text = "User"
TreeNode27.Name = "Diverse"
TreeNode27.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode23, TreeNode27})
Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1
'
@@ -178,6 +196,16 @@ Partial Class frmStammdaten
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
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
'
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 DentotarImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
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">
<value>239, 17</value>
</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">
<value>
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
Me.TreeView1.ExpandAll()
End Sub
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 WithEvents EVH As New Generic_Event_Handler
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
Dim Rappen5 As Double
Rappen5 = CDbl(inp)

13
DPM2016/app.config
View File

@@ -1,8 +1,8 @@
<?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 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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<system.diagnostics>
@@ -25,11 +25,9 @@
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/></startup>
<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>
@@ -39,6 +37,9 @@
<setting name="DocArchivPath" serializeAs="String">
<value>h:\dpm\docarchiv</value>
</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>
</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.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.mnuMain = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.StammdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpaltentitelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StammdatenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = 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.PruefzifferToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.FinanzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungenToolStripMenuItem = 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.SuspendLayout()
'
'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.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.Text = "MenuStrip1"
'
'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.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
@@ -58,9 +68,21 @@ Partial Class frmMain
'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"
'
'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
'
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.Text = "Patient"
'
'FirmenToolStripMenuItem
'
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.FirmenToolStripMenuItem.Text = "&Firmen"
'
'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.Size = New System.Drawing.Size(96, 20)
Me.AuswertungenToolStripMenuItem.Text = "Auswertungen"
@@ -102,12 +130,20 @@ Partial Class frmMain
'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.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
'
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.Size = New System.Drawing.Size(66, 20)
Me.FinanzenToolStripMenuItem.Text = "Finanzen"
@@ -115,27 +151,57 @@ Partial Class frmMain
'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"
'
'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"
'
'FirmenToolStripMenuItem
'ToolStripMenuItem2
'
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.FirmenToolStripMenuItem.Text = "&Firmen"
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(208, 6)
'
'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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.IsMdiContainer = True
Me.MainMenuStrip = Me.mnuMain
Me.Name = "frmMain"
@@ -160,4 +226,13 @@ Partial Class frmMain
Friend WithEvents MahnungenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AuswertungenToolStripMenuItem1 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

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
Me.Close()
End Sub
Private Sub StammdatenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammdatenToolStripMenuItem.Click
End Sub
Private Sub SpaltentitelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpaltentitelToolStripMenuItem.Click
@@ -24,24 +26,58 @@
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim db As New clsDB
db.Get_Spaltendata()
Globals.Spaltendaten = db.dsDaten.Tables(0)
PatientToolStripMenuItem_Click(sender, e)
If check_db_connection() Then
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
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
Me.Cursor = Cursors.WaitCursor
Dim f As New Patient
f.MdiParent = Me
f.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click
Dim rpt As New frmReportauswahl
rpt.MdiParent = Me
rpt.Show()
Dim f As New frmAuswertung
f.MdiParent = Me
f.Show()
End Sub
Private Sub PruefzifferToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PruefzifferToolStripMenuItem.Click
@@ -106,4 +142,62 @@
f.MdiParent = Me
f.Show()
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

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_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\C1.Win.C1TrueDBGrid.2.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.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\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\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Shared.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\_FRReporting.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\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.Finanzen.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.frmReportauswahl.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmReportView.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.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.Form2.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\PropertyGridEx.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmAuswertung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSplash.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.SplashForm.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Charts.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLogin.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Command.4.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Input.4.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Command.4.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1Input.4.xml
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.frmFirma.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFirmaAP.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDBConnection.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DPM2018.exe.config
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)
Firma: E-Mail -> E_Mail
Privat: E-Mail -> E_Mail
GLN bei Privat und Firma
Views
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.