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

Version 2018-05-25

Browse Source
This commit is contained in:
Stefan Hutter
2018-05-25 09:16:37 +02:00
parent 482a2ae3ce
commit 7c22a2e6d1
76 changed files with 3035 additions and 1105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

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

@@ -35,8 +35,10 @@ Partial Class Behandlung
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BehandlungKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node2 = New DevComponents.AdvTree.Node() Me.Node2 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector() Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
@@ -62,7 +64,13 @@ Partial Class Behandlung
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip() Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
Me.VorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
Me.RechungKVVorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungKVEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbtndelete.SuspendLayout() Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -155,44 +163,56 @@ Partial Class Behandlung
' '
'ctxmenubehandlung 'ctxmenubehandlung
' '
Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.KopieErstellenToolStripMenuItem}) Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.BehandlungKopierenToolStripMenuItem, Me.ToolStripMenuItem4, Me.SofortRechnungDruckenToolStripMenuItem, Me.KopieErstellenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.ToolStripMenuItem5, Me.RechungKVVorschauToolStripMenuItem, Me.RechnungKVEntwurfToolStripMenuItem})
Me.ctxmenubehandlung.Name = "ContextMenuStrip1" Me.ctxmenubehandlung.Name = "ContextMenuStrip1"
Me.ctxmenubehandlung.Size = New System.Drawing.Size(210, 148) Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 248)
' '
'NeueBehandlungToolStripMenuItem1 'NeueBehandlungToolStripMenuItem1
' '
Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1" Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1"
Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung" Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
' '
'ToolStripMenuItem2 'ToolStripMenuItem2
' '
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(206, 6) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(208, 6)
' '
'BehandlungabschliessenToolStripMenuItem1 'BehandlungabschliessenToolStripMenuItem1
' '
Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1" Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen"
' '
'BehandlungZurücksetzenToolStripMenuItem 'BehandlungZurücksetzenToolStripMenuItem
' '
Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem" Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem"
Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen" Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
' '
'BehandlungKopierenToolStripMenuItem
'
Me.BehandlungKopierenToolStripMenuItem.Name = "BehandlungKopierenToolStripMenuItem"
Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
'
'ToolStripMenuItem3 'ToolStripMenuItem3
' '
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(206, 6) Me.ToolStripMenuItem3.Size = New System.Drawing.Size(208, 6)
' '
'BehandlungLöschenToolStripMenuItem1 'BehandlungLöschenToolStripMenuItem1
' '
Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1" Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22) Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen"
' '
'KopieErstellenToolStripMenuItem
'
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
'
'ImageList1 'ImageList1
' '
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
@@ -404,11 +424,46 @@ Partial Class Behandlung
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142) Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
' '
'KopieErstellenToolStripMenuItem 'SofortRechnungDruckenToolStripMenuItem
' '
Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem" Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem})
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
Me.KopieErstellenToolStripMenuItem.Text = "Kopie erstellen" Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6)
'
'VorschauToolStripMenuItem
'
Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.VorschauToolStripMenuItem.Text = "Vorschau"
'
'EntwurfToolStripMenuItem
'
Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.EntwurfToolStripMenuItem.Text = "Entwurf"
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(208, 6)
'
'RechungKVVorschauToolStripMenuItem
'
Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem"
Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau"
'
'RechnungKVEntwurfToolStripMenuItem
'
Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem"
Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf"
' '
'Behandlung 'Behandlung
' '
@@ -476,4 +531,12 @@ Partial Class Behandlung
Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator Friend WithEvents ToolStripMenuItem3 As ToolStripSeparator
Friend WithEvents ToolStripButton2 As ToolStripButton Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents KopieErstellenToolStripMenuItem As ToolStripMenuItem Friend WithEvents KopieErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BehandlungKopierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As ToolStripSeparator
Friend WithEvents SofortRechnungDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorschauToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem5 As ToolStripSeparator
Friend WithEvents RechungKVVorschauToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RechnungKVEntwurfToolStripMenuItem As ToolStripMenuItem
End Class End Class

2
DPM2016/Behandlung/Behandlung.resx
View File

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

191
DPM2016/Behandlung/Behandlung.vb
View File

@@ -1,4 +1,7 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports DevComponents.AdvTree
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Parsing
Public Class Behandlung Public Class Behandlung
@@ -386,6 +389,38 @@ Public Class Behandlung
r.Item("nrbehandler") = 1 r.Item("nrbehandler") = 1
r.Item("nrrgtyp") = pat.dsDaten.Tables(0).Rows(0).Item("nrrgtyp") r.Item("nrrgtyp") = pat.dsDaten.Tables(0).Rows(0).Item("nrrgtyp")
r.Item("rabatt") = pat.dsDaten.Tables(0).Rows(0).Item("rabatt") r.Item("rabatt") = pat.dsDaten.Tables(0).Rows(0).Item("rabatt")
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrgarant") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgarant")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrvs") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrvs")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrkk") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrkk")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrfs") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrfs")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nriv") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nriv")
Catch
End Try
'If pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertrater") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter")
r.Item("behandlungsbeginn") = Now r.Item("behandlungsbeginn") = Now
r.Item("status") = Status r.Item("status") = Status
@@ -394,6 +429,8 @@ Public Class Behandlung
r.Item("mutiert_am") = Now r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True r.Item("aktiv") = True
db.dsDaten.Tables(0).Rows.Add(r) db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data() db.Update_Data()
pat.Dispose() pat.Dispose()
@@ -439,6 +476,33 @@ Public Class Behandlung
'End If 'End If
End Sub End Sub
Private Sub BehandlunKopierenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungKopierenToolStripMenuItem.Click
If BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren" Then
Dim dl As MsgBoxResult = MsgBox("Als Kostenvoranschlag kopieren (Ja) oder als neue Behandlung kopieren (Nein)?", vbYesNoCancel + vbQuestion)
If dl = vbYes Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 1)
End If
If dl = vbNo Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 2)
End If
Else
Dim dl As MsgBoxResult = MsgBox("Als Behandlung kopieren (Ja) oder als neuer KV kopieren (Nein)?", vbYesNoCancel + vbQuestion)
If dl = vbYes Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 3)
End If
If dl = vbNo Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 4)
End If
End If
Get_Behandlungen()
End Sub
Private Sub tsbtndelete_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles tsbtndelete.ItemClicked Private Sub tsbtndelete_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles tsbtndelete.ItemClicked
@@ -453,18 +517,40 @@ Public Class Behandlung
i = Me.treebehandlungen.SelectedNode.Tag i = Me.treebehandlungen.SelectedNode.Tag
End Try End Try
Me.NeueBehandlungToolStripMenuItem.Enabled = True
Me.BehandlungAbschliessenToolStripMenuItem.Enabled = True
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungKopierenToolStripMenuItem.Enabled = True
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
Me.KopieErstellenToolStripMenuItem.Enabled = True
Me.BehandlungKopierenToolStripMenuItem.Enabled = True
Me.NeueBehandlungToolStripMenuItem.Visible = True
Me.BehandlungAbschliessenToolStripMenuItem.Visible = True
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungKopierenToolStripMenuItem.Visible = True
Me.SofortRechnungDruckenToolStripMenuItem.Visible = True
Me.KopieErstellenToolStripMenuItem.Visible = True
Me.BehandlungKopierenToolStripMenuItem.Visible = True
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
Me.ctxmenubehandlung.Enabled = True ' Me.ctxmenubehandlung.Enabled = True
Select Case i Select Case i
Case -11 Case -11
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = True Me.BehandlungabschliessenToolStripMenuItem1.Enabled = True
Me.KopieErstellenToolStripMenuItem.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Case -12 Case -12
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
KopieErstellenToolStripMenuItem.Enabled = False
Case -13 Case -13
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = True
End Select End Select
Select Case i Select Case i
@@ -475,6 +561,11 @@ Public Class Behandlung
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen" Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Kostenvoranschlag drucken"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
Case -2 Case -2
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
@@ -484,7 +575,7 @@ Public Class Behandlung
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungLöschenToolStripMenuItem1.Enabled = False Me.BehandlungLöschenToolStripMenuItem1.Enabled = False
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Case > -20 Case > -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung abschliessen"
@@ -492,6 +583,7 @@ Public Class Behandlung
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen" Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
Case < -20 And Case < -20 And
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen" Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = True BehandlungabschliessenToolStripMenuItem1.Enabled = True
@@ -500,7 +592,9 @@ Public Class Behandlung
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen" Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen" Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
End Select End Select
@@ -511,16 +605,26 @@ Public Class Behandlung
End Sub End Sub
Private Sub BehandlungZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungZurücksetzenToolStripMenuItem.Click Private Sub BehandlungZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungZurücksetzenToolStripMenuItem.Click
Dim db As New clsDB
Dim Messagetext As String
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + key.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 2 Or db.dsDaten.Tables(0).Rows(0).Item("Status") = 3 Then
Messagetext = "Behandlung "
Else
Messagetext = "Kostenvoranschlag"
End If
Dim fakt As New clsFakturierung Dim fakt As New clsFakturierung
Dim Result = fakt.verrechnet(Me.treebehandlungen.SelectedNode.Tag) Dim Result = fakt.Verrechnet(Me.treebehandlungen.SelectedNode.Tag)
Select Case Result Select Case Result
Case 0 Case 0
If MsgBox("Behandlung zurücksetzen?", vbYesNo + vbQuestion, "Behandlung zurücksetzen") = MsgBoxResult.Yes Then If MsgBox(Messagetext + " zurücksetzen?", vbYesNo + vbQuestion, Messagetext + " zurücksetzen") = MsgBoxResult.Yes Then
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString) Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
End If End If
Case 1 Case 1
If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then
fakt.storno(Me.treebehandlungen.SelectedNode.Tag) fakt.Storno(Me.treebehandlungen.SelectedNode.Tag)
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString) Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
End If End If
Case 2 Case 2
@@ -557,18 +661,34 @@ Public Class Behandlung
Sub Behandlung_Abschliessen(ByVal nrbehandlung) Sub Behandlung_Abschliessen(ByVal nrbehandlung)
Dim istKV As Boolean = False Dim istKV As Boolean = False
If MsgBox("Behandlung/KKV abschliessen?", vbYesNo + vbQuestion) = vbYes Then Dim db As New clsDB
Dim Messagetext As String
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
Messagetext = "Behandlung "
Else
istKV = True
Messagetext = "Kostenvoranschlag"
End If
If MsgBox(Messagetext + " abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Me.Behandungdetail1.Save_Data() 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) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 1 Then If db.dsDaten.Tables(0).Rows(0).Item("Status") = 1 Then
db.dsDaten.Tables(0).Rows(0).Item("Status") = 2 db.dsDaten.Tables(0).Rows(0).Item("Status") = 2
Messagetext = "Behandlung "
Else Else
db.dsDaten.Tables(0).Rows(0).Item("Status") = 5 db.dsDaten.Tables(0).Rows(0).Item("Status") = 5
istKV = True istKV = True
Messagetext = "Kostenvoranschlag"
End If
If db.dsDaten.Tables(0).Rows(0).Item("Behandlungsende").ToString = "" Then
db.dsDaten.Tables(0).Rows(0).Item("Behandlungsende") = db.dsDaten.Tables(0).Rows(0).Item("Behandlungsbeginn")
End If End If
db.dsDaten.Tables(0).Rows(0).Item("mutiert_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("mutierer") = Globals.ActUser
db.Update_Data() db.Update_Data()
@@ -642,6 +762,7 @@ Public Class Behandlung
End Sub End Sub
Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click
Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
DB.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString) DB.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
Dim behandlungsnr As Integer = DB.dsDaten.Tables(0).Rows(0).Item("nrbehandlung") Dim behandlungsnr As Integer = DB.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
@@ -658,7 +779,7 @@ Public Class Behandlung
Catch Catch
fakturanr = 0 fakturanr = 0
End Try End Try
Globals.FakturaNr = fakturanr
Dim Folgeauswertung As Integer Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean Dim Separater_Druckjob As Boolean
@@ -698,11 +819,59 @@ Public Class Behandlung
End If End If
End While End While
If Globals.RGCollection.Count > 1 Then
Dim document As New PdfDocument()
document.EnableMemoryOptimization = True
Dim i As Integer = 0
Dim fn As String = ""
For Each inputDocument As String In Globals.RGCollection
i = i + 1
If i = 1 Then fn = inputDocument
Dim loadedDocument As New PdfLoadedDocument(inputDocument)
loadedDocument.EnableMemoryOptimization = True
document.ImportPageRange(loadedDocument, 0, loadedDocument.Pages.Count - 1)
loadedDocument.Close(True)
Next
document.Save(fn + ".copy.pdf")
document.Close()
End If
End Sub End Sub
Private Sub SofortRechnungDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SofortRechnungDruckenToolStripMenuItem.Click
Behandungdetail1.ToolStripDropDownButton1_Click(sender, e)
End Sub
Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
Behandungdetail1.VorschaRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub EntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntwurfToolStripMenuItem.Click
Behandungdetail1.DesignRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub RechungKVVorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechungKVVorschauToolStripMenuItem.Click
Behandungdetail1.VorschaRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub RechnungKVEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungKVEntwurfToolStripMenuItem.Click
Behandungdetail1.DesignRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub treebehandlungen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles treebehandlungen.AfterNodeSelect
Me.treebehandlungen_Click(sender, e)
End Sub
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer) Handles evh.Refresh_Behandlung
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnr, behandlungsnr)
Me.nodeselected()
End Sub
#End Region #End Region

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

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Benhandungdetail Partial Class Benhandungdetail
Inherits System.Windows.Forms.UserControl Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class Benhandungdetail
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Benhandungdetail)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Benhandungdetail))
Me.GrpPatient = New System.Windows.Forms.GroupBox() Me.GrpPatient = New System.Windows.Forms.GroupBox()
@@ -42,6 +42,7 @@ Partial Class Benhandungdetail
Me.txtcKVTotal = New System.Windows.Forms.Label() Me.txtcKVTotal = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.GrpGaramt = New System.Windows.Forms.GroupBox() Me.GrpGaramt = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblGesetz = New System.Windows.Forms.Label() Me.lblGesetz = New System.Windows.Forms.Label()
Me.cbboxNrGesetz = New DPM2016.MyCombobox() Me.cbboxNrGesetz = New DPM2016.MyCombobox()
Me.cbboxNrZuweiser = New DPM2016.MyCombobox() Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
@@ -106,6 +107,7 @@ Partial Class Benhandungdetail
Me.VorschaRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VorschaRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DesignRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DesignRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnGarantAnzeigen = New System.Windows.Forms.ToolStripButton()
Me.GrpRechnungstext = New System.Windows.Forms.GroupBox() Me.GrpRechnungstext = New System.Windows.Forms.GroupBox()
Me.cbboxrgtext = New DPM2016.MyCombobox() Me.cbboxrgtext = New DPM2016.MyCombobox()
Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox() Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
@@ -114,6 +116,8 @@ Partial Class Benhandungdetail
Me.lblGLNListe = New System.Windows.Forms.Label() Me.lblGLNListe = New System.Windows.Forms.Label()
Me.txtGLN_Liste = New System.Windows.Forms.TextBox() Me.txtGLN_Liste = New System.Windows.Forms.TextBox()
Me.grpglndiagnose = New System.Windows.Forms.GroupBox() Me.grpglndiagnose = New System.Windows.Forms.GroupBox()
Me.txtBehandlungsgrund = New System.Windows.Forms.TextBox()
Me.lblBehandlungsgrund = New System.Windows.Forms.Label()
Me.GrpPatient.SuspendLayout() Me.GrpPatient.SuspendLayout()
Me.grpZusammenfassugn.SuspendLayout() Me.grpZusammenfassugn.SuspendLayout()
Me.GrpGaramt.SuspendLayout() Me.GrpGaramt.SuspendLayout()
@@ -329,6 +333,7 @@ Partial Class Benhandungdetail
' '
'GrpGaramt 'GrpGaramt
' '
Me.GrpGaramt.Controls.Add(Me.Button1)
Me.GrpGaramt.Controls.Add(Me.lblGesetz) Me.GrpGaramt.Controls.Add(Me.lblGesetz)
Me.GrpGaramt.Controls.Add(Me.cbboxNrGesetz) Me.GrpGaramt.Controls.Add(Me.cbboxNrGesetz)
Me.GrpGaramt.Controls.Add(Me.cbboxNrZuweiser) Me.GrpGaramt.Controls.Add(Me.cbboxNrZuweiser)
@@ -355,11 +360,20 @@ Partial Class Benhandungdetail
Me.GrpGaramt.Controls.Add(Me.rbversicherung) Me.GrpGaramt.Controls.Add(Me.rbversicherung)
Me.GrpGaramt.Location = New System.Drawing.Point(312, 283) Me.GrpGaramt.Location = New System.Drawing.Point(312, 283)
Me.GrpGaramt.Name = "GrpGaramt" Me.GrpGaramt.Name = "GrpGaramt"
Me.GrpGaramt.Size = New System.Drawing.Size(299, 261) Me.GrpGaramt.Size = New System.Drawing.Size(735, 261)
Me.GrpGaramt.TabIndex = 14 Me.GrpGaramt.TabIndex = 14
Me.GrpGaramt.TabStop = False Me.GrpGaramt.TabStop = False
Me.GrpGaramt.Text = "Garant" Me.GrpGaramt.Text = "Garant"
' '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(373, 61)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(16, 23)
Me.Button1.TabIndex = 224
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'lblGesetz 'lblGesetz
' '
Me.lblGesetz.AutoSize = True Me.lblGesetz.AutoSize = True
@@ -375,7 +389,7 @@ Partial Class Benhandungdetail
Me.cbboxNrGesetz.Displaymember = Nothing Me.cbboxNrGesetz.Displaymember = Nothing
Me.cbboxNrGesetz.Location = New System.Drawing.Point(94, 136) Me.cbboxNrGesetz.Location = New System.Drawing.Point(94, 136)
Me.cbboxNrGesetz.Name = "cbboxNrGesetz" Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
Me.cbboxNrGesetz.Size = New System.Drawing.Size(196, 21) Me.cbboxNrGesetz.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrGesetz.TabIndex = 9 Me.cbboxNrGesetz.TabIndex = 9
Me.cbboxNrGesetz.Table = Nothing Me.cbboxNrGesetz.Table = Nothing
Me.cbboxNrGesetz.TableAlias = "" Me.cbboxNrGesetz.TableAlias = ""
@@ -387,7 +401,7 @@ Partial Class Benhandungdetail
Me.cbboxNrZuweiser.Displaymember = Nothing Me.cbboxNrZuweiser.Displaymember = Nothing
Me.cbboxNrZuweiser.Location = New System.Drawing.Point(94, 239) Me.cbboxNrZuweiser.Location = New System.Drawing.Point(94, 239)
Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser" Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
Me.cbboxNrZuweiser.Size = New System.Drawing.Size(196, 21) Me.cbboxNrZuweiser.Size = New System.Drawing.Size(169, 21)
Me.cbboxNrZuweiser.TabIndex = 13 Me.cbboxNrZuweiser.TabIndex = 13
Me.cbboxNrZuweiser.Table = Nothing Me.cbboxNrZuweiser.Table = Nothing
Me.cbboxNrZuweiser.TableAlias = "" Me.cbboxNrZuweiser.TableAlias = ""
@@ -404,19 +418,21 @@ Partial Class Benhandungdetail
' '
'btnDeleteKogudatum 'btnDeleteKogudatum
' '
Me.btnDeleteKogudatum.Location = New System.Drawing.Point(280, 211) Me.btnDeleteKogudatum.Location = New System.Drawing.Point(356, 211)
Me.btnDeleteKogudatum.Name = "btnDeleteKogudatum" Me.btnDeleteKogudatum.Name = "btnDeleteKogudatum"
Me.btnDeleteKogudatum.Size = New System.Drawing.Size(10, 23) Me.btnDeleteKogudatum.Size = New System.Drawing.Size(10, 23)
Me.btnDeleteKogudatum.TabIndex = 219 Me.btnDeleteKogudatum.TabIndex = 219
Me.btnDeleteKogudatum.UseVisualStyleBackColor = True Me.btnDeleteKogudatum.UseVisualStyleBackColor = True
Me.btnDeleteKogudatum.Visible = False
' '
'btnDeleteUnfalldatum 'btnDeleteUnfalldatum
' '
Me.btnDeleteUnfalldatum.Location = New System.Drawing.Point(280, 185) Me.btnDeleteUnfalldatum.Location = New System.Drawing.Point(356, 185)
Me.btnDeleteUnfalldatum.Name = "btnDeleteUnfalldatum" Me.btnDeleteUnfalldatum.Name = "btnDeleteUnfalldatum"
Me.btnDeleteUnfalldatum.Size = New System.Drawing.Size(10, 23) Me.btnDeleteUnfalldatum.Size = New System.Drawing.Size(10, 23)
Me.btnDeleteUnfalldatum.TabIndex = 218 Me.btnDeleteUnfalldatum.TabIndex = 218
Me.btnDeleteUnfalldatum.UseVisualStyleBackColor = True Me.btnDeleteUnfalldatum.UseVisualStyleBackColor = True
Me.btnDeleteUnfalldatum.Visible = False
' '
'Label1 'Label1
' '
@@ -431,7 +447,7 @@ Partial Class Benhandungdetail
' '
Me.txtKostengutsprache_Nummer.Location = New System.Drawing.Point(94, 213) Me.txtKostengutsprache_Nummer.Location = New System.Drawing.Point(94, 213)
Me.txtKostengutsprache_Nummer.Name = "txtKostengutsprache_Nummer" Me.txtKostengutsprache_Nummer.Name = "txtKostengutsprache_Nummer"
Me.txtKostengutsprache_Nummer.Size = New System.Drawing.Size(196, 20) Me.txtKostengutsprache_Nummer.Size = New System.Drawing.Size(151, 20)
Me.txtKostengutsprache_Nummer.TabIndex = 12 Me.txtKostengutsprache_Nummer.TabIndex = 12
' '
'DDTDatum_Kostengutsprache 'DDTDatum_Kostengutsprache
@@ -475,7 +491,7 @@ Partial Class Benhandungdetail
Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DDTDatum_Kostengutsprache.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTDatum_Kostengutsprache.MonthCalendar.TodayButtonVisible = True Me.DDTDatum_Kostengutsprache.MonthCalendar.TodayButtonVisible = True
Me.DDTDatum_Kostengutsprache.Name = "DDTDatum_Kostengutsprache" Me.DDTDatum_Kostengutsprache.Name = "DDTDatum_Kostengutsprache"
Me.DDTDatum_Kostengutsprache.Size = New System.Drawing.Size(180, 20) Me.DDTDatum_Kostengutsprache.Size = New System.Drawing.Size(151, 20)
Me.DDTDatum_Kostengutsprache.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.DDTDatum_Kostengutsprache.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTDatum_Kostengutsprache.TabIndex = 11 Me.DDTDatum_Kostengutsprache.TabIndex = 11
' '
@@ -529,7 +545,7 @@ Partial Class Benhandungdetail
Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DDTUnfalldatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DDTUnfalldatum.MonthCalendar.TodayButtonVisible = True Me.DDTUnfalldatum.MonthCalendar.TodayButtonVisible = True
Me.DDTUnfalldatum.Name = "DDTUnfalldatum" Me.DDTUnfalldatum.Name = "DDTUnfalldatum"
Me.DDTUnfalldatum.Size = New System.Drawing.Size(180, 20) Me.DDTUnfalldatum.Size = New System.Drawing.Size(151, 20)
Me.DDTUnfalldatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled Me.DDTUnfalldatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.DDTUnfalldatum.TabIndex = 10 Me.DDTUnfalldatum.TabIndex = 10
' '
@@ -557,7 +573,7 @@ Partial Class Benhandungdetail
Me.cbboxNrAnsprechpartner.Displaymember = Nothing Me.cbboxNrAnsprechpartner.Displaymember = Nothing
Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 84) Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 84)
Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner" Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(196, 21) Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrAnsprechpartner.TabIndex = 7 Me.cbboxNrAnsprechpartner.TabIndex = 7
Me.cbboxNrAnsprechpartner.Table = Nothing Me.cbboxNrAnsprechpartner.Table = Nothing
Me.cbboxNrAnsprechpartner.TableAlias = "" Me.cbboxNrAnsprechpartner.TableAlias = ""
@@ -576,7 +592,7 @@ Partial Class Benhandungdetail
' '
Me.txtFallnummer.Location = New System.Drawing.Point(94, 113) Me.txtFallnummer.Location = New System.Drawing.Point(94, 113)
Me.txtFallnummer.Name = "txtFallnummer" Me.txtFallnummer.Name = "txtFallnummer"
Me.txtFallnummer.Size = New System.Drawing.Size(196, 20) Me.txtFallnummer.Size = New System.Drawing.Size(151, 20)
Me.txtFallnummer.TabIndex = 8 Me.txtFallnummer.TabIndex = 8
' '
'cbboxNrGarant 'cbboxNrGarant
@@ -585,7 +601,7 @@ Partial Class Benhandungdetail
Me.cbboxNrGarant.Displaymember = Nothing Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 61) Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 61)
Me.cbboxNrGarant.Name = "cbboxNrGarant" Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.Size = New System.Drawing.Size(196, 21) Me.cbboxNrGarant.Size = New System.Drawing.Size(277, 21)
Me.cbboxNrGarant.TabIndex = 6 Me.cbboxNrGarant.TabIndex = 6
Me.cbboxNrGarant.Table = Nothing Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = "" Me.cbboxNrGarant.TableAlias = ""
@@ -603,7 +619,7 @@ Partial Class Benhandungdetail
'rbPrivatPersonen 'rbPrivatPersonen
' '
Me.rbPrivatPersonen.AutoSize = True Me.rbPrivatPersonen.AutoSize = True
Me.rbPrivatPersonen.Location = New System.Drawing.Point(193, 38) Me.rbPrivatPersonen.Location = New System.Drawing.Point(199, 41)
Me.rbPrivatPersonen.Name = "rbPrivatPersonen" Me.rbPrivatPersonen.Name = "rbPrivatPersonen"
Me.rbPrivatPersonen.Size = New System.Drawing.Size(100, 17) Me.rbPrivatPersonen.Size = New System.Drawing.Size(100, 17)
Me.rbPrivatPersonen.TabIndex = 5 Me.rbPrivatPersonen.TabIndex = 5
@@ -614,7 +630,7 @@ Partial Class Benhandungdetail
'rbkk 'rbkk
' '
Me.rbkk.AutoSize = True Me.rbkk.AutoSize = True
Me.rbkk.Location = New System.Drawing.Point(104, 38) Me.rbkk.Location = New System.Drawing.Point(106, 40)
Me.rbkk.Name = "rbkk" Me.rbkk.Name = "rbkk"
Me.rbkk.Size = New System.Drawing.Size(93, 17) Me.rbkk.Size = New System.Drawing.Size(93, 17)
Me.rbkk.TabIndex = 4 Me.rbkk.TabIndex = 4
@@ -636,7 +652,7 @@ Partial Class Benhandungdetail
'rbiv 'rbiv
' '
Me.rbiv.AutoSize = True Me.rbiv.AutoSize = True
Me.rbiv.Location = New System.Drawing.Point(193, 15) Me.rbiv.Location = New System.Drawing.Point(199, 20)
Me.rbiv.Name = "rbiv" Me.rbiv.Name = "rbiv"
Me.rbiv.Size = New System.Drawing.Size(64, 17) Me.rbiv.Size = New System.Drawing.Size(64, 17)
Me.rbiv.TabIndex = 2 Me.rbiv.TabIndex = 2
@@ -930,6 +946,7 @@ Partial Class Benhandungdetail
Me.btnAbschliessen.TabIndex = 209 Me.btnAbschliessen.TabIndex = 209
Me.btnAbschliessen.Text = "Abschliessen" Me.btnAbschliessen.Text = "Abschliessen"
Me.btnAbschliessen.UseVisualStyleBackColor = True Me.btnAbschliessen.UseVisualStyleBackColor = True
Me.btnAbschliessen.Visible = False
' '
'btnZuruecksetzen 'btnZuruecksetzen
' '
@@ -939,6 +956,7 @@ Partial Class Benhandungdetail
Me.btnZuruecksetzen.TabIndex = 208 Me.btnZuruecksetzen.TabIndex = 208
Me.btnZuruecksetzen.Text = "Zurücksetzen" Me.btnZuruecksetzen.Text = "Zurücksetzen"
Me.btnZuruecksetzen.UseVisualStyleBackColor = True Me.btnZuruecksetzen.UseVisualStyleBackColor = True
Me.btnZuruecksetzen.Visible = False
' '
'lblRGStellung 'lblRGStellung
' '
@@ -1160,7 +1178,7 @@ Partial Class Benhandungdetail
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1, Me.ToolStripSeparator1}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1, Me.ToolStripSeparator1, Me.tsbtnGarantAnzeigen})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1062, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1062, 25)
@@ -1203,6 +1221,17 @@ Partial Class Benhandungdetail
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
' '
'tsbtnGarantAnzeigen
'
Me.tsbtnGarantAnzeigen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbtnGarantAnzeigen.Image = CType(resources.GetObject("tsbtnGarantAnzeigen.Image"), System.Drawing.Image)
Me.tsbtnGarantAnzeigen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnGarantAnzeigen.Name = "tsbtnGarantAnzeigen"
Me.tsbtnGarantAnzeigen.Size = New System.Drawing.Size(96, 22)
Me.tsbtnGarantAnzeigen.Text = "Garant anzeigen"
Me.tsbtnGarantAnzeigen.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.tsbtnGarantAnzeigen.ToolTipText = "Garant anzeigen"
'
'GrpRechnungstext 'GrpRechnungstext
' '
Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext) Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
@@ -1269,6 +1298,8 @@ Partial Class Benhandungdetail
' '
'grpglndiagnose 'grpglndiagnose
' '
Me.grpglndiagnose.Controls.Add(Me.txtBehandlungsgrund)
Me.grpglndiagnose.Controls.Add(Me.lblBehandlungsgrund)
Me.grpglndiagnose.Controls.Add(Me.txtGLN_Liste) Me.grpglndiagnose.Controls.Add(Me.txtGLN_Liste)
Me.grpglndiagnose.Controls.Add(Me.lblGLNListe) Me.grpglndiagnose.Controls.Add(Me.lblGLNListe)
Me.grpglndiagnose.Controls.Add(Me.txtDiagnose) Me.grpglndiagnose.Controls.Add(Me.txtDiagnose)
@@ -1280,6 +1311,22 @@ Partial Class Benhandungdetail
Me.grpglndiagnose.TabStop = False Me.grpglndiagnose.TabStop = False
Me.grpglndiagnose.Text = "GLN / Diagnose" Me.grpglndiagnose.Text = "GLN / Diagnose"
' '
'txtBehandlungsgrund
'
Me.txtBehandlungsgrund.Location = New System.Drawing.Point(95, 76)
Me.txtBehandlungsgrund.Name = "txtBehandlungsgrund"
Me.txtBehandlungsgrund.Size = New System.Drawing.Size(329, 20)
Me.txtBehandlungsgrund.TabIndex = 222
'
'lblBehandlungsgrund
'
Me.lblBehandlungsgrund.AutoSize = True
Me.lblBehandlungsgrund.Location = New System.Drawing.Point(9, 79)
Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund"
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(61, 13)
Me.lblBehandlungsgrund.TabIndex = 223
Me.lblBehandlungsgrund.Text = "Beh.-Grund"
'
'Benhandungdetail 'Benhandungdetail
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1418,4 +1465,8 @@ Partial Class Benhandungdetail
Friend WithEvents lblGesetz As Label Friend WithEvents lblGesetz As Label
Friend WithEvents cbboxNrGesetz As MyCombobox Friend WithEvents cbboxNrGesetz As MyCombobox
Friend WithEvents DDTBehandlungsbeginn As DevComponents.Editors.DateTimeAdv.DateTimeInput Friend WithEvents DDTBehandlungsbeginn As DevComponents.Editors.DateTimeAdv.DateTimeInput
Friend WithEvents txtBehandlungsgrund As TextBox
Friend WithEvents lblBehandlungsgrund As Label
Friend WithEvents Button1 As Button
Friend WithEvents tsbtnGarantAnzeigen As ToolStripButton
End Class End Class

15
DPM2016/Behandlung/Benhandungdetail.resx
View File

@@ -138,6 +138,21 @@
+BewLlFVVS3I8xxRGKJUGW7uZrh9fBK5vp9BpSlWUYgsy2pBkiS82IU4jvnJgnRjpeder4fJxIXv+/A8 +BewLlFVVS3I8xxRGKJUGW7uZrh9fBK5vp9BpSlWUYgsy2pBkiS82IU4jvnJgnRjpeder4fJxIXv+/A8
rwXtOc4Vd5pnWGCg4Xjs8i9RSrWg0MwIDPo6fV2opkC6yk2BPlbHGI1ACs1MTx/7nU0pp6KEbduFrulY rwXtOc4Vd5pnWGCg4Xjs8i9RSrWg0MwIDPo6fV2opkC6yk2BPlbHGI1ACs1MTx/7nU0pp6KEbduFrulY
1ifZ/XIlNzeApwAAAABJRU5ErkJggg== 1ifZ/XIlNzeApwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnGarantAnzeigen.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> </value>
</data> </data>
</root> </root>

152
DPM2016/Behandlung/Benhandungdetail.vb
View File

@@ -13,11 +13,13 @@
Set(value As Integer) Set(value As Integer)
m_behandlungsnr = value m_behandlungsnr = value
If value <> 0 Then If value <> 0 Then
Me.OnLoad = True
Get_Stammdaten() Get_Stammdaten()
OnGetData = True OnGetData = True
Get_Data() Get_Data()
OnGetData = False OnGetData = False
Recalc_Totale() Recalc_Totale()
Me.OnLoad = False
End If End If
End Set End Set
End Property End Property
@@ -210,6 +212,7 @@
Dim NrAnsprechpartner As Integer = 0 Dim NrAnsprechpartner As Integer = 0
Sub Get_Data() Sub Get_Data()
'Me.lblGarantText.Text = ""
db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString) db.Get_Tabledata("behandlu", " where nrbehandlung=" + Me.Behandlungsnr.ToString)
Dim r As DataRow = db.dsDaten.Tables(0).Rows(0) Dim r As DataRow = db.dsDaten.Tables(0).Rows(0)
Me.Behandlungsstatus = r("status") Me.Behandlungsstatus = r("status")
@@ -229,7 +232,6 @@
Catch ex As Exception Catch ex As Exception
End Try End Try
AddChanges(Me) AddChanges(Me)
Me.HasChanges = False Me.HasChanges = False
End Sub End Sub
@@ -331,16 +333,21 @@
End Sub End Sub
Sub Get_Garantdata(ByVal Key As Integer) Sub Get_Garantdata(ByVal Key As Integer)
Dim db1 As New clsDB
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
If Key > 49999 Then If Key > 49999 Then
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where aktiv=1 and nrfirma=" + Key.ToString + " order by name1") db1.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where aktiv=1 and nrfirma=" + Key.ToString + " order by name1")
'Me.lblGarantText.Text = db.dsDaten.Tables(0).Rows(0).Item("nrfirma").ToString + " - " + db.dsDaten.Tables(0).Rows(0).Item("name1")
Else Else
db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort as Name1 from privat where nrprivat=" + Key.ToString + " and aktiv=1 and garant=1 order by name, vorname") db1.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort +' ('+ltrim(rtrim(str(nrprivat)))+')' as Name1 from privat where nrprivat=" + Key.ToString + " and aktiv=1 and (garant=1 or gesvertreter=1) order by name, vorname")
'Me.lblGarantText.Text = db.dsDaten.Tables(0).Rows(0).Item("nrprivat").ToString + " - " + db.dsDaten.Tables(0).Rows(0).Item("name1")
End If End If
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db1.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
If Key > 49999 Then If Key > 49999 Then
Me.cbboxNrGarant.Displaymember = "name1" Me.cbboxNrGarant.Displaymember = "name1"
@@ -353,7 +360,8 @@
If Key > 49999 Then If Key > 49999 Then
get_ansprechpartner(Key) get_ansprechpartner(Key)
End If End If
db1.Dispose()
Application.DoEvents()
End Sub End Sub
Sub get_ansprechpartner(ByVal key As Integer) Sub get_ansprechpartner(ByVal key As Integer)
@@ -447,6 +455,8 @@
Public Sub Get_Stammdaten() Public Sub Get_Stammdaten()
'Me.OnLoad = True
Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2) Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
Me.cbboxnrbehandler.TableAlias = "Behandler_BH" Me.cbboxnrbehandler.TableAlias = "Behandler_BH"
Me.cbboxnrbehandler.Table = "Behandler" Me.cbboxnrbehandler.Table = "Behandler"
@@ -489,13 +499,13 @@
Me.cbboxNrtaxpunkt.Table = "Taxpunkt" Me.cbboxNrtaxpunkt.Table = "Taxpunkt"
Me.cbboxNrtaxpunkt.Displaymember = "Bezd" Me.cbboxNrtaxpunkt.Displaymember = "Bezd"
Me.cbboxNrtaxpunkt.Valuemember = "nrtaxpunkt" Me.cbboxNrtaxpunkt.Valuemember = "nrtaxpunkt"
Me.OnLoad = True
Me.cbboxrgtext.Dataselection = db.Get_SQL(21) Me.cbboxrgtext.Dataselection = db.Get_SQL(21)
Me.cbboxrgtext.TableAlias = "Rechnungstext" Me.cbboxrgtext.TableAlias = "Rechnungstext"
Me.cbboxrgtext.Table = "Rechtext" Me.cbboxrgtext.Table = "Rechtext"
Me.cbboxrgtext.Displaymember = "Textd" Me.cbboxrgtext.Displaymember = "Textd"
Me.cbboxrgtext.Valuemember = "Nrrechnungstext" Me.cbboxrgtext.Valuemember = "Nrrechnungstext"
Me.OnLoad = False ' Me.OnLoad = False
End Sub End Sub
@@ -623,7 +633,7 @@
End Sub End Sub
Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedValueChanged Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedIndexChanged
If OnGetData Then Exit Sub If OnGetData Then Exit Sub
Try Try
For Each r As DataRow In IntTables.Inttables.Tables("rgtyp").Rows For Each r As DataRow In IntTables.Inttables.Tables("rgtyp").Rows
@@ -717,7 +727,7 @@
Private Sub rbversicherung_CheckedChanged(sender As Object, e As EventArgs) Handles rbversicherung.CheckedChanged Private Sub rbversicherung_CheckedChanged(sender As Object, e As EventArgs) Handles rbversicherung.CheckedChanged
If rbversicherung.Checked Then If rbversicherung.Checked Then
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort as Name1 from firma where vs=1 and aktiv=1 order by name1") db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where vs=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -731,7 +741,7 @@
Private Sub rbfs_CheckedChanged(sender As Object, e As EventArgs) Handles rbfs.CheckedChanged Private Sub rbfs_CheckedChanged(sender As Object, e As EventArgs) Handles rbfs.CheckedChanged
If rbfs.Checked Then If rbfs.Checked Then
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where fs=1 and aktiv=1 order by name1") db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where fs=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -745,7 +755,7 @@
Private Sub rbiv_CheckedChanged(sender As Object, e As EventArgs) Handles rbiv.CheckedChanged Private Sub rbiv_CheckedChanged(sender As Object, e As EventArgs) Handles rbiv.CheckedChanged
If rbiv.Checked Then If rbiv.Checked Then
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where iv=1 and aktiv=1 order by name1") db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where iv=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -758,7 +768,7 @@
Private Sub rbdiverseFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles rbdiverseFirmen.CheckedChanged Private Sub rbdiverseFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles rbdiverseFirmen.CheckedChanged
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where aktiv=1 order by name1") db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -771,7 +781,7 @@
Private Sub rbkk_CheckedChanged(sender As Object, e As EventArgs) Handles rbkk.CheckedChanged Private Sub rbkk_CheckedChanged(sender As Object, e As EventArgs) Handles rbkk.CheckedChanged
If rbkk.Checked Then If rbkk.Checked Then
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort as Name1 from firma where kk=1 and aktiv=1 order by name1") db.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where kk=1 and aktiv=1 order by name1")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -785,7 +795,7 @@
Private Sub rbPrivatPersonen_CheckedChanged(sender As Object, e As EventArgs) Handles rbPrivatPersonen.CheckedChanged Private Sub rbPrivatPersonen_CheckedChanged(sender As Object, e As EventArgs) Handles rbPrivatPersonen.CheckedChanged
If rbPrivatPersonen.Checked Then If rbPrivatPersonen.Checked Then
Dim garantdatan As New DataTable Dim garantdatan As New DataTable
db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort as Name1 from privat where aktiv=1 and garant=1 order by name, vorname") db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort +' ('+ltrim(rtrim(str(nrprivat)))+')' as Name1 from privat where aktiv=1 and (garant=1 or gesvertreter=1) order by name, vorname")
Me.cbboxNrGarant.DataSource = Nothing Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan Me.cbboxNrGarant.DataSource = garantdatan
@@ -830,8 +840,8 @@
End Sub End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click Public Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
Check_Changes() Me.Save_Data()
Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "") Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "")
If result <> 2 And result <> 5 Then 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 If MsgBox("Es können nur abgeschlossene Rechnungen/KV gedruckt und verbucht werden. Abschliessen und drucken/verbuchen?", vbYesNo + vbQuestion) = vbYes Then
@@ -840,7 +850,12 @@
Exit Sub Exit Sub
End If End If
End If End If
If MsgBox("Rechnung drucken und verbuchen?", vbYesNo + vbQuestion) = vbYes Then Dim Meldung As String
If result = 5 Then Meldung = "Kostenvoranschlag drucken?" Else Meldung = "Rechnung drucken und verbuchen?"
If MsgBox(Meldung, vbYesNo + vbQuestion) = vbYes Then
Dim buchen As Boolean = True
If result = 5 Then buchen = False
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
@@ -855,11 +870,13 @@
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report") Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob") Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer Dim hauptfaktura As Integer
Globals.FakturaNr = 0
While doloop = True While doloop = True
For i As Integer = 1 To anzahlraten For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString) Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
f.Visible = False
f.Show() f.Show()
f.Fakturierung(reportnr, Me.Behandlungsnr, "", i) f.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen)
'f.Print_Rechnung(False, False, i) 'f.Print_Rechnung(False, False, i)
f.Close() f.Close()
'If i = 1 Then 'If i = 1 Then
@@ -872,6 +889,7 @@
'End If 'End If
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 Then
buchen = False
reportnr = Folgeauswertung reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString) db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report") Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
@@ -880,15 +898,16 @@
doloop = False doloop = False
End If End If
End While End While
evh.Refresh_Behandlungen(Me.Behandlungsnr)
End If End If
Globals.FakturaNr = 0
End Sub End Sub
Private Sub DesignRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignRechnungToolStripMenuItem.Click Public Sub DesignRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignRechnungToolStripMenuItem.Click
Me.Save_Data()
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
@@ -918,7 +937,8 @@
End While End While
End Sub End Sub
Private Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click Public Sub VorschaRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschaRechnungToolStripMenuItem.Click
Me.Save_Data()
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
@@ -992,6 +1012,7 @@
Private Sub DDTUnfalldatum_KeyDown(sender As Object, e As KeyEventArgs) Handles DDTUnfalldatum.KeyDown, DDTDatum_Kostengutsprache.KeyDown, DDTBehandlungsbeginn.KeyDown, DDTBehandlungsende.KeyDown, DDTRGStellung.KeyDown 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.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}") If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")
End Sub End Sub
@@ -999,6 +1020,93 @@
sender.value = Nothing sender.value = Nothing
End Sub End Sub
Private Sub cbboxNRRGtyp_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedIndexChanged
If OnLoad Then Exit Sub
Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "")
Dim kv As Boolean = False
If result = 3 Or result = 4 Then kv = True
Select Case Me.cbboxNRRGtyp.Text
Case "Dentotar"
If kv Then
result = db.Get_Datavalue("Select nrestyp from estyp where default_bei_kv_dentotar=1")
Me.cbboxNrGesetz.SelectedValue = 2
Else
result = db.Get_Datavalue("Select nrestyp from estyp where default_bei_rg_dentotar=1")
Me.cbboxNrGesetz.SelectedValue = 2
Me.chkMitdatum.Checked = True
End If
Case Else
If kv Then
result = db.Get_Datavalue("Select nrestyp from estyp where default_bei_kv=1")
Me.cbboxNrGesetz.SelectedValue = 1
Else
result = db.Get_Datavalue("Select nrestyp from estyp where default_bei_rg=1")
Me.cbboxNrGesetz.SelectedValue = 1
End If
End Select
Try
Me.cbboxNRESTyp.SelectedValue = result
Catch
End Try
End Sub
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedIndexChanged
End Sub
Private Sub cbboxNRESTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRESTyp.SelectedIndexChanged
Try
For Each r As DataRow In IntTables.Inttables.Tables("estyp").Rows
If r.Item("nrestyp") = cbboxNRESTyp.SelectedValue Then
Me.cbboxNRRGtyp.SelectedValue = r.Item("Default_rgtyp")
End If
Next
Catch
End Try
End Sub
Private Sub lblGarantText_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Me.Cursor = Cursors.WaitCursor
Dim s As String = Me.cbboxNrGarant.SelectedValue
If s > 49999 Then
Dim f As New frmFirma
f.MdiParent = Globals.Mainweindow
f.Show()
f.Firmanr = s
Else
Dim f As New Patient
f.MdiParent = Globals.Mainweindow
f.Show()
f.PatientNr = s
End If
Catch
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub tsbtnGarantAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnGarantAnzeigen.Click
Button1_Click(sender, e)
End Sub

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

@@ -49,6 +49,8 @@ Partial Class Leistungen
Me.intAnzahl = New DevComponents.Editors.IntegerInput() Me.intAnzahl = New DevComponents.Editors.IntegerInput()
Me.lblAnzahl = New System.Windows.Forms.Label() Me.lblAnzahl = New System.Windows.Forms.Label()
Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox() Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox()
Me.txtErgänzung = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtBezD = New System.Windows.Forms.TextBox() Me.txtBezD = New System.Windows.Forms.TextBox()
Me.lblBeschreibung = New System.Windows.Forms.Label() Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.cbboxnrbehandler = New DPM2016.MyCombobox() Me.cbboxnrbehandler = New DPM2016.MyCombobox()
@@ -72,6 +74,7 @@ Partial Class Leistungen
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LeistungsdatumÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
@@ -155,6 +158,7 @@ Partial Class Leistungen
' '
Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv" Me.lbtarif1.BackgroundStyle.Class = "ListBoxAdv"
Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.lbtarif1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbtarif1.CheckStateMember = Nothing
Me.lbtarif1.ContainerControlProcessDialogKey = True Me.lbtarif1.ContainerControlProcessDialogKey = True
Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1 Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill Me.lbtarif1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -175,7 +179,7 @@ Partial Class Leistungen
'TarifdetailsToolStripMenuItem 'TarifdetailsToolStripMenuItem
' '
Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem" Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem"
Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(152, 22) Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails" Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails"
' '
'ToolStrip2 'ToolStrip2
@@ -272,7 +276,7 @@ Partial Class Leistungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(481, 239) Me.TabPage2.Size = New System.Drawing.Size(712, 239)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Leistungspaket" Me.TabPage2.Text = "Leistungspaket"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -285,13 +289,14 @@ Partial Class Leistungen
' '
Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv" Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.lbPakete.CheckStateMember = Nothing
Me.lbPakete.ContainerControlProcessDialogKey = True Me.lbPakete.ContainerControlProcessDialogKey = True
Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbPakete.DragDropSupport = True Me.lbPakete.DragDropSupport = True
Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F" Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.lbPakete.Location = New System.Drawing.Point(3, 33) Me.lbPakete.Location = New System.Drawing.Point(3, 33)
Me.lbPakete.Name = "lbPakete" Me.lbPakete.Name = "lbPakete"
Me.lbPakete.Size = New System.Drawing.Size(475, 203) Me.lbPakete.Size = New System.Drawing.Size(706, 203)
Me.lbPakete.TabIndex = 2 Me.lbPakete.TabIndex = 2
Me.lbPakete.Text = "ListBoxAdv1" Me.lbPakete.Text = "ListBoxAdv1"
' '
@@ -303,7 +308,7 @@ Partial Class Leistungen
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(3, 3) Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(475, 30) Me.Panel1.Size = New System.Drawing.Size(706, 30)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'btnPaketeinfuegen 'btnPaketeinfuegen
@@ -341,6 +346,8 @@ Partial Class Leistungen
' '
'grpLeistungsdetails 'grpLeistungsdetails
' '
Me.grpLeistungsdetails.Controls.Add(Me.txtErgänzung)
Me.grpLeistungsdetails.Controls.Add(Me.Label2)
Me.grpLeistungsdetails.Controls.Add(Me.txtBezD) Me.grpLeistungsdetails.Controls.Add(Me.txtBezD)
Me.grpLeistungsdetails.Controls.Add(Me.lblBeschreibung) Me.grpLeistungsdetails.Controls.Add(Me.lblBeschreibung)
Me.grpLeistungsdetails.Controls.Add(Me.cbboxnrbehandler) Me.grpLeistungsdetails.Controls.Add(Me.cbboxnrbehandler)
@@ -365,13 +372,30 @@ Partial Class Leistungen
Me.grpLeistungsdetails.TabStop = False Me.grpLeistungsdetails.TabStop = False
Me.grpLeistungsdetails.Text = "Leistungsdetails" Me.grpLeistungsdetails.Text = "Leistungsdetails"
' '
'txtErgänzung
'
Me.txtErgänzung.Location = New System.Drawing.Point(85, 166)
Me.txtErgänzung.Multiline = True
Me.txtErgänzung.Name = "txtErgänzung"
Me.txtErgänzung.Size = New System.Drawing.Size(177, 18)
Me.txtErgänzung.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(11, 169)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 24
Me.Label2.Text = "Ergänzung"
'
'txtBezD 'txtBezD
' '
Me.txtBezD.Location = New System.Drawing.Point(85, 115) Me.txtBezD.Location = New System.Drawing.Point(85, 115)
Me.txtBezD.Multiline = True Me.txtBezD.Multiline = True
Me.txtBezD.Name = "txtBezD" Me.txtBezD.Name = "txtBezD"
Me.txtBezD.Size = New System.Drawing.Size(177, 45) Me.txtBezD.Size = New System.Drawing.Size(177, 45)
Me.txtBezD.TabIndex = 6 Me.txtBezD.TabIndex = 3
' '
'lblBeschreibung 'lblBeschreibung
' '
@@ -405,17 +429,17 @@ Partial Class Leistungen
' '
'BtnInsertLeistung 'BtnInsertLeistung
' '
Me.BtnInsertLeistung.Location = New System.Drawing.Point(14, 248) Me.BtnInsertLeistung.Location = New System.Drawing.Point(194, 246)
Me.BtnInsertLeistung.Name = "BtnInsertLeistung" Me.BtnInsertLeistung.Name = "BtnInsertLeistung"
Me.BtnInsertLeistung.Size = New System.Drawing.Size(120, 23) Me.BtnInsertLeistung.Size = New System.Drawing.Size(120, 23)
Me.BtnInsertLeistung.TabIndex = 7 Me.BtnInsertLeistung.TabIndex = 8
Me.BtnInsertLeistung.Text = "Leistung einfügen" Me.BtnInsertLeistung.Text = "Leistung einfügen"
Me.BtnInsertLeistung.UseVisualStyleBackColor = True Me.BtnInsertLeistung.UseVisualStyleBackColor = True
' '
'txtTotal 'txtTotal
' '
Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTotal.Location = New System.Drawing.Point(49, 220) Me.txtTotal.Location = New System.Drawing.Point(49, 246)
Me.txtTotal.Name = "txtTotal" Me.txtTotal.Name = "txtTotal"
Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtTotal.Size = New System.Drawing.Size(92, 13) Me.txtTotal.Size = New System.Drawing.Size(92, 13)
@@ -427,7 +451,7 @@ Partial Class Leistungen
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(11, 220) Me.Label1.Location = New System.Drawing.Point(11, 246)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(36, 13) Me.Label1.Size = New System.Drawing.Size(36, 13)
Me.Label1.TabIndex = 10 Me.Label1.TabIndex = 10
@@ -436,7 +460,7 @@ Partial Class Leistungen
'lblWert 'lblWert
' '
Me.lblWert.AutoSize = True Me.lblWert.AutoSize = True
Me.lblWert.Location = New System.Drawing.Point(11, 196) Me.lblWert.Location = New System.Drawing.Point(11, 220)
Me.lblWert.Name = "lblWert" Me.lblWert.Name = "lblWert"
Me.lblWert.Size = New System.Drawing.Size(30, 13) Me.lblWert.Size = New System.Drawing.Size(30, 13)
Me.lblWert.TabIndex = 9 Me.lblWert.TabIndex = 9
@@ -451,16 +475,16 @@ Partial Class Leistungen
Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.diwert.Increment = 1.0R Me.diwert.Increment = 1.0R
Me.diwert.Location = New System.Drawing.Point(85, 192) Me.diwert.Location = New System.Drawing.Point(85, 216)
Me.diwert.Name = "diwert" Me.diwert.Name = "diwert"
Me.diwert.ShowUpDown = True Me.diwert.ShowUpDown = True
Me.diwert.Size = New System.Drawing.Size(68, 20) Me.diwert.Size = New System.Drawing.Size(68, 20)
Me.diwert.TabIndex = 4 Me.diwert.TabIndex = 7
' '
'lblMenge 'lblMenge
' '
Me.lblMenge.AutoSize = True Me.lblMenge.AutoSize = True
Me.lblMenge.Location = New System.Drawing.Point(11, 169) Me.lblMenge.Location = New System.Drawing.Point(11, 193)
Me.lblMenge.Name = "lblMenge" Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Size = New System.Drawing.Size(40, 13) Me.lblMenge.Size = New System.Drawing.Size(40, 13)
Me.lblMenge.TabIndex = 7 Me.lblMenge.TabIndex = 7
@@ -475,16 +499,16 @@ Partial Class Leistungen
Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIMenge.Increment = 1.0R Me.DIMenge.Increment = 1.0R
Me.DIMenge.Location = New System.Drawing.Point(85, 166) Me.DIMenge.Location = New System.Drawing.Point(85, 190)
Me.DIMenge.Name = "DIMenge" Me.DIMenge.Name = "DIMenge"
Me.DIMenge.ShowUpDown = True Me.DIMenge.ShowUpDown = True
Me.DIMenge.Size = New System.Drawing.Size(68, 20) Me.DIMenge.Size = New System.Drawing.Size(68, 20)
Me.DIMenge.TabIndex = 3 Me.DIMenge.TabIndex = 5
' '
'lblTaxpunkte 'lblTaxpunkte
' '
Me.lblTaxpunkte.AutoSize = True Me.lblTaxpunkte.AutoSize = True
Me.lblTaxpunkte.Location = New System.Drawing.Point(159, 169) Me.lblTaxpunkte.Location = New System.Drawing.Point(159, 193)
Me.lblTaxpunkte.Name = "lblTaxpunkte" Me.lblTaxpunkte.Name = "lblTaxpunkte"
Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13) Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13)
Me.lblTaxpunkte.TabIndex = 5 Me.lblTaxpunkte.TabIndex = 5
@@ -498,11 +522,11 @@ Partial Class Leistungen
Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2 Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
Me.DIPunkte.Increment = 1.0R Me.DIPunkte.Increment = 1.0R
Me.DIPunkte.Location = New System.Drawing.Point(206, 166) Me.DIPunkte.Location = New System.Drawing.Point(206, 190)
Me.DIPunkte.Name = "DIPunkte" Me.DIPunkte.Name = "DIPunkte"
Me.DIPunkte.ShowUpDown = True Me.DIPunkte.ShowUpDown = True
Me.DIPunkte.Size = New System.Drawing.Size(56, 20) Me.DIPunkte.Size = New System.Drawing.Size(56, 20)
Me.DIPunkte.TabIndex = 5 Me.DIPunkte.TabIndex = 6
' '
'txtPosition 'txtPosition
' '
@@ -606,28 +630,34 @@ Partial Class Leistungen
' '
'ctxMenuLeistung 'ctxMenuLeistung
' '
Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem}) Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem, Me.LeistungsdatumÄndernToolStripMenuItem})
Me.ctxMenuLeistung.Name = "ctxMenuLeistung" Me.ctxMenuLeistung.Name = "ctxMenuLeistung"
Me.ctxMenuLeistung.Size = New System.Drawing.Size(131, 70) Me.ctxMenuLeistung.Size = New System.Drawing.Size(200, 92)
' '
'BearbeitenToolStripMenuItem 'BearbeitenToolStripMenuItem
' '
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem" Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(130, 22) Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten" Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten"
' '
'LöschenToolStripMenuItem 'LöschenToolStripMenuItem
' '
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(130, 22) Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.LöschenToolStripMenuItem.Text = "&Löschen" Me.LöschenToolStripMenuItem.Text = "&Löschen"
' '
'AnzeigenToolStripMenuItem 'AnzeigenToolStripMenuItem
' '
Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem" Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(130, 22) Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.AnzeigenToolStripMenuItem.Text = "Anzeigen" Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
' '
'LeistungsdatumÄndernToolStripMenuItem
'
Me.LeistungsdatumÄndernToolStripMenuItem.Name = "LeistungsdatumÄndernToolStripMenuItem"
Me.LeistungsdatumÄndernToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
Me.LeistungsdatumÄndernToolStripMenuItem.Text = "Leistungsdatum ändern"
'
'Panel2 'Panel2
' '
Me.Panel2.Controls.Add(Me.GrpTarif) Me.Panel2.Controls.Add(Me.GrpTarif)
@@ -735,4 +765,7 @@ Partial Class Leistungen
Friend WithEvents ToolStripLabel1 As ToolStripLabel Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents TarifdetailsToolStripMenuItem As ToolStripMenuItem Friend WithEvents TarifdetailsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtErgänzung As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents LeistungsdatumÄndernToolStripMenuItem As ToolStripMenuItem
End Class End Class

2
DPM2016/Behandlung/Leistungen.resx
View File

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

223
DPM2016/Behandlung/Leistungen.vb
View File

@@ -1,4 +1,5 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports C1.Win.C1TrueDBGrid
Public Class Leistungen Public Class Leistungen
@@ -100,12 +101,12 @@ Public Class Leistungen
If Dentotar = True Then If Dentotar = True Then
For Each r As DataRow In IntTables.Inttables.Tables("Tarife").Rows For Each r As DataRow In IntTables.Inttables.Tables("Tarife").Rows
Select Case Trim(r("Bezeichnung")) Select Case Trim(r("Bezeichnung"))
Case "Dentotar" Case "UV_MV_IV"
Dim tn As New DevComponents.AdvTree.Node Dim tn As New DevComponents.AdvTree.Node
tn.Text = r("Bezeichnung") tn.Text = r("Bezeichnung")
Me.TreeTarifGruppen.Nodes.Add(tn) Me.TreeTarifGruppen.Nodes.Add(tn)
Dim sortstring As String = "KapitelNrNeu" Dim sortstring As String = "KapitelNrNeu"
Dim dv As New DataView(IntTables.Inttables.Tables("dentotar"), "Level=1 and KapitelNrNeu<>'00'", sortstring, DataViewRowState.CurrentRows) Dim dv As New DataView(IntTables.Inttables.Tables("dentotar"), "Level=1 and KapitelNrNeu<>'00' and KapitelNrNeu<>'000' ", sortstring, DataViewRowState.CurrentRows)
For Each rowView As DataRowView In dv For Each rowView As DataRowView In dv
Dim r2 As DataRow = rowView.Row Dim r2 As DataRow = rowView.Row
Dim tn1 As New DevComponents.AdvTree.Node Dim tn1 As New DevComponents.AdvTree.Node
@@ -202,7 +203,7 @@ Public Class Leistungen
Try Try
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar")) Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"))
Dim sortstring As String = "leistungnrneu, leistungd" Dim sortstring As String = "leistungnrneu, leistungd"
Dim Wherestring As String = "Level=3 and Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'" Dim Wherestring As String = "Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'"
dv = New DataView(IntTables.Inttables.Tables("dentotar"), Wherestring, sortstring, DataViewRowState.CurrentRows) dv = New DataView(IntTables.Inttables.Tables("dentotar"), Wherestring, sortstring, DataViewRowState.CurrentRows)
Me.lbtarif1.DataSource = Nothing Me.lbtarif1.DataSource = Nothing
Me.lbtarif1.DataSource = dv Me.lbtarif1.DataSource = dv
@@ -223,7 +224,7 @@ Public Class Leistungen
Else Else
SortString = "Nr_Bez desc" SortString = "Nr_Bez desc"
End If End If
dv1 = New DataView(IntTables.Inttables.Tables("Tarif"), "SSO_Nummer >=" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + " and SSO_Nummer <=" + Me.TreeTarifGruppen.SelectedNode.TagString, SortString, DataViewRowState.CurrentRows) dv1 = New DataView(IntTables.Inttables.Tables("Tarif"), "SSO_Nummer >='" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "' and SSO_Nummer <='" + Me.TreeTarifGruppen.SelectedNode.TagString + "'", SortString, DataViewRowState.CurrentRows)
@@ -233,7 +234,7 @@ Public Class Leistungen
lbtarif1.ValueMember = "nrtarif" lbtarif1.ValueMember = "nrtarif"
Catch ex As Exception Catch ex As Exception
'MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
End Sub End Sub
@@ -261,10 +262,74 @@ Public Class Leistungen
End Sub End Sub
Private Sub txtfilter_KeyUp(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyUp Private Sub txtfilter_KeyUp(sender As Object, e As KeyEventArgs) Handles txtfilter.KeyUp
Dim T As New DataTable
T.Columns.Add("NR")
T.Columns.Add("NR_BEZ")
Dim SortString As String = ""
If Dentotar = True Then
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "", "leistungnrneu", DataViewRowState.CurrentRows)
dv1.RowFilter = "nr_bez like '%" + Me.txtfilter.Text + "%'"
For Each rowView As DataRowView In dv1
Dim row As DataRow = rowView.Row
Dim nr As DataRow = T.NewRow
nr.Item(0) = row.Item("leistungnrneu")
nr.Item(1) = row.Item("nr_bez")
T.Rows.Add(nr)
Next
If intSort = 0 Then
SortString = "Nr_Bez asc"
Else
SortString = "Nr_Bez desc"
End If
Dim dv2 As New DataView(IntTables.Inttables.Tables("Tarif"), "", SortString, DataViewRowState.CurrentRows)
dv2.RowFilter = "NR_BEZ like '%" + Me.txtfilter.Text + "%'"
For Each rowView As DataRowView In dv2
Dim row As DataRow = rowView.Row
If row.Item("sso_nummer").ToString > "4999" Then
Dim nr As DataRow = T.NewRow
nr.Item(0) = row.Item("nrtarif")
nr.Item(1) = row.Item("nr_bez")
T.Rows.Add(nr)
End If
Next
Else
Dim dv2 As New DataView(IntTables.Inttables.Tables("Tarif"), "", SortString, DataViewRowState.CurrentRows)
dv2.RowFilter = "NR_BEZ like '%" + Me.txtfilter.Text + "%'"
For Each rowView As DataRowView In dv2
Dim row As DataRow = rowView.Row
Dim nr As DataRow = T.NewRow
nr.Item(0) = row.Item("nrtarif")
nr.Item(1) = row.Item("nr_bez")
T.Rows.Add(nr)
Next
End If
Me.lbtarif1.DataSource = Nothing
Me.lbtarif1.DataSource = T
Me.lbtarif1.DisplayMember = "nr_bez"
Me.lbtarif1.ValueMember = "nr"
Exit Sub
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
If e.KeyCode <> Keys.Enter Then If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing Me.lbtarif1.DataSource = Nothing
Dim sortstring As String 'Dim sortstring As String
Dim wherestring As String Dim wherestring As String
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), "", "leistungnrneu", DataViewRowState.CurrentRows) Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), "", "leistungnrneu", DataViewRowState.CurrentRows)
@@ -272,13 +337,32 @@ Public Class Leistungen
Me.lbtarif1.DataSource = db Me.lbtarif1.DataSource = db
Me.lbtarif1.DisplayMember = "nr_bez" Me.lbtarif1.DisplayMember = "nr_bez"
Me.lbtarif1.ValueMember = "LeistungNrNeu" Me.lbtarif1.ValueMember = "LeistungNrNeu"
Me.lbtarif1.DataSource = Nothing
If intSort = 0 Then
SortString = "Nr_Bez asc"
Else
SortString = "Nr_Bez desc"
End If
Exit Sub
'Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarifgruppe=" + Me.lbtarife.SelectedValue.ToString, SortString, DataViewRowState.CurrentRows)
'Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "SSO_Nummer >=" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + " and SSO_Nummer <=" + Me.TreeTarifGruppen.SelectedNode.TagString, SortString, DataViewRowState.CurrentRows)
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "", SortString, DataViewRowState.CurrentRows)
dv.RowFilter = "NR_BEZ like '%" + Me.txtfilter.Text + "%'"
Me.lbtarif1.DataSource = dv
Me.lbtarif1.DisplayMember = "nr_Bez"
Me.lbtarif1.ValueMember = "nrtarif"
End If End If
Exit Sub Exit Sub
End If End If
If e.KeyCode <> Keys.Enter Then If e.KeyCode <> Keys.Enter Then
Me.lbtarif1.DataSource = Nothing Me.lbtarif1.DataSource = Nothing
Dim SortString As String = "" ' Dim SortString As String = ""
If intSort = 0 Then If intSort = 0 Then
SortString = "Nr_Bez asc" SortString = "Nr_Bez asc"
Else Else
@@ -308,7 +392,28 @@ Public Class Leistungen
End If End If
End Sub End Sub
Private Function Get_Tarifposition(ByVal value As String) As String
Dim sortstring As String = ""
Dim wherestring As String = "Leistungnrneu='" + value + "'"
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
If db.Count > 0 Then
For Each drv As DataRowView In db
Return drv.Item("Leistungnrneu").ToString
Next
Exit Function
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + value, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Return drv.Item("sso_nummer").ToString
Next
End Function
Private Sub lbtarif1_ItemClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemClick Private Sub lbtarif1_ItemClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemClick
Me.txtPosition.Text = Get_Tarifposition(Me.lbtarif1.SelectedValue.ToString)
txtPosition_TextChanged(sender, e)
Exit Sub
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Dim sortstring As String = "" Dim sortstring As String = ""
Dim wherestring As String = "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'" Dim wherestring As String = "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'"
@@ -328,7 +433,7 @@ Public Class Leistungen
End Sub End Sub
Private Sub lbtarif1_ItemDoubleClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemDoubleClick Private Sub lbtarif1_ItemDoubleClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemDoubleClick
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then If Dentotar = True And Me.txtPosition.Text.Substring(0, 1) = 4 Then
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows) Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv1 For Each drv As DataRowView In dv1
Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString
@@ -359,10 +464,22 @@ Public Class Leistungen
Me.cbboxnrbehandler.SelectedValue = Me.behandler Me.cbboxnrbehandler.SelectedValue = Me.behandler
End Try End Try
'Me.cbboxnrbehandler.SelectedValue = Me.behandler 'Me.cbboxnrbehandler.SelectedValue = Me.behandler
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
Dim sortstring As String = "" If Me.Dentotar = True And Me.txtPosition.Text.Substring(0, 1) = "4" Then
Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'" Dim s As String = Me.txtPosition.Text
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows) If s.IndexOf(".") = -1 Then s = s.Substring(0, 1) + "." + s.Substring(1, Len(s) - 1)
If Len(s) < 6 Then
While Len(s) < 6
s = s + "0"
End While
End If
Me.txtPosition.Text = s
End If
Dim sortstring As String = ""
Dim wherestring As String = "LeistungnrNeu='" + Me.txtPosition.Text + "'"
Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
If dv1.Count > 0 Then
Dim dr As DataRowView Dim dr As DataRowView
Try Try
dr = dv1(0) dr = dv1(0)
@@ -395,8 +512,11 @@ Public Class Leistungen
Exit Sub Exit Sub
End Try End Try
Exit Sub
End If End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows)
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + Me.txtPosition.Text.ToString + "'", "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv For Each drv As DataRowView In dv
If drv.Item("Frankenbetrag") < 0.1 Then If drv.Item("Frankenbetrag") < 0.1 Then
Select Case Me.TaxPunkte Select Case Me.TaxPunkte
@@ -474,7 +594,14 @@ Public Class Leistungen
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows) dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
End If End If
Dim drv As DataRowView = dv(0) Dim drv As DataRowView
Try
drv = dv(0)
Catch
MsgBox("Leistungsposition nicht vorhanden.")
Exit Sub
End Try
Dim db As New clsDB Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Leistung") Dim newkey As Integer = db.Get_DBKey("Leistung")
@@ -496,9 +623,9 @@ Public Class Leistungen
r.Item("nrtarif") = 0 r.Item("nrtarif") = 0
r.Item("sso_nummer") = drv("LeistungNrNeu") r.Item("sso_nummer") = drv("LeistungNrNeu")
If SSONummer = "" Then If SSONummer = "" Then
r.Item("bezd") = Me.txtBezD.Text r.Item("bezd") = Me.txtBezD.Text + " " + Me.txtErgänzung.Text
Else Else
r.Item("bezd") = drv("Leistungd") r.Item("bezd") = drv("Leistungd") + " " + Me.txtErgänzung.Text
End If End If
Dim betraginchf As Decimal Dim betraginchf As Decimal
@@ -577,7 +704,7 @@ Public Class Leistungen
interror = 0 interror = 0
Exit Sub Exit Sub
End If End If
If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then If Dentotar = True And Me.txtPosition.Text.Substring(0, 1) = "4" Then
Leistung_Einfuegen_Dentotar(ssonummer, anzahl) Leistung_Einfuegen_Dentotar(ssonummer, anzahl)
Exit Sub Exit Sub
End If End If
@@ -585,9 +712,9 @@ Public Class Leistungen
Dim dv As DataView Dim dv As DataView
If ssonummer = "" Then If ssonummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + Me.txtPosition.Text.ToString, "", DataViewRowState.CurrentRows) dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + Me.txtPosition.Text.ToString + "'", "", DataViewRowState.CurrentRows)
Else Else
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer=" + ssonummer.ToString, "", DataViewRowState.CurrentRows) dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + ssonummer.ToString + "'", "", DataViewRowState.CurrentRows)
End If End If
Dim drv As DataRowView = dv(0) Dim drv As DataRowView = dv(0)
@@ -612,9 +739,9 @@ Public Class Leistungen
r.Item("nrtarif") = drv("Nrtarif") r.Item("nrtarif") = drv("Nrtarif")
r.Item("sso_nummer") = drv("SSO_Nummer") r.Item("sso_nummer") = drv("SSO_Nummer")
If ssonummer = "" Then If ssonummer = "" Then
r.Item("bezd") = Me.txtBezD.Text r.Item("bezd") = Me.txtBezD.Text + " " + Me.txtErgänzung.Text
Else Else
r.Item("bezd") = drv("bezd") r.Item("bezd") = drv("bezd") + " " + Me.txtErgänzung.Text
End If End If
If ssonummer = "" Then If ssonummer = "" Then
@@ -677,7 +804,7 @@ Public Class Leistungen
Sub refresh_leistungen() Sub refresh_leistungen()
Me.C1Leistungen.DataSource = Nothing Me.C1Leistungen.DataSource = Nothing
ldb.dsDaten.Tables.Clear() ldb.dsDaten.Tables.Clear()
ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1") ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1 order by datum desc, sso_nummer asc")
Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0) Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0)
Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0)) spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0))
@@ -842,13 +969,14 @@ Public Class Leistungen
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown 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.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}") If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")
End Sub End Sub
Sub delete_date(sender) Sub delete_date(sender)
sender.value = Nothing sender.value = Nothing
End Sub End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
If Dentotar = True Then Me.TarifdetailsToolStripMenuItem.Enabled = True Else Me.TarifdetailsToolStripMenuItem.Enabled = False If Dentotar = True Then Me.TarifdetailsToolStripMenuItem.Enabled = True Else Me.TarifdetailsToolStripMenuItem.Enabled = False
End Sub End Sub
@@ -857,4 +985,53 @@ Public Class Leistungen
f.Show() f.Show()
f.Update_Data(Me.lbtarif1.SelectedValue.ToString) f.Update_Data(Me.lbtarif1.SelectedValue.ToString)
End Sub End Sub
Private Sub txtfilter_Click(sender As Object, e As EventArgs) Handles txtfilter.Click
End Sub
Private Sub TreeTarifGruppen_Click(sender As Object, e As EventArgs) Handles TreeTarifGruppen.Click
End Sub
Private Sub LeistungsdatumÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeistungsdatumÄndernToolStripMenuItem.Click
Dim f As New frmKalender
f.ShowDialog()
If Me.C1Leistungen.SelectedRows.Count > 0 Then
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
colRows = Me.C1Leistungen.SelectedRows
Dim db As New clsDB
For i As Integer = 0 To colRows.Count - 1
Try
db.Get_Tabledata("Leistung", "where nrleistung=" + Me.C1Leistungen.Columns("nrleistung").CellValue(colRows(i)).ToString)
db.dsDaten.Tables(0).Rows(0).Item("Datum") = f.MaskedTextBox1.Text
db.Update_Data()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
db.Dispose()
refresh_leistungen()
Else
Dim db As New clsDB
db.Get_Tabledata("Leistung", "where nrleistung=" + Me.C1Leistungen.Columns("nrleistung").Value.ToString)
db.dsDaten.Tables(0).Rows(0).Item("Datum") = f.MaskedTextBox1.Text
db.Update_Data()
Me.C1Leistungen.Columns("datum").Value = f.MaskedTextBox1.Text
db.Dispose()
End If
End Sub
Private Sub lbtarif1_DoubleClick(sender As Object, e As EventArgs) Handles lbtarif1.DoubleClick
' Leistung_Einfuegen()
End Sub
Private Sub C1Leistungen_AfterColUpdate(sender As Object, e As ColEventArgs) Handles C1Leistungen.AfterColUpdate
'ldb.dsDaten.AcceptChanges()
Me.C1Leistungen.UpdateData()
ldb.Update_Data()
'ldb.Update_Tabeldata()
End Sub
End Class End Class

2
DPM2016/Behandlung/frmLeistungDetail.vb
View File

@@ -68,6 +68,7 @@
db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt") = Me.diwert.Value db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt") = Me.diwert.Value
db.dsDaten.Tables(0).Rows(0).Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue db.dsDaten.Tables(0).Rows(0).Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
db.dsDaten.Tables(0).Rows(0).Item("total") = Me.txtTotal.Text db.dsDaten.Tables(0).Rows(0).Item("total") = Me.txtTotal.Text
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.Update_Data() db.Update_Data()
Me.Close() Me.Close()
End Sub End Sub
@@ -79,6 +80,7 @@
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown 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.Escape Then delete_date(sender)
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}") If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")
End Sub End Sub
Sub delete_date(sender) Sub delete_date(sender)

72
DPM2016/DPM2016.vbproj
View File

@@ -108,6 +108,10 @@
<Reference Include="PropertyGridEx"> <Reference Include="PropertyGridEx">
<HintPath>..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll</HintPath> <HintPath>..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll</HintPath>
</Reference> </Reference>
<Reference Include="Syncfusion.Compression.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.DocIO.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.DocToPDFConverter.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Pdf.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" /> <Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
@@ -144,12 +148,6 @@
<Import Include="System.Xml.Linq" /> <Import Include="System.Xml.Linq" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="Auswertungen\Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Auswertungen\Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Auswertungen\FremAuswertung.Designer.vb"> <Compile Include="Auswertungen\FremAuswertung.Designer.vb">
<DependentUpon>FremAuswertung.vb</DependentUpon> <DependentUpon>FremAuswertung.vb</DependentUpon>
</Compile> </Compile>
@@ -220,6 +218,12 @@
<Compile Include="Finanzaen\Finanzen.vb"> <Compile Include="Finanzaen\Finanzen.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="Finanzaen\frmMahnungen.Designer.vb">
<DependentUpon>frmMahnungen.vb</DependentUpon>
</Compile>
<Compile Include="Finanzaen\frmMahnungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Firmen\frmFirma.Designer.vb"> <Compile Include="Firmen\frmFirma.Designer.vb">
<DependentUpon>frmFirma.vb</DependentUpon> <DependentUpon>frmFirma.vb</DependentUpon>
</Compile> </Compile>
@@ -250,6 +254,7 @@
<Compile Include="Klassen\MyCombobox.vb"> <Compile Include="Klassen\MyCombobox.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="Klassen\MySecurity.vb" />
<Compile Include="Patient\Patient.Designer.vb"> <Compile Include="Patient\Patient.Designer.vb">
<DependentUpon>Patient.vb</DependentUpon> <DependentUpon>Patient.vb</DependentUpon>
</Compile> </Compile>
@@ -337,6 +342,12 @@
<Compile Include="Sysadmin\frmSysadminTableSelector.vb"> <Compile Include="Sysadmin\frmSysadminTableSelector.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Sysadmin\frmTarifDetail.Designer.vb">
<DependentUpon>frmTarifDetail.vb</DependentUpon>
</Compile>
<Compile Include="Sysadmin\frmTarifDetail.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\clsLog.vb" /> <Compile Include="Utils\clsLog.vb" />
<Compile Include="Utils\Crypto.vb" /> <Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\frmDBConnection.Designer.vb"> <Compile Include="Utils\frmDBConnection.Designer.vb">
@@ -351,6 +362,24 @@
<Compile Include="Utils\frmDentotarDetails.vb"> <Compile Include="Utils\frmDentotarDetails.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Utils\frmFormSelector.designer.vb">
<DependentUpon>frmFormSelector.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmFormSelector.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmFortschritt.Designer.vb">
<DependentUpon>frmFortschritt.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmFortschritt.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmKalender.Designer.vb">
<DependentUpon>frmKalender.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmKalender.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\frmLogin.Designer.vb"> <Compile Include="Utils\frmLogin.Designer.vb">
<DependentUpon>frmLogin.vb</DependentUpon> <DependentUpon>frmLogin.vb</DependentUpon>
</Compile> </Compile>
@@ -363,6 +392,12 @@
<Compile Include="Utils\frmSplash.vb"> <Compile Include="Utils\frmSplash.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Utils\frmSuche.Designer.vb">
<DependentUpon>frmSuche.vb</DependentUpon>
</Compile>
<Compile Include="Utils\frmSuche.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\Globals.vb" /> <Compile Include="Utils\Globals.vb" />
<Compile Include="Utils\SplashForm.Designer.vb"> <Compile Include="Utils\SplashForm.Designer.vb">
<DependentUpon>SplashForm.vb</DependentUpon> <DependentUpon>SplashForm.vb</DependentUpon>
@@ -378,9 +413,6 @@
</Compile> </Compile>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<EmbeddedResource Include="Auswertungen\Form2.resx">
<DependentUpon>Form2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Auswertungen\FremAuswertung.resx"> <EmbeddedResource Include="Auswertungen\FremAuswertung.resx">
<DependentUpon>FremAuswertung.vb</DependentUpon> <DependentUpon>FremAuswertung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -414,6 +446,9 @@
<EmbeddedResource Include="Finanzaen\Finanzen.resx"> <EmbeddedResource Include="Finanzaen\Finanzen.resx">
<DependentUpon>Finanzen.vb</DependentUpon> <DependentUpon>Finanzen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Finanzaen\frmMahnungen.resx">
<DependentUpon>frmMahnungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Firmen\frmFirma.resx"> <EmbeddedResource Include="Firmen\frmFirma.resx">
<DependentUpon>frmFirma.vb</DependentUpon> <DependentUpon>frmFirma.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -467,18 +502,33 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx" /> <EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx" />
<EmbeddedResource Include="Sysadmin\frmTarifDetail.resx">
<DependentUpon>frmTarifDetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmDBConnection.resx"> <EmbeddedResource Include="Utils\frmDBConnection.resx">
<DependentUpon>frmDBConnection.vb</DependentUpon> <DependentUpon>frmDBConnection.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Utils\frmDentotarDetails.resx"> <EmbeddedResource Include="Utils\frmDentotarDetails.resx">
<DependentUpon>frmDentotarDetails.vb</DependentUpon> <DependentUpon>frmDentotarDetails.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Utils\frmFormSelector.resx">
<DependentUpon>frmFormSelector.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmFortschritt.resx">
<DependentUpon>frmFortschritt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmKalender.resx">
<DependentUpon>frmKalender.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\frmLogin.resx"> <EmbeddedResource Include="Utils\frmLogin.resx">
<DependentUpon>frmLogin.vb</DependentUpon> <DependentUpon>frmLogin.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Utils\frmSplash.resx"> <EmbeddedResource Include="Utils\frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon> <DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Utils\frmSuche.resx">
<DependentUpon>frmSuche.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Utils\SplashForm.resx"> <EmbeddedResource Include="Utils\SplashForm.resx">
<DependentUpon>SplashForm.vb</DependentUpon> <DependentUpon>SplashForm.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -487,7 +537,9 @@
</EmbeddedResource> </EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="app.config" /> <None Include="app.config">
<SubType>Designer</SubType>
</None>
<None Include="My Project\app.manifest" /> <None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>

46
DPM2016/Database/clsDB.vb
View File

@@ -262,6 +262,26 @@ Public Class clsDB
End Function End Function
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlugnsnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, typ))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region #End Region
#Region "Spalten" #Region "Spalten"
@@ -321,6 +341,7 @@ Public Class clsDB
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
Select Case Type Select Case Type
Case "Patient" Case "Patient"
If IsNumeric(Searchstring) Then If IsNumeric(Searchstring) Then
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort") Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then If dsDaten.Tables(0).Rows.Count = 0 Then
@@ -338,6 +359,7 @@ Public Class clsDB
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat")) Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
Else Else
Dim f As New frmPrivatSelect Dim f As New frmPrivatSelect
f.Text = "Patient-Suche"
f.TreeView1.Nodes.Clear() f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows For Each r As DataRow In dsDaten.Tables(0).Rows
@@ -374,6 +396,7 @@ Public Class clsDB
Return (dsDaten.Tables(0).Rows(0).Item("nrfirma")) Return (dsDaten.Tables(0).Rows(0).Item("nrfirma"))
Else Else
Dim f As New frmPrivatSelect Dim f As New frmPrivatSelect
f.Text = "Firmensuche"
f.TreeView1.Nodes.Clear() f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows For Each r As DataRow In dsDaten.Tables(0).Rows
@@ -431,6 +454,8 @@ Public Class clsDB
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20)) Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
Case "Recall" Case "Recall"
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31)) Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
Case "Tarif"
Me.Get_Tabledata("Tarif", "", "Select top 1 nrtarif+1 from tarif order by nrtarif desc")
End Select End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0) Return Me.dsDaten.Tables(0).Rows(0).Item(0)
@@ -582,6 +607,19 @@ Public Class clsDB
End Try End Try
End Function End Function
Public Function Get_ReportNr_by_ESTypnr(ByVal ESTypNr As String) As Integer
Try
Get_Tabledata("ESTyp", "where nrestyp=" + ESTypNr)
Get_Tabledata("Auswertung", "where es_typ='" + dsDaten.Tables(0).Rows(0).Item("estyp") + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
#End Region #End Region
#Region "Fakturierung" #Region "Fakturierung"
@@ -716,5 +754,13 @@ Public Class clsDB
Update_Data() Update_Data()
End Sub End Sub
#End Region
#Region "Security"
Public Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
Get_Tabledata("SecurityObject", "SecurityForm='" + securityform + "' and securityobjecttype='" + securityobjecttype + "' and securityobject='" + securityobject + "' and securityobjectitem='" + securityobjectitem + "? and aktiv=1")
If dsDaten.Tables(0).Rows.Count > 0 Then Return True Else Return False
End Function
#End Region #End Region
End Class End Class

6
DPM2016/Database/frmPrivatSelect.vb
View File

@@ -35,4 +35,10 @@ Public Class frmPrivatSelect
Me.DialogResult = DialogResult.Abort Me.DialogResult = DialogResult.Abort
Me.Close() Me.Close()
End Sub End Sub
Private Sub TreeView1_KeyDown(sender As Object, e As KeyEventArgs) Handles TreeView1.KeyDown
If e.KeyCode = Keys.Enter Then
TreeView1_DoubleClick(sender, e)
End If
End Sub
End Class End Class

10
DPM2016/EventHandler/Generic_Event_Handler.vb
View File

@@ -12,6 +12,8 @@ Public Class Generic_Event_Handler
Public Event Behandlung_Abschliessen(ByVal behandlungsnummer As Integer, patient 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 Behandlung_Zurücksetzen(ByVal behandlungsnummer As Integer, patient As Integer)
Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer) Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer)
Public Event Refresh_PrinterConfig()
Public Event Refresh_Behandlung(behandlungsnr As Integer)
Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer) Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer)
RaiseEvent PatName_Changed(name, nr) RaiseEvent PatName_Changed(name, nr)
@@ -55,5 +57,13 @@ Public Class Generic_Event_Handler
Public Function Fire_Recall_Anzeigen(ByVal datum As DateTime, ByVal patient As Integer, ByVal behandler As Integer) Public Function Fire_Recall_Anzeigen(ByVal datum As DateTime, ByVal patient As Integer, ByVal behandler As Integer)
RaiseEvent Recall_Anzeigen(datum, patient, behandler) RaiseEvent Recall_Anzeigen(datum, patient, behandler)
End Function End Function
Public Function Fire_Refresh_PrinterConfig()
RaiseEvent Refresh_PrinterConfig()
End Function
Public Function Refresh_Behandlungen(ByVal Behandlungsnr As Integer)
RaiseEvent Refresh_Behandlung(Behandlungsnr)
End Function
End Class End Class

66
DPM2016/Fakturierung/frmFakturierung.resx
View File

@@ -258,37 +258,37 @@
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6dtTu71q14knAILnV0W7dL
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg UTHFcimIUm5ERfCgcgYSwh0MBAIEcnBIgAAJATnDTWhZmpZyKvclrrLdtquO3d1x/3G709p+98lrzAyG
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX adVO/avfmc88T95n5n0/z/P7ve9kzU95XuHIPjbtHfu7e9vgtd/oLz2/WAeqwhixnffnlv+F2MIPl7hc
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY 7s/0Sw+TXPE3Glt+XWvL7PhqU3jHV/6CCW1cxQJNv/zMsfFueNnKV6V2Y3eid/4LzNz9Em+G1sDao2Ll
eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9 KbAqFrSDM7dQ3z2Gy11j0E7+A4nyea1++ZliGVDLsApQfsYpH4F2+R7+svwfwj1Y+5QaC9BOVX0tVfRC
kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN UtVJUdWshe6afvmpwmBof77dX8mzCWt6IO9bQufcbXTM3kI72aButPIqIgI5KwVsQnqQW6o2IKt7D1bH
iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ G6FffuJY+1XRt/tXD53I7EXD8A3Uj9w0cFk/Wh4TYf3jAjtOtSFD2mCgSNENS3/VUwlY+an8rP1q76VX
1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq D0OpXUTVBwuERVQTdOOjuYWH0FhAt9tkocpAQUU7LHyqnkhgV5By7XY/pdyZyf1Wor6Ckq4JXOqeQqlm
nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ GjIdvTMP0cygjIzmbgJjAd1uWfwqsLMUFIKSFph5yr5XwNJf8ZqFf/VSqKAbouYhFDQPQ6weg6TtKqTt
+zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD 4yjsmEBR56QB3W+zQ5lYv5e9UsDCuxKxmdVgZRMRQlaJGnSPwu8QwAtW/tXMN47X/I9drEGGog/8Gi0E
sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI dQPIbRiCsGkU+c1XIFJfhah1nDDxEPU4aC4XVxF4R4a47Fqwc+opsks7QD8iWlXAPEi5wdKnssc1pg7x
KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz ha1ILOlESpkG3Mo+8BRa8FUDyL48TETGkNd0FcLmcSIzQUYd4zB1SjUWMD9WCFZuE+KFLRSCcg3M3POM
EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC BCx8K122B5Td8U1QIpycVFReA2LFasQXdyJJ1os0eT8uKj5CpmqYSFxBTuM4cpsmkdc8RaGbm76dtIqA
ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl RwE4Be1IEHchUdINftn7MDucZRCw8Wn8paVXmXAPQ/aNP0eGk8kyhHArcZ5fiwgizhS3EwkNksr6kVY5
AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m AF7NCPh14xA0TCKnaZo8eMaA6UHOKgLuOUiQahAveQ8ROV04HFkFuivPIGB+7FKffUgRvGLE8IoWw5sp
DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv RWCCDMFpCpzj1yMirxVMSQ/iL/UjWf4x0pVjyKybQHb9NBGYJbufM0A7yCICISsFzA7z4clphHdiG4Vn
hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2 fCPoLqkGATMPabVtkAhvnbgIlzNZcH9XCC9mMQIS5AhOr8X57BZEFnQjrrgfieVD4CquIqN2CtkNs8ht
L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM XoCwZZEiX70ImkOssQDdNR1BPA1OZfZRHOf1gO6UuKIHaIeywiwYvPub7c6DzgjH656pOBiSD09mBU6k
q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt 1iOMnFxckRYp8hFk1JC6N85B3LpEXr8buNSzTL4NBDLSHaJXEXBOxlnhh7ggGqTQzWmObKMmpDmm/GGb
LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7 c8rUDrckWDqxsdMjHbaB+XA4WwZ3Zh18UzoRzO/DuwWDiC0ZR1LlHC6qroNffxNZDcvgN96EKSMC660f
hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmuX/8pMAcOpDRO4RXwZDUikNuNMOH7iJKOIKF8 E6A5cRBVPAqWbJIismiUNEuMkYAulq6Rv9p0gFXwKsPhmz8H5MCOlMYxrAIerEYEcLsRKvgAkZIRxJdP
Ghk1SxA2fQxxx21IOu4gv+MzInDRVGDbW3FgV0yBW3OdglU+hW1vRq4q8DibHCJcLZxi7jLOF8IlogrH I71mCYKmTyDquAVxx23kd3xOBC4YC2x7Oxbsiilwa65RsMqnsO2tiFUFHmWTXbiLmWP0Hca5QjiHV+EY
2U0IytDibK4O0YVjSFTMglf3F4haP0NJ7z9Q+t6/INXehfmBcCLg+YTAwWgkq+YhbP6YIkk5j62M8G8V uwmB6RqcydUiqnAMCfJZ8Or+CmHr5yjp/SdK3/83JJo7MD0QRgQ8HhNwiEKSch6C5k8oEhXz2MoI+04B
0MfMIXzDBvuwrjdCcuCdoiECPTibQwRko0ismAGv9gbyNJ+isOceirWfQ9xzB9sOnDMV2EKOJbXuOiSd XUzswjZssA3tejM4B17JaiLQgzM5REA6ioSKGfBqryNP/RkKe+6iWPMFRD23se3AWWOBLeRYUuquQdx5
dyhSa69ji+PZ7xR4nFdeC460cQn7jy+vDaGkBBGSYaqUacpFqv65LZ9QIoK2T7DVMcxUYDOxSqlbomql myKl9hq22J/5XoFHeeW1oAgr59D/+vDaEEJKEC4epkqZqlik6p/b8iklkt32KbbahxoLbCZWyXVLVK10
J4UIbNof8tQC+qzb5bfT7PXgWRe2AuHSQcQUjVF9kFa9gAz1EtWM6Q03sZnc10Rg4/4z4KgXqIbRwyHl JBOBTfuDn1hAl3W7fHeavBE068yWI0wyiOiiMaoPUqsXkK5aopoxreEGNpP7Ggls3H8aHNUC1TA6OKQc
MNt38pkE9KHRTr+87tW3ZTv9Ur4JLRqgeiG+dAIJZdPgEBkWue/GfadMBbbSgr+KVs0gXbVIEUXmv6V5 JvtOPJWALjTaqRfXvfqOdKdv8rchRQNUL8SVTiC+bBocIsMi992476SxwFZa0NdRyhmkKRcpIsn89zTP
PddfMn1+vcPTfd0f/e4d5bfgYuEoIslboedi2TjM9gZjje3elQLHziQPBkrbEVszj1j1PNwza2Bp7/Oh Z/pLpsvvdni4rfuT790j/BZcKBxFBHkrdFwoG4fJ3iCssd67UuDo6aTBAEk7YmrmEaOah1tGDcxtvT/S
Yfm5snbnUbNf2Lppd5Mv5ynZAEIF/TgjG8IrDgGmAkxuvvWxkITBLXaBDzfa2T203e87sMsx2MKw/H3y Lz9T1u48YvKStatmN/lynpQOICS7H6elQ3jFzt9YgMnNtzwaHD+4xSbgwUYbmwfW+30GdtkHmemXf0he
0lpLp9hf7T72hQuPfCcUY6QHgkxL8P/Oz+n7dr9Mc5xncCSwD4x7sGfP+Z8Yll5c9A91jhEe3ssS/95w WGvuGPPb3Ue/dOaR74R8jPRAoHEJfuz8mr5v94s0+3kGRwzbgNj7e/ac+4V+6flF91CnaMGhvSzRH/WX
6YeQrFnzP84KtrvywWJtAAAAAElFTkSuQmCC fgrJmjX/B6getrXatE37AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -434,7 +434,7 @@
</value> </value>
</data> </data>
<data name="C1Abgeschlossen.PropBag" xml:space="preserve"> <data name="C1Abgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="C1Ausgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1Ausgeschlossen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -473,7 +473,7 @@
</value> </value>
</data> </data>
<data name="C1Ausgeschlossen.PropBag" xml:space="preserve"> <data name="C1Ausgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 765, 140&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 765, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

56
DPM2016/Fakturierung/frmFakturierung.vb
View File

@@ -17,8 +17,26 @@
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
If MsgBox("Fakturierung ausführen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub If MsgBox("Fakturierung ausführen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Dim fp As New frmFortschritt
fp.Show()
Dim dt As New DataTable Dim dt As New DataTable
dt = Me.C1Abgeschlossen.DataSource dt = Me.C1Abgeschlossen.DataSource
fp.ProgressBar1.Minimum = 1
fp.ProgressBar1.Maximum = dt.Rows.Count + 1
fp.ProgressBar1.Value = 1
For Each r In dt.Rows
Faktura_Aufbereiten(r)
fp.ProgressBar1.Value = fp.ProgressBar1.Value + 1
fp.Refresh()
Next
fp.Close()
Me.Close()
Exit Sub
Dim f As New frmReportView() Dim f As New frmReportView()
For Each r In dt.Rows For Each r In dt.Rows
If r.item("raten") > 0 Then If r.item("raten") > 0 Then
@@ -34,6 +52,44 @@
f.Close() f.Close()
End Sub End Sub
Sub Faktura_Aufbereiten(ByVal r As DataRow)
Dim buchen As Boolean = True
Dim anzahlraten As Integer = 0
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
Globals.FakturaNr = 0
Dim reportnr As Integer
reportnr = db.Get_ReportNr_by_ESTypnr(r.Item("nrestyp"))
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 = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString)
f.Show()
f.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen)
'f.Print_Rechnung(False, False, i)
f.Close()
Next i
If Folgeauswertung > 0 Then
buchen = False
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
Globals.FakturaNr = 0
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
Dim f As New frmPrinterselect Dim f As New frmPrinterselect
f.MdiParent = Me.MdiParent f.MdiParent = Me.MdiParent

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

@@ -30,7 +30,6 @@ Partial Class Finanzen
Me.btnBuchen = New System.Windows.Forms.Button() Me.btnBuchen = New System.Windows.Forms.Button()
Me.chkVorauszahlung = New System.Windows.Forms.CheckBox() Me.chkVorauszahlung = New System.Windows.Forms.CheckBox()
Me.lblVorauszahlung = New System.Windows.Forms.Label() Me.lblVorauszahlung = New System.Windows.Forms.Label()
Me.cbboxKonto = New DPM2016.MyCombobox()
Me.lblKonto = New System.Windows.Forms.Label() Me.lblKonto = New System.Windows.Forms.Label()
Me.lblBetrag = New System.Windows.Forms.Label() Me.lblBetrag = New System.Windows.Forms.Label()
Me.diBetrag = New DevComponents.Editors.DoubleInput() Me.diBetrag = New DevComponents.Editors.DoubleInput()
@@ -48,6 +47,27 @@ Partial Class Finanzen
Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Mahndatum1 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit1 = New System.Windows.Forms.Label()
Me.Mahngebühr1 = New System.Windows.Forms.Label()
Me.Mahngebühr2 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit2 = New System.Windows.Forms.Label()
Me.Mahndatum2 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Mahngebühr3 = New System.Windows.Forms.Label()
Me.Mahnfaelligkeit3 = New System.Windows.Forms.Label()
Me.Mahndatum3 = New System.Windows.Forms.Label()
Me.btnZurücksetzen1 = New System.Windows.Forms.Button()
Me.btnzurücksetzen2 = New System.Windows.Forms.Button()
Me.btnzurücksetzen3 = New System.Windows.Forms.Button()
Me.cbboxKonto = New DPM2016.MyCombobox()
Me.GrpZahlung.SuspendLayout() Me.GrpZahlung.SuspendLayout()
CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -57,6 +77,7 @@ Partial Class Finanzen
Me.GrpBehandlungen.SuspendLayout() Me.GrpBehandlungen.SuspendLayout()
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
@@ -124,18 +145,6 @@ Partial Class Finanzen
Me.lblVorauszahlung.TabIndex = 17 Me.lblVorauszahlung.TabIndex = 17
Me.lblVorauszahlung.Text = "Vorauszahlung" Me.lblVorauszahlung.Text = "Vorauszahlung"
' '
'cbboxKonto
'
Me.cbboxKonto.Dataselection = Nothing
Me.cbboxKonto.Displaymember = Nothing
Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
Me.cbboxKonto.Name = "cbboxKonto"
Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
Me.cbboxKonto.TabIndex = 15
Me.cbboxKonto.Table = Nothing
Me.cbboxKonto.TableAlias = ""
Me.cbboxKonto.Valuemember = Nothing
'
'lblKonto 'lblKonto
' '
Me.lblKonto.AutoSize = True Me.lblKonto.AutoSize = True
@@ -245,7 +254,7 @@ Partial Class Finanzen
Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25) Me.GrpZahlungen.Location = New System.Drawing.Point(345, 25)
Me.GrpZahlungen.Name = "GrpZahlungen" Me.GrpZahlungen.Name = "GrpZahlungen"
Me.GrpZahlungen.Size = New System.Drawing.Size(645, 401) Me.GrpZahlungen.Size = New System.Drawing.Size(645, 302)
Me.GrpZahlungen.TabIndex = 2 Me.GrpZahlungen.TabIndex = 2
Me.GrpZahlungen.TabStop = False Me.GrpZahlungen.TabStop = False
Me.GrpZahlungen.Text = "Verbuchte Zahlungen" Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
@@ -264,7 +273,7 @@ Partial Class Finanzen
Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Zahlungen.Size = New System.Drawing.Size(639, 382) Me.C1Zahlungen.Size = New System.Drawing.Size(639, 283)
Me.C1Zahlungen.TabIndex = 3 Me.C1Zahlungen.TabIndex = 3
Me.C1Zahlungen.Text = "C1TrueDBGrid1" Me.C1Zahlungen.Text = "C1TrueDBGrid1"
Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag") Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
@@ -296,10 +305,10 @@ Partial Class Finanzen
'GrpBehandlungen 'GrpBehandlungen
' '
Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen) Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Fill Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 426) Me.GrpBehandlungen.Location = New System.Drawing.Point(345, 327)
Me.GrpBehandlungen.Name = "GrpBehandlungen" Me.GrpBehandlungen.Name = "GrpBehandlungen"
Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 161) Me.GrpBehandlungen.Size = New System.Drawing.Size(645, 139)
Me.GrpBehandlungen.TabIndex = 3 Me.GrpBehandlungen.TabIndex = 3
Me.GrpBehandlungen.TabStop = False Me.GrpBehandlungen.TabStop = False
Me.GrpBehandlungen.Text = "Offene Rechnungen" Me.GrpBehandlungen.Text = "Offene Rechnungen"
@@ -318,7 +327,7 @@ Partial Class Finanzen
Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 142) Me.C1OffeneRechnungen.Size = New System.Drawing.Size(639, 120)
Me.C1OffeneRechnungen.TabIndex = 4 Me.C1OffeneRechnungen.TabIndex = 4
Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen" Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag") Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
@@ -335,10 +344,227 @@ Partial Class Finanzen
Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(161, 22)
Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen" Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen"
' '
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btnzurücksetzen3)
Me.GroupBox1.Controls.Add(Me.btnzurücksetzen2)
Me.GroupBox1.Controls.Add(Me.btnZurücksetzen1)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.Mahngebühr3)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit3)
Me.GroupBox1.Controls.Add(Me.Mahndatum3)
Me.GroupBox1.Controls.Add(Me.Label9)
Me.GroupBox1.Controls.Add(Me.Mahngebühr2)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit2)
Me.GroupBox1.Controls.Add(Me.Mahndatum2)
Me.GroupBox1.Controls.Add(Me.Mahngebühr1)
Me.GroupBox1.Controls.Add(Me.Mahnfaelligkeit1)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Mahndatum1)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(345, 466)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(645, 121)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Mahnungen"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(77, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Mahndatum"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(175, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(86, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Mahnfälligkeit"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(292, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(77, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Mahngebühr"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(7, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Stufe"
'
'Mahndatum1
'
Me.Mahndatum1.AutoSize = True
Me.Mahndatum1.Location = New System.Drawing.Point(77, 44)
Me.Mahndatum1.Name = "Mahndatum1"
Me.Mahndatum1.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum1.TabIndex = 4
Me.Mahndatum1.Text = "Label5"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(7, 44)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(13, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "1"
'
'Mahnfaelligkeit1
'
Me.Mahnfaelligkeit1.AutoSize = True
Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(175, 44)
Me.Mahnfaelligkeit1.Name = "Mahnfaelligkeit1"
Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit1.TabIndex = 6
Me.Mahnfaelligkeit1.Text = "Label7"
'
'Mahngebühr1
'
Me.Mahngebühr1.AutoSize = True
Me.Mahngebühr1.Location = New System.Drawing.Point(292, 44)
Me.Mahngebühr1.Name = "Mahngebühr1"
Me.Mahngebühr1.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr1.TabIndex = 7
Me.Mahngebühr1.Text = "Label8"
'
'Mahngebühr2
'
Me.Mahngebühr2.AutoSize = True
Me.Mahngebühr2.Location = New System.Drawing.Point(292, 67)
Me.Mahngebühr2.Name = "Mahngebühr2"
Me.Mahngebühr2.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr2.TabIndex = 10
Me.Mahngebühr2.Text = "Label8"
'
'Mahnfaelligkeit2
'
Me.Mahnfaelligkeit2.AutoSize = True
Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(175, 66)
Me.Mahnfaelligkeit2.Name = "Mahnfaelligkeit2"
Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(39, 13)
Me.Mahnfaelligkeit2.TabIndex = 9
Me.Mahnfaelligkeit2.Text = "Label7"
'
'Mahndatum2
'
Me.Mahndatum2.AutoSize = True
Me.Mahndatum2.Location = New System.Drawing.Point(77, 66)
Me.Mahndatum2.Name = "Mahndatum2"
Me.Mahndatum2.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum2.TabIndex = 8
Me.Mahndatum2.Text = "Label5"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(7, 67)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(13, 13)
Me.Label9.TabIndex = 11
Me.Label9.Text = "2"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(7, 90)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(13, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "3"
'
'Mahngebühr3
'
Me.Mahngebühr3.AutoSize = True
Me.Mahngebühr3.Location = New System.Drawing.Point(292, 90)
Me.Mahngebühr3.Name = "Mahngebühr3"
Me.Mahngebühr3.Size = New System.Drawing.Size(39, 13)
Me.Mahngebühr3.TabIndex = 14
Me.Mahngebühr3.Text = "Label8"
'
'Mahnfaelligkeit3
'
Me.Mahnfaelligkeit3.AutoSize = True
Me.Mahnfaelligkeit3.Location = New System.Drawing.Point(175, 89)
Me.Mahnfaelligkeit3.Name = "Mahnfaelligkeit3"
Me.Mahnfaelligkeit3.Size = New System.Drawing.Size(45, 13)
Me.Mahnfaelligkeit3.TabIndex = 13
Me.Mahnfaelligkeit3.Text = "Label12"
'
'Mahndatum3
'
Me.Mahndatum3.AutoSize = True
Me.Mahndatum3.Location = New System.Drawing.Point(77, 89)
Me.Mahndatum3.Name = "Mahndatum3"
Me.Mahndatum3.Size = New System.Drawing.Size(39, 13)
Me.Mahndatum3.TabIndex = 12
Me.Mahndatum3.Text = "Label5"
'
'btnZurücksetzen1
'
Me.btnZurücksetzen1.Location = New System.Drawing.Point(379, 39)
Me.btnZurücksetzen1.Name = "btnZurücksetzen1"
Me.btnZurücksetzen1.Size = New System.Drawing.Size(98, 23)
Me.btnZurücksetzen1.TabIndex = 16
Me.btnZurücksetzen1.Text = "Zurücksetzen"
Me.btnZurücksetzen1.UseVisualStyleBackColor = True
'
'btnzurücksetzen2
'
Me.btnzurücksetzen2.Location = New System.Drawing.Point(379, 62)
Me.btnzurücksetzen2.Name = "btnzurücksetzen2"
Me.btnzurücksetzen2.Size = New System.Drawing.Size(98, 23)
Me.btnzurücksetzen2.TabIndex = 17
Me.btnzurücksetzen2.Text = "Zurücksetzen"
Me.btnzurücksetzen2.UseVisualStyleBackColor = True
'
'btnzurücksetzen3
'
Me.btnzurücksetzen3.Location = New System.Drawing.Point(379, 85)
Me.btnzurücksetzen3.Name = "btnzurücksetzen3"
Me.btnzurücksetzen3.Size = New System.Drawing.Size(98, 23)
Me.btnzurücksetzen3.TabIndex = 18
Me.btnzurücksetzen3.Text = "Zurücksetzen"
Me.btnzurücksetzen3.UseVisualStyleBackColor = True
'
'cbboxKonto
'
Me.cbboxKonto.Dataselection = Nothing
Me.cbboxKonto.Displaymember = Nothing
Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
Me.cbboxKonto.Name = "cbboxKonto"
Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
Me.cbboxKonto.TabIndex = 15
Me.cbboxKonto.Table = Nothing
Me.cbboxKonto.TableAlias = ""
Me.cbboxKonto.Valuemember = Nothing
'
'Finanzen 'Finanzen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.GrpBehandlungen) Me.Controls.Add(Me.GrpBehandlungen)
Me.Controls.Add(Me.GrpZahlungen) Me.Controls.Add(Me.GrpZahlungen)
Me.Controls.Add(Me.GrpZahlung) Me.Controls.Add(Me.GrpZahlung)
@@ -355,6 +581,8 @@ Partial Class Finanzen
Me.GrpBehandlungen.ResumeLayout(False) Me.GrpBehandlungen.ResumeLayout(False)
CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1OffeneRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -383,4 +611,24 @@ Partial Class Finanzen
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents VorauszahlungAnBehandlungZuweisenToolStripMenuItem As ToolStripMenuItem Friend WithEvents VorauszahlungAnBehandlungZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorauszahlungVonBehandlungLösenToolStripMenuItem As ToolStripMenuItem Friend WithEvents VorauszahlungVonBehandlungLösenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents Label10 As Label
Friend WithEvents Mahngebühr3 As Label
Friend WithEvents Mahnfaelligkeit3 As Label
Friend WithEvents Mahndatum3 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Mahngebühr2 As Label
Friend WithEvents Mahnfaelligkeit2 As Label
Friend WithEvents Mahndatum2 As Label
Friend WithEvents Mahngebühr1 As Label
Friend WithEvents Mahnfaelligkeit1 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Mahndatum1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents btnZurücksetzen1 As Button
Friend WithEvents btnzurücksetzen3 As Button
Friend WithEvents btnzurücksetzen2 As Button
End Class End Class

4
DPM2016/Finanzaen/Finanzen.resx
View File

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

118
DPM2016/Finanzaen/Finanzen.vb
View File

@@ -26,12 +26,29 @@ Public Class Finanzen
Me.C1Zahlungen.DataSource = Nothing Me.C1Zahlungen.DataSource = Nothing
Me.C1Zahlungen.DataSource = Zahlungen Me.C1Zahlungen.DataSource = Zahlungen
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString) dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
Me.C1OffeneRechnungen.DataSource = Nothing Me.C1OffeneRechnungen.DataSource = Nothing
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen) spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
Me.Mahndatum1.Text = ""
Me.Mahndatum2.Text = ""
Me.Mahndatum3.Text = ""
Me.Mahnfaelligkeit1.Text = ""
Me.Mahnfaelligkeit2.Text = ""
Me.Mahnfaelligkeit3.Text = ""
Me.Mahngebühr1.Text = ""
Me.Mahngebühr2.Text = ""
Me.Mahngebühr3.Text = ""
Me.btnZurücksetzen1.Visible = False
Me.btnzurücksetzen2.Visible = False
Me.btnzurücksetzen3.Visible = False
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
@@ -40,6 +57,7 @@ Public Class Finanzen
Public Sub Refresh_Data() Public Sub Refresh_Data()
refresh_konto() refresh_konto()
Refresh_Zahlungen() Refresh_Zahlungen()
Get_Mahndaten()
End Sub End Sub
Sub refresh_konto() Sub refresh_konto()
dbk.Get_Tabledata("Konto", "where aktiv=1") dbk.Get_Tabledata("Konto", "where aktiv=1")
@@ -109,6 +127,11 @@ Public Class Finanzen
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.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) db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
Me.Refresh_Zahlungen() Me.Refresh_Zahlungen()
If vz = "J" Then
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
End If
End If
End Sub End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
@@ -120,10 +143,66 @@ Public Class Finanzen
Me.dtdatum.Value = Now Me.dtdatum.Value = Now
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
get_mahndaten
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Sub Get_Mahndaten()
Me.Mahndatum1.Text = ""
Me.Mahndatum2.Text = ""
Me.Mahndatum3.Text = ""
Me.Mahnfaelligkeit1.Text = ""
Me.Mahnfaelligkeit2.Text = ""
Me.Mahnfaelligkeit3.Text = ""
Me.Mahngebühr1.Text = ""
Me.Mahngebühr2.Text = ""
Me.Mahngebühr3.Text = ""
Me.btnZurücksetzen1.Visible = False
Me.btnzurücksetzen2.Visible = False
Me.btnzurücksetzen3.Visible = False
Dim dd As Date
Try
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
If Me.Mahndatum3.Text <> "" Then
Me.btnzurücksetzen3.Visible = True
Else
If Me.Mahndatum2.Text <> "" Then
Me.btnzurücksetzen2.Visible = True
Else
If Me.Mahndatum1.Text <> "" Then
Me.btnZurücksetzen1.Visible = True
End If
End If
End If
Catch
End Try
End Sub
Function ShortDate(ByVal dd As String) As String
Try
Dim d As Date
d = dd
Return d
Catch
Return ""
End Try
End Function
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
btnBuchen_Click(sender, e) btnBuchen_Click(sender, e)
@@ -193,4 +272,43 @@ Public Class Finanzen
Sub delete_date(sender) Sub delete_date(sender)
sender.value = Nothing sender.value = Nothing
End Sub End Sub
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(1)
End If
End Sub
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(2)
End If
End Sub
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
Mahnstufe_Zurücksetzen(3)
End If
End Sub
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
Dim db As New clsDB
Dim sql As String
Select Case typ
Case 1
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql)
Case 2
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql)
Case 3
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
db.Exec_SQL(sql)
End Select
Refresh_Zahlungen()
Get_Mahndaten()
End Sub
End Class End Class

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

@@ -34,13 +34,13 @@ Partial Class frmFirma
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tsbtnFinanzen = New System.Windows.Forms.ToolStripButton()
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox() Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton() Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
Me.tsbtprev = New System.Windows.Forms.ToolStripButton() Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton() Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton() Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnFinanzen = New System.Windows.Forms.ToolStripButton()
Me.txtName1 = New System.Windows.Forms.TextBox() Me.txtName1 = New System.Windows.Forms.TextBox()
Me.txtnrfirma = New System.Windows.Forms.TextBox() Me.txtnrfirma = New System.Windows.Forms.TextBox()
Me.lblNr = New System.Windows.Forms.Label() Me.lblNr = New System.Windows.Forms.Label()
@@ -98,11 +98,22 @@ Partial Class frmFirma
Me.txtGLN = New System.Windows.Forms.TextBox() Me.txtGLN = New System.Windows.Forms.TextBox()
Me.lblGLN = New System.Windows.Forms.Label() Me.lblGLN = New System.Windows.Forms.Label()
Me.Finanzen1 = New DPM2016.Finanzen() Me.Finanzen1 = New DPM2016.Finanzen()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout() Me.ToolStrip2.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'MenuStrip1 'MenuStrip1
@@ -131,7 +142,7 @@ Partial Class frmFirma
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnFinanzen}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnFinanzen, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1003, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1003, 25)
@@ -201,6 +212,16 @@ Partial Class frmFirma
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22) Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
Me.ToolStripLabel1.Text = "Suche" Me.ToolStripLabel1.Text = "Suche"
' '
'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"
Me.tsbtnFinanzen.Visible = False
'
'tstxtsuche 'tstxtsuche
' '
Me.tstxtsuche.Name = "tstxtsuche" Me.tstxtsuche.Name = "tstxtsuche"
@@ -247,18 +268,9 @@ Partial Class frmFirma
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
' '
'tsbtnFinanzen
'
Me.tsbtnFinanzen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbtnFinanzen.Image = CType(resources.GetObject("tsbtnFinanzen.Image"), System.Drawing.Image)
Me.tsbtnFinanzen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFinanzen.Name = "tsbtnFinanzen"
Me.tsbtnFinanzen.Size = New System.Drawing.Size(58, 22)
Me.tsbtnFinanzen.Text = "Finanzen"
'
'txtName1 'txtName1
' '
Me.txtName1.Location = New System.Drawing.Point(72, 88) Me.txtName1.Location = New System.Drawing.Point(69, 38)
Me.txtName1.Name = "txtName1" Me.txtName1.Name = "txtName1"
Me.txtName1.Size = New System.Drawing.Size(162, 20) Me.txtName1.Size = New System.Drawing.Size(162, 20)
Me.txtName1.TabIndex = 1 Me.txtName1.TabIndex = 1
@@ -266,7 +278,7 @@ Partial Class frmFirma
'txtnrfirma 'txtnrfirma
' '
Me.txtnrfirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtnrfirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtnrfirma.Location = New System.Drawing.Point(72, 62) Me.txtnrfirma.Location = New System.Drawing.Point(69, 12)
Me.txtnrfirma.Name = "txtnrfirma" Me.txtnrfirma.Name = "txtnrfirma"
Me.txtnrfirma.ReadOnly = True Me.txtnrfirma.ReadOnly = True
Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.txtnrfirma.RightToLeft = System.Windows.Forms.RightToLeft.Yes
@@ -277,7 +289,7 @@ Partial Class frmFirma
' '
Me.lblNr.AutoSize = True Me.lblNr.AutoSize = True
Me.lblNr.BackColor = System.Drawing.Color.Transparent Me.lblNr.BackColor = System.Drawing.Color.Transparent
Me.lblNr.Location = New System.Drawing.Point(13, 62) Me.lblNr.Location = New System.Drawing.Point(10, 12)
Me.lblNr.Name = "lblNr" Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(21, 13) Me.lblNr.Size = New System.Drawing.Size(21, 13)
Me.lblNr.TabIndex = 111 Me.lblNr.TabIndex = 111
@@ -287,7 +299,7 @@ Partial Class frmFirma
' '
Me.lblAnrede.AutoSize = True Me.lblAnrede.AutoSize = True
Me.lblAnrede.BackColor = System.Drawing.Color.Transparent Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
Me.lblAnrede.Location = New System.Drawing.Point(13, 91) Me.lblAnrede.Location = New System.Drawing.Point(10, 41)
Me.lblAnrede.Name = "lblAnrede" Me.lblAnrede.Name = "lblAnrede"
Me.lblAnrede.Size = New System.Drawing.Size(51, 13) Me.lblAnrede.Size = New System.Drawing.Size(51, 13)
Me.lblAnrede.TabIndex = 112 Me.lblAnrede.TabIndex = 112
@@ -297,7 +309,7 @@ Partial Class frmFirma
' '
Me.lblName2.AutoSize = True Me.lblName2.AutoSize = True
Me.lblName2.BackColor = System.Drawing.Color.Transparent Me.lblName2.BackColor = System.Drawing.Color.Transparent
Me.lblName2.Location = New System.Drawing.Point(13, 117) Me.lblName2.Location = New System.Drawing.Point(10, 67)
Me.lblName2.Name = "lblName2" Me.lblName2.Name = "lblName2"
Me.lblName2.Size = New System.Drawing.Size(51, 13) Me.lblName2.Size = New System.Drawing.Size(51, 13)
Me.lblName2.TabIndex = 114 Me.lblName2.TabIndex = 114
@@ -305,7 +317,7 @@ Partial Class frmFirma
' '
'txtName2 'txtName2
' '
Me.txtName2.Location = New System.Drawing.Point(72, 114) Me.txtName2.Location = New System.Drawing.Point(69, 64)
Me.txtName2.Name = "txtName2" Me.txtName2.Name = "txtName2"
Me.txtName2.Size = New System.Drawing.Size(162, 20) Me.txtName2.Size = New System.Drawing.Size(162, 20)
Me.txtName2.TabIndex = 2 Me.txtName2.TabIndex = 2
@@ -314,7 +326,7 @@ Partial Class frmFirma
' '
Me.lblStrasse.AutoSize = True Me.lblStrasse.AutoSize = True
Me.lblStrasse.BackColor = System.Drawing.Color.Transparent Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
Me.lblStrasse.Location = New System.Drawing.Point(13, 143) Me.lblStrasse.Location = New System.Drawing.Point(10, 93)
Me.lblStrasse.Name = "lblStrasse" Me.lblStrasse.Name = "lblStrasse"
Me.lblStrasse.Size = New System.Drawing.Size(42, 13) Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
Me.lblStrasse.TabIndex = 116 Me.lblStrasse.TabIndex = 116
@@ -322,7 +334,7 @@ Partial Class frmFirma
' '
'txtStrasse 'txtStrasse
' '
Me.txtStrasse.Location = New System.Drawing.Point(72, 140) Me.txtStrasse.Location = New System.Drawing.Point(69, 90)
Me.txtStrasse.Name = "txtStrasse" Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(162, 20) Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
Me.txtStrasse.TabIndex = 3 Me.txtStrasse.TabIndex = 3
@@ -331,7 +343,7 @@ Partial Class frmFirma
' '
Me.lblPostfach.AutoSize = True Me.lblPostfach.AutoSize = True
Me.lblPostfach.BackColor = System.Drawing.Color.Transparent Me.lblPostfach.BackColor = System.Drawing.Color.Transparent
Me.lblPostfach.Location = New System.Drawing.Point(13, 169) Me.lblPostfach.Location = New System.Drawing.Point(10, 119)
Me.lblPostfach.Name = "lblPostfach" Me.lblPostfach.Name = "lblPostfach"
Me.lblPostfach.Size = New System.Drawing.Size(49, 13) Me.lblPostfach.Size = New System.Drawing.Size(49, 13)
Me.lblPostfach.TabIndex = 118 Me.lblPostfach.TabIndex = 118
@@ -339,7 +351,7 @@ Partial Class frmFirma
' '
'txtPostfach 'txtPostfach
' '
Me.txtPostfach.Location = New System.Drawing.Point(72, 166) Me.txtPostfach.Location = New System.Drawing.Point(69, 116)
Me.txtPostfach.Name = "txtPostfach" Me.txtPostfach.Name = "txtPostfach"
Me.txtPostfach.Size = New System.Drawing.Size(162, 20) Me.txtPostfach.Size = New System.Drawing.Size(162, 20)
Me.txtPostfach.TabIndex = 4 Me.txtPostfach.TabIndex = 4
@@ -348,7 +360,7 @@ Partial Class frmFirma
' '
Me.lblPlz.AutoSize = True Me.lblPlz.AutoSize = True
Me.lblPlz.BackColor = System.Drawing.Color.Transparent Me.lblPlz.BackColor = System.Drawing.Color.Transparent
Me.lblPlz.Location = New System.Drawing.Point(13, 195) Me.lblPlz.Location = New System.Drawing.Point(10, 145)
Me.lblPlz.Name = "lblPlz" Me.lblPlz.Name = "lblPlz"
Me.lblPlz.Size = New System.Drawing.Size(46, 13) Me.lblPlz.Size = New System.Drawing.Size(46, 13)
Me.lblPlz.TabIndex = 120 Me.lblPlz.TabIndex = 120
@@ -356,14 +368,14 @@ Partial Class frmFirma
' '
'txtPlz 'txtPlz
' '
Me.txtPlz.Location = New System.Drawing.Point(72, 192) Me.txtPlz.Location = New System.Drawing.Point(69, 142)
Me.txtPlz.Name = "txtPlz" Me.txtPlz.Name = "txtPlz"
Me.txtPlz.Size = New System.Drawing.Size(48, 20) Me.txtPlz.Size = New System.Drawing.Size(48, 20)
Me.txtPlz.TabIndex = 5 Me.txtPlz.TabIndex = 5
' '
'txtOrt 'txtOrt
' '
Me.txtOrt.Location = New System.Drawing.Point(126, 192) Me.txtOrt.Location = New System.Drawing.Point(123, 142)
Me.txtOrt.Name = "txtOrt" Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(108, 20) Me.txtOrt.Size = New System.Drawing.Size(108, 20)
Me.txtOrt.TabIndex = 6 Me.txtOrt.TabIndex = 6
@@ -372,7 +384,7 @@ Partial Class frmFirma
' '
Me.lblTelefon.AutoSize = True Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(16, 248) Me.lblTelefon.Location = New System.Drawing.Point(13, 198)
Me.lblTelefon.Name = "lblTelefon" Me.lblTelefon.Name = "lblTelefon"
Me.lblTelefon.Size = New System.Drawing.Size(43, 13) Me.lblTelefon.Size = New System.Drawing.Size(43, 13)
Me.lblTelefon.TabIndex = 123 Me.lblTelefon.TabIndex = 123
@@ -380,7 +392,7 @@ Partial Class frmFirma
' '
'txtTel 'txtTel
' '
Me.txtTel.Location = New System.Drawing.Point(72, 245) Me.txtTel.Location = New System.Drawing.Point(69, 195)
Me.txtTel.Name = "txtTel" Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(162, 20) Me.txtTel.Size = New System.Drawing.Size(162, 20)
Me.txtTel.TabIndex = 8 Me.txtTel.TabIndex = 8
@@ -389,7 +401,7 @@ Partial Class frmFirma
' '
Me.lblTelefax.AutoSize = True Me.lblTelefax.AutoSize = True
Me.lblTelefax.BackColor = System.Drawing.Color.Transparent Me.lblTelefax.BackColor = System.Drawing.Color.Transparent
Me.lblTelefax.Location = New System.Drawing.Point(13, 274) Me.lblTelefax.Location = New System.Drawing.Point(15, 221)
Me.lblTelefax.Name = "lblTelefax" Me.lblTelefax.Name = "lblTelefax"
Me.lblTelefax.Size = New System.Drawing.Size(42, 13) Me.lblTelefax.Size = New System.Drawing.Size(42, 13)
Me.lblTelefax.TabIndex = 125 Me.lblTelefax.TabIndex = 125
@@ -397,7 +409,7 @@ Partial Class frmFirma
' '
'txtFax 'txtFax
' '
Me.txtFax.Location = New System.Drawing.Point(72, 271) Me.txtFax.Location = New System.Drawing.Point(69, 221)
Me.txtFax.Name = "txtFax" Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(162, 20) Me.txtFax.Size = New System.Drawing.Size(162, 20)
Me.txtFax.TabIndex = 9 Me.txtFax.TabIndex = 9
@@ -406,7 +418,7 @@ Partial Class frmFirma
' '
Me.lblMobile.AutoSize = True Me.lblMobile.AutoSize = True
Me.lblMobile.BackColor = System.Drawing.Color.Transparent Me.lblMobile.BackColor = System.Drawing.Color.Transparent
Me.lblMobile.Location = New System.Drawing.Point(13, 300) Me.lblMobile.Location = New System.Drawing.Point(15, 247)
Me.lblMobile.Name = "lblMobile" Me.lblMobile.Name = "lblMobile"
Me.lblMobile.Size = New System.Drawing.Size(38, 13) Me.lblMobile.Size = New System.Drawing.Size(38, 13)
Me.lblMobile.TabIndex = 127 Me.lblMobile.TabIndex = 127
@@ -414,7 +426,7 @@ Partial Class frmFirma
' '
'txtnatel 'txtnatel
' '
Me.txtnatel.Location = New System.Drawing.Point(72, 297) Me.txtnatel.Location = New System.Drawing.Point(69, 247)
Me.txtnatel.Name = "txtnatel" Me.txtnatel.Name = "txtnatel"
Me.txtnatel.Size = New System.Drawing.Size(162, 20) Me.txtnatel.Size = New System.Drawing.Size(162, 20)
Me.txtnatel.TabIndex = 10 Me.txtnatel.TabIndex = 10
@@ -423,7 +435,7 @@ Partial Class frmFirma
' '
Me.lblEmail.AutoSize = True Me.lblEmail.AutoSize = True
Me.lblEmail.BackColor = System.Drawing.Color.Transparent Me.lblEmail.BackColor = System.Drawing.Color.Transparent
Me.lblEmail.Location = New System.Drawing.Point(13, 326) Me.lblEmail.Location = New System.Drawing.Point(15, 273)
Me.lblEmail.Name = "lblEmail" Me.lblEmail.Name = "lblEmail"
Me.lblEmail.Size = New System.Drawing.Size(36, 13) Me.lblEmail.Size = New System.Drawing.Size(36, 13)
Me.lblEmail.TabIndex = 129 Me.lblEmail.TabIndex = 129
@@ -431,7 +443,7 @@ Partial Class frmFirma
' '
'txtE_Mail 'txtE_Mail
' '
Me.txtE_Mail.Location = New System.Drawing.Point(72, 323) Me.txtE_Mail.Location = New System.Drawing.Point(69, 273)
Me.txtE_Mail.Name = "txtE_Mail" Me.txtE_Mail.Name = "txtE_Mail"
Me.txtE_Mail.Size = New System.Drawing.Size(162, 20) Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
Me.txtE_Mail.TabIndex = 11 Me.txtE_Mail.TabIndex = 11
@@ -440,7 +452,7 @@ Partial Class frmFirma
' '
Me.lblInterner.AutoSize = True Me.lblInterner.AutoSize = True
Me.lblInterner.BackColor = System.Drawing.Color.Transparent Me.lblInterner.BackColor = System.Drawing.Color.Transparent
Me.lblInterner.Location = New System.Drawing.Point(13, 352) Me.lblInterner.Location = New System.Drawing.Point(15, 299)
Me.lblInterner.Name = "lblInterner" Me.lblInterner.Name = "lblInterner"
Me.lblInterner.Size = New System.Drawing.Size(43, 13) Me.lblInterner.Size = New System.Drawing.Size(43, 13)
Me.lblInterner.TabIndex = 131 Me.lblInterner.TabIndex = 131
@@ -448,7 +460,7 @@ Partial Class frmFirma
' '
'txtweb 'txtweb
' '
Me.txtweb.Location = New System.Drawing.Point(72, 349) Me.txtweb.Location = New System.Drawing.Point(69, 299)
Me.txtweb.Name = "txtweb" Me.txtweb.Name = "txtweb"
Me.txtweb.Size = New System.Drawing.Size(162, 20) Me.txtweb.Size = New System.Drawing.Size(162, 20)
Me.txtweb.TabIndex = 12 Me.txtweb.TabIndex = 12
@@ -457,7 +469,7 @@ Partial Class frmFirma
' '
Me.cbboxSprache.Dataselection = Nothing Me.cbboxSprache.Dataselection = Nothing
Me.cbboxSprache.Displaymember = Nothing Me.cbboxSprache.Displaymember = Nothing
Me.cbboxSprache.Location = New System.Drawing.Point(321, 114) Me.cbboxSprache.Location = New System.Drawing.Point(318, 64)
Me.cbboxSprache.Name = "cbboxSprache" Me.cbboxSprache.Name = "cbboxSprache"
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21) Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
Me.cbboxSprache.TabIndex = 14 Me.cbboxSprache.TabIndex = 14
@@ -469,7 +481,7 @@ Partial Class frmFirma
' '
Me.cbboxStatus.Dataselection = Nothing Me.cbboxStatus.Dataselection = Nothing
Me.cbboxStatus.Displaymember = Nothing Me.cbboxStatus.Displaymember = Nothing
Me.cbboxStatus.Location = New System.Drawing.Point(321, 87) Me.cbboxStatus.Location = New System.Drawing.Point(318, 37)
Me.cbboxStatus.Name = "cbboxStatus" Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21) Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
Me.cbboxStatus.TabIndex = 13 Me.cbboxStatus.TabIndex = 13
@@ -481,7 +493,7 @@ Partial Class frmFirma
' '
Me.Label15.AutoSize = True Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Location = New System.Drawing.Point(251, 201) Me.Label15.Location = New System.Drawing.Point(248, 151)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(50, 13) Me.Label15.Size = New System.Drawing.Size(50, 13)
Me.Label15.TabIndex = 211 Me.Label15.TabIndex = 211
@@ -491,7 +503,7 @@ Partial Class frmFirma
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Location = New System.Drawing.Point(251, 177) Me.Label14.Location = New System.Drawing.Point(248, 127)
Me.Label14.Name = "Label14" Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(49, 13) Me.Label14.Size = New System.Drawing.Size(49, 13)
Me.Label14.TabIndex = 210 Me.Label14.TabIndex = 210
@@ -499,17 +511,17 @@ Partial Class frmFirma
' '
'txtBemerkung 'txtBemerkung
' '
Me.txtBemerkung.Location = New System.Drawing.Point(502, 107) Me.txtBemerkung.Location = New System.Drawing.Point(499, 57)
Me.txtBemerkung.Multiline = True Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(427, 197) Me.txtBemerkung.Size = New System.Drawing.Size(427, 226)
Me.txtBemerkung.TabIndex = 19 Me.txtBemerkung.TabIndex = 19
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(499, 87) Me.Label2.Location = New System.Drawing.Point(496, 37)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13) Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 209 Me.Label2.TabIndex = 209
@@ -519,7 +531,7 @@ Partial Class frmFirma
' '
Me.lblSprache.AutoSize = True Me.lblSprache.AutoSize = True
Me.lblSprache.BackColor = System.Drawing.Color.Transparent Me.lblSprache.BackColor = System.Drawing.Color.Transparent
Me.lblSprache.Location = New System.Drawing.Point(251, 118) Me.lblSprache.Location = New System.Drawing.Point(248, 68)
Me.lblSprache.Name = "lblSprache" Me.lblSprache.Name = "lblSprache"
Me.lblSprache.Size = New System.Drawing.Size(47, 13) Me.lblSprache.Size = New System.Drawing.Size(47, 13)
Me.lblSprache.TabIndex = 208 Me.lblSprache.TabIndex = 208
@@ -529,7 +541,7 @@ Partial Class frmFirma
' '
Me.lblStatus.AutoSize = True Me.lblStatus.AutoSize = True
Me.lblStatus.BackColor = System.Drawing.Color.Transparent Me.lblStatus.BackColor = System.Drawing.Color.Transparent
Me.lblStatus.Location = New System.Drawing.Point(251, 91) Me.lblStatus.Location = New System.Drawing.Point(248, 41)
Me.lblStatus.Name = "lblStatus" Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(37, 13) Me.lblStatus.Size = New System.Drawing.Size(37, 13)
Me.lblStatus.TabIndex = 207 Me.lblStatus.TabIndex = 207
@@ -539,7 +551,7 @@ Partial Class frmFirma
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.Transparent Me.Label13.BackColor = System.Drawing.Color.Transparent
Me.Label13.Location = New System.Drawing.Point(251, 228) Me.Label13.Location = New System.Drawing.Point(248, 178)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(53, 13) Me.Label13.Size = New System.Drawing.Size(53, 13)
Me.Label13.TabIndex = 213 Me.Label13.TabIndex = 213
@@ -549,18 +561,18 @@ Partial Class frmFirma
' '
Me.chklbAdresstyp.FormattingEnabled = True Me.chklbAdresstyp.FormattingEnabled = True
Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"}) Me.chklbAdresstyp.Items.AddRange(New Object() {"Arbeitgeber", "Fürsorge", "Garant", "IV", "Krankenkasse", "Versicherung"})
Me.chklbAdresstyp.Location = New System.Drawing.Point(318, 224) Me.chklbAdresstyp.Location = New System.Drawing.Point(318, 174)
Me.chklbAdresstyp.Name = "chklbAdresstyp" Me.chklbAdresstyp.Name = "chklbAdresstyp"
Me.chklbAdresstyp.Size = New System.Drawing.Size(165, 109) Me.chklbAdresstyp.Size = New System.Drawing.Size(162, 109)
Me.chklbAdresstyp.TabIndex = 18 Me.chklbAdresstyp.TabIndex = 18
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.c1daten) Me.GroupBox1.Controls.Add(Me.c1daten)
Me.GroupBox1.Controls.Add(Me.ToolStrip2) Me.GroupBox1.Controls.Add(Me.ToolStrip2)
Me.GroupBox1.Location = New System.Drawing.Point(13, 388) Me.GroupBox1.Location = New System.Drawing.Point(10, 338)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(916, 114) Me.GroupBox1.Size = New System.Drawing.Size(916, 186)
Me.GroupBox1.TabIndex = 214 Me.GroupBox1.TabIndex = 214
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Ansprechpartner" Me.GroupBox1.Text = "Ansprechpartner"
@@ -580,7 +592,7 @@ Partial Class frmFirma
Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.c1daten.PreviewInfo.ZoomFactor = 75.0R Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.c1daten.Size = New System.Drawing.Size(910, 70) Me.c1daten.Size = New System.Drawing.Size(910, 142)
Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.c1daten.TabIndex = 1 Me.c1daten.TabIndex = 1
Me.c1daten.Text = "C1TrueDBGrid1" Me.c1daten.Text = "C1TrueDBGrid1"
@@ -708,21 +720,21 @@ Partial Class frmFirma
' '
'dtgueltigab 'dtgueltigab
' '
Me.dtgueltigab.Location = New System.Drawing.Point(321, 169) Me.dtgueltigab.Location = New System.Drawing.Point(318, 119)
Me.dtgueltigab.Name = "dtgueltigab" Me.dtgueltigab.Name = "dtgueltigab"
Me.dtgueltigab.Size = New System.Drawing.Size(141, 20) Me.dtgueltigab.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigab.TabIndex = 16 Me.dtgueltigab.TabIndex = 16
' '
'dtgueltigbis 'dtgueltigbis
' '
Me.dtgueltigbis.Location = New System.Drawing.Point(321, 198) Me.dtgueltigbis.Location = New System.Drawing.Point(318, 148)
Me.dtgueltigbis.Name = "dtgueltigbis" Me.dtgueltigbis.Name = "dtgueltigbis"
Me.dtgueltigbis.Size = New System.Drawing.Size(141, 20) Me.dtgueltigbis.Size = New System.Drawing.Size(141, 20)
Me.dtgueltigbis.TabIndex = 17 Me.dtgueltigbis.TabIndex = 17
' '
'btndeldatetimeab 'btndeldatetimeab
' '
Me.btndeldatetimeab.Location = New System.Drawing.Point(468, 169) Me.btndeldatetimeab.Location = New System.Drawing.Point(465, 119)
Me.btndeldatetimeab.Name = "btndeldatetimeab" Me.btndeldatetimeab.Name = "btndeldatetimeab"
Me.btndeldatetimeab.Size = New System.Drawing.Size(15, 23) Me.btndeldatetimeab.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimeab.TabIndex = 217 Me.btndeldatetimeab.TabIndex = 217
@@ -730,7 +742,7 @@ Partial Class frmFirma
' '
'btndeldatetimebis 'btndeldatetimebis
' '
Me.btndeldatetimebis.Location = New System.Drawing.Point(468, 198) Me.btndeldatetimebis.Location = New System.Drawing.Point(465, 148)
Me.btndeldatetimebis.Name = "btndeldatetimebis" Me.btndeldatetimebis.Name = "btndeldatetimebis"
Me.btndeldatetimebis.Size = New System.Drawing.Size(15, 23) Me.btndeldatetimebis.Size = New System.Drawing.Size(15, 23)
Me.btndeldatetimebis.TabIndex = 218 Me.btndeldatetimebis.TabIndex = 218
@@ -740,7 +752,7 @@ Partial Class frmFirma
' '
Me.cbtxtboxKanton.FormattingEnabled = True 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.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.Location = New System.Drawing.Point(69, 168)
Me.cbtxtboxKanton.Name = "cbtxtboxKanton" Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21) Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
Me.cbtxtboxKanton.TabIndex = 7 Me.cbtxtboxKanton.TabIndex = 7
@@ -749,7 +761,7 @@ Partial Class frmFirma
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(18, 221) Me.Label3.Location = New System.Drawing.Point(15, 171)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13) Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 219 Me.Label3.TabIndex = 219
@@ -757,7 +769,7 @@ Partial Class frmFirma
' '
'txtGLN 'txtGLN
' '
Me.txtGLN.Location = New System.Drawing.Point(321, 143) Me.txtGLN.Location = New System.Drawing.Point(318, 93)
Me.txtGLN.Name = "txtGLN" Me.txtGLN.Name = "txtGLN"
Me.txtGLN.Size = New System.Drawing.Size(162, 20) Me.txtGLN.Size = New System.Drawing.Size(162, 20)
Me.txtGLN.TabIndex = 15 Me.txtGLN.TabIndex = 15
@@ -766,7 +778,7 @@ Partial Class frmFirma
' '
Me.lblGLN.AutoSize = True Me.lblGLN.AutoSize = True
Me.lblGLN.BackColor = System.Drawing.Color.Transparent Me.lblGLN.BackColor = System.Drawing.Color.Transparent
Me.lblGLN.Location = New System.Drawing.Point(251, 146) Me.lblGLN.Location = New System.Drawing.Point(248, 96)
Me.lblGLN.Name = "lblGLN" Me.lblGLN.Name = "lblGLN"
Me.lblGLN.Size = New System.Drawing.Size(43, 13) Me.lblGLN.Size = New System.Drawing.Size(43, 13)
Me.lblGLN.TabIndex = 221 Me.lblGLN.TabIndex = 221
@@ -774,63 +786,134 @@ Partial Class frmFirma
' '
'Finanzen1 'Finanzen1
' '
Me.Finanzen1.Location = New System.Drawing.Point(0, 62) Me.Finanzen1.Location = New System.Drawing.Point(1, 3)
Me.Finanzen1.Name = "Finanzen1" Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0 Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(990, 587) Me.Finanzen1.Size = New System.Drawing.Size(990, 587)
Me.Finanzen1.TabIndex = 222 Me.Finanzen1.TabIndex = 222
Me.Finanzen1.Visible = False '
'SuperTabControl1
'
'
'
'
'
'
'
Me.SuperTabControl1.ControlBox.CloseBox.Name = ""
'
'
'
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
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(1003, 608)
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 = 223
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Finanzen})
Me.SuperTabControl1.Text = "SuperTabControl1"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.ColorSchemeStyle = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
Me.SuperTabControlPanel1.Controls.Add(Me.Panel1)
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(1003, 583)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtnrfirma)
Me.Panel1.Controls.Add(Me.lblNr)
Me.Panel1.Controls.Add(Me.txtnatel)
Me.Panel1.Controls.Add(Me.cbboxSprache)
Me.Panel1.Controls.Add(Me.txtStrasse)
Me.Panel1.Controls.Add(Me.btndeldatetimeab)
Me.Panel1.Controls.Add(Me.lblPlz)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtGLN)
Me.Panel1.Controls.Add(Me.lblSprache)
Me.Panel1.Controls.Add(Me.txtOrt)
Me.Panel1.Controls.Add(Me.dtgueltigbis)
Me.Panel1.Controls.Add(Me.chklbAdresstyp)
Me.Panel1.Controls.Add(Me.lblName2)
Me.Panel1.Controls.Add(Me.txtName1)
Me.Panel1.Controls.Add(Me.lblTelefax)
Me.Panel1.Controls.Add(Me.cbboxStatus)
Me.Panel1.Controls.Add(Me.lblMobile)
Me.Panel1.Controls.Add(Me.txtPlz)
Me.Panel1.Controls.Add(Me.lblStrasse)
Me.Panel1.Controls.Add(Me.lblGLN)
Me.Panel1.Controls.Add(Me.btndeldatetimebis)
Me.Panel1.Controls.Add(Me.txtTel)
Me.Panel1.Controls.Add(Me.txtBemerkung)
Me.Panel1.Controls.Add(Me.Label13)
Me.Panel1.Controls.Add(Me.lblStatus)
Me.Panel1.Controls.Add(Me.lblAnrede)
Me.Panel1.Controls.Add(Me.dtgueltigab)
Me.Panel1.Controls.Add(Me.Label15)
Me.Panel1.Controls.Add(Me.txtName2)
Me.Panel1.Controls.Add(Me.txtweb)
Me.Panel1.Controls.Add(Me.txtFax)
Me.Panel1.Controls.Add(Me.lblPostfach)
Me.Panel1.Controls.Add(Me.txtE_Mail)
Me.Panel1.Controls.Add(Me.cbtxtboxKanton)
Me.Panel1.Controls.Add(Me.txtPostfach)
Me.Panel1.Controls.Add(Me.lblTelefon)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.lblEmail)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.GroupBox1)
Me.Panel1.Controls.Add(Me.lblInterner)
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(1003, 583)
Me.Panel1.TabIndex = 222
'
'Stammdaten
'
Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
Me.Stammdaten.GlobalItem = False
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel2
'
Me.SuperTabControlPanel2.Controls.Add(Me.Finanzen1)
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(1003, 583)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.Finanzen
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel2
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
' '
'frmFirma 'frmFirma
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1003, 657) Me.ClientSize = New System.Drawing.Size(1003, 657)
Me.Controls.Add(Me.Finanzen1) Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.txtnrfirma)
Me.Controls.Add(Me.txtGLN)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.txtName1)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.lblGLN)
Me.Controls.Add(Me.lblNr)
Me.Controls.Add(Me.lblAnrede)
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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFirma" Me.Name = "frmFirma"
Me.Text = "Firmen" Me.Text = "Firmen"
@@ -843,6 +926,12 @@ Partial Class frmFirma
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -923,4 +1012,10 @@ Partial Class frmFirma
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbtnFinanzen As ToolStripButton Friend WithEvents tsbtnFinanzen As ToolStripButton
Friend WithEvents Finanzen1 As Finanzen Friend WithEvents Finanzen1 As Finanzen
Friend WithEvents SuperTabControl1 As DevComponents.DotNetBar.SuperTabControl
Friend WithEvents SuperTabControlPanel1 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Stammdaten As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Panel1 As Panel
Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
End Class End Class

32
DPM2016/Firmen/frmFirma.resx
View File

@@ -210,6 +210,21 @@
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+ MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII= 1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnFinanzen.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> </value>
</data> </data>
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -337,21 +352,6 @@
ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99 ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg== QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
</value>
</data>
<data name="tsbtnFinanzen.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> </value>
</data> </data>
<data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -391,7 +391,7 @@
</value> </value>
</data> </data>
<data name="c1daten.PropBag" xml:space="preserve"> <data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 908, 68&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 908, 68&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, 908, 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, 908, 140&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value> <value>231, 17</value>

28
DPM2016/Firmen/frmFirma.vb
View File

@@ -18,6 +18,7 @@ Public Class frmFirma
End Get End Get
Set(value As Integer) Set(value As Integer)
m_firmanr = value m_firmanr = value
Fill_Stammdaten()
Get_Data() Get_Data()
AddChanges(Me) AddChanges(Me)
Me.txtName1.Select() Me.txtName1.Select()
@@ -201,12 +202,21 @@ Public Class frmFirma
End Sub End Sub
Private Sub frmFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Globals.Funktionsstufe
Case 2
Me.Finanzen.Visible = False
End Select
Dim db As New clsDB Dim db As New clsDB
If Firmanr = 0 Then If Firmanr = 0 Then
db.Get_Tabledata("Firma", "", "", "", False) db.Get_Tabledata("Firma", "Select * from firma order by name1, ort", "", "", False)
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
End If End If
Get_Data() Get_Data()
Select Case Globals.Funktionsstufe
Case 2
Me.tsbtnFinanzen.Visible = False
End Select
End Sub End Sub
Sub Get_Data() Sub Get_Data()
@@ -217,7 +227,7 @@ Public Class frmFirma
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0) Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
colname = c.ColumnName colname = c.ColumnName
For Each Ctl As Control In Me.Controls For Each Ctl As Control In Me.Panel1.Controls ' Me.Controls
'Dim objtype As System.Type = Ctl.GetType 'Dim objtype As System.Type = Ctl.GetType
'If objtype.Name = "Label" Then 'If objtype.Name = "Label" Then
' Exit For ' Exit For
@@ -352,7 +362,7 @@ Public Class frmFirma
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0) Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
For Each Ctl As Control In Me.Controls For Each Ctl As Control In Me.Panel1.Controls 'Me.Controls
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
r(c.ColumnName) = Ctl.Text r(c.ColumnName) = Ctl.Text
@@ -455,7 +465,7 @@ Public Class frmFirma
If Me.Check_Changes = False Then Exit Sub If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB Dim db As New clsDB
Try Try
db.Get_Tabledata("Firma", "", db.Get_SQL(26), Me.Firmanr.ToString) db.Get_Tabledata("Firma", "", db.Get_SQL(26), "'" + Me.txtName1.Text + "'")
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch Catch
Me.Firmanr = Me.Firmanr Me.Firmanr = Me.Firmanr
@@ -467,7 +477,7 @@ Public Class frmFirma
If Me.Check_Changes = False Then Exit Sub If Me.Check_Changes = False Then Exit Sub
Dim db As New clsDB Dim db As New clsDB
Try Try
db.Get_Tabledata("firma", "", db.Get_SQL(27), Me.Firmanr.ToString) db.Get_Tabledata("firma", "", db.Get_SQL(27), "'" + Me.txtName1.Text + "'")
Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.Firmanr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch Catch
Me.Firmanr = Me.Firmanr Me.Firmanr = Me.Firmanr
@@ -563,6 +573,14 @@ Public Class frmFirma
If Me.Finanzen1.Visible = False Then Me.Finanzen1.Visible = True Else Me.Finanzen1.Visible = False If Me.Finanzen1.Visible = False Then Me.Finanzen1.Visible = True Else Me.Finanzen1.Visible = False
End Sub End Sub
Private Sub txtName1_TextChanged(sender As Object, e As EventArgs) Handles txtName1.TextChanged, txtName2.TextChanged, txtOrt.TextChanged, txtPlz.TextChanged
Me.Text = Me.txtnrfirma.Text + " " + Me.txtName1.Text + " " + Me.txtName2.Text + ", " + Me.txtPlz.Text + " " + Me.txtOrt.Text
End Sub
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
End Sub
#End Region #End Region
End Class End Class

6
DPM2016/Klassen/MyCombobox.vb
View File

@@ -86,7 +86,11 @@
End Get End Get
Set(value As String) Set(value As String)
m_valuememeber = value m_valuememeber = value
MyBase.ValueMember = m_valuememeber Try
MyBase.ValueMember = m_valuememeber
Catch
End Try
End Set End Set
End Property End Property

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

@@ -53,11 +53,16 @@ Partial Class clsStammdaten_flat
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuerBenutzerEröffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NeuerBenutzerEröffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ctxMenuTarif = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TarifBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NeuerTarifeintragErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PasswortÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.c1daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.ctxMenuTarif.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'c1daten 'c1daten
@@ -220,9 +225,9 @@ Partial Class clsStammdaten_flat
' '
'ContextMenuStrip1 'ContextMenuStrip1
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem, Me.PasswortÄndernToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 26) Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 70)
' '
'NeuerBenutzerEröffnenToolStripMenuItem 'NeuerBenutzerEröffnenToolStripMenuItem
' '
@@ -230,6 +235,30 @@ Partial Class clsStammdaten_flat
Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22) Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen" Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen"
' '
'ctxMenuTarif
'
Me.ctxMenuTarif.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem, Me.NeuerTarifeintragErstellenToolStripMenuItem})
Me.ctxMenuTarif.Name = "ctxMenuTarif"
Me.ctxMenuTarif.Size = New System.Drawing.Size(217, 48)
'
'TarifBearbeitenToolStripMenuItem
'
Me.TarifBearbeitenToolStripMenuItem.Name = "TarifBearbeitenToolStripMenuItem"
Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(216, 22)
Me.TarifBearbeitenToolStripMenuItem.Text = "Tarif bearbeiten"
'
'NeuerTarifeintragErstellenToolStripMenuItem
'
Me.NeuerTarifeintragErstellenToolStripMenuItem.Name = "NeuerTarifeintragErstellenToolStripMenuItem"
Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(216, 22)
Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Tarifeintrag erstellen"
'
'PasswortÄndernToolStripMenuItem
'
Me.PasswortÄndernToolStripMenuItem.Name = "PasswortÄndernToolStripMenuItem"
Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
Me.PasswortÄndernToolStripMenuItem.Text = "Passwort ändern"
'
'clsStammdaten_flat 'clsStammdaten_flat
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -246,6 +275,7 @@ Partial Class clsStammdaten_flat
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.ctxMenuTarif.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -263,4 +293,8 @@ Partial Class clsStammdaten_flat
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuerBenutzerEröffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents NeuerBenutzerEröffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButton7 As ToolStripButton Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ctxMenuTarif As ContextMenuStrip
Friend WithEvents TarifBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NeuerTarifeintragErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PasswortÄndernToolStripMenuItem As ToolStripMenuItem
End Class End Class

425
DPM2016/Klassen/clsStammdaten_flat.resx
View File

@@ -155,7 +155,7 @@
</value> </value>
</data> </data>
<data name="c1daten.PropBag" xml:space="preserve"> <data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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> <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" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 756, 374&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
@@ -163,19 +163,19 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+i6qwYWZZjb3Obx YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK0SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYmlYjb3Obx
7MzN1dY5Z9tJZ84Mi95AK3vXNC0L7c1hKiVFpVZKafaiaKgoZSHViuoiuuiFIoguCj4dNRa7tB984Pk9 7MzN1dY5Z9tJV86Min5BlvZb07Is1CKHqVQYlVoZaZmlaGQopSLmkuwigoooguii4NNRY7HLeuAD7/PC
8Hx4vr/nEf9TX14OBj+/nfjVujODv1uzdbkip6vjQA5dh6aRknQelLiy186D+FY+TfXycfIW318NcKnM ++H9Pu8r/qc+Tw8EP8yO/mzZm8mfrYVqK8/tbD+SS+exOaQkHUclrpfZeRzfyafJHj6O3eXb636u7rem
mirorJBZtsLO8lU2Vqz+R9oqK0st6fxI9JLo2sd4o5+viYdc3uNIFXSUy2RYndjsEnaHK4k1y0lauo0X CjrKZVal21m91kZ6xl/S1lpZaVnH90QPic5DjNT7+ZJ4QttBR6qgvVQm0+rEZpewO1xJrNlO0tbZeNUS
rRHGz+uMng7y6dkdru3PThU46gVS1Tyy7T4kl4KU7UaSZFwumdVWiakWg9GzIR41BPkw3jkT9e9RIWxH YeSSznBDkE8T3dw8nJMqcNQKpMpF5Nh9SC4FKceNJMm4XDIZVonJZoPhiyGe1gV5P9IxH/XPUSFsJwWJ
BYkPbThNSU6mhtsZQJH8KLIX2e0h0+HmaTzMcKPOQP163g6101OpzApsVYLJd020DAgyKgX2OoHzlEAu 9604TUlulobbGUCR/CiyF9ntIcvhZjweZqhep792I7OD17hXoSwIbJWCsbeNNPcLMisE9hqB87xALl2K
X4hXCeLJ9ZOV42PivMbASZ0ftxfzvL+ZO9VehKtGMPKmkviwoGnIXL8uYOxNhMfvwzOStZ4weXlBJE+A VwniyfOTnetj9JJG/zmd7/eXM9XbRHeVF+GqFjx7U0F8SNA4aK5nCnn+JsKLd+F5yXpPmPz8IJInwPMG
sdMq909o/OxdwrOeRvrr/LOCe4kdxCcE8XFB81NBy5TgybcIjpOCYF4B6wIh3Hkaww0B+o8Hadrh5HHn lb6zGj96VjBxr57eGv+C4FFiD/FRQXxE0DQuaJ4UvPwawXFOEMwvZEMghDtfY6guQO+ZII17nLzoOMmT
UR7WB2YiWOxmhO7nhbQlBJnTEY4JHCcEuXsXoatRVN3AFzQYrPfTV7uW6wcURtorGGpQk0O0ZFULul77 2sB8BIvdjNA1tZnWhCBrLsIpgeOsIK9sGboaRdUNfEGDgVo/D06v59YRhWfXyhmsU5NDtGRXCTpnfDjP
cB4XGIFtGFoJRrgIw4gSMfIJhKLcr/Nyu8ZHd5WXwQvbGT0TSnlGi9O8slIzn6hRSrSgmIJo0Qz5JtqG CIzALgytBCNchGFEiRgFBEJR+mq83K/20VXpZeDyboYvhFKe0eI0r6xULyZqbCdaWExhtGieAhNtU4yH
GHdrPHRX5nLjsIfexhgTTZEUgWgtWcnG4hKKY1so3rQ5Scwkv6iUvmqZm0cUOg65uVkbYrI5H6HrOroW 1R66KvK4fdxDT32M0cZIikC0lKxhS3EJxbEdFG/dliRmUlC0nQdVMndOKLQfc3PndIixpgKEruvoWghN
QtPCqOo05lrVzF5Nopr9uvU6u2IBLlYo5g+UuXowl6m2wtkhzpVyPa3s3O41v19ejKVGmEMtMFkmhLD8 C6Oqc5hrVTN7NYlq9hs26uyLBbhSrpg/UObG0TwmWzcvDPFfKdXT9jccyPg1fSWWGuEfaonJKiGE5Tdo
AXVKwo8FvT+zAAAAAElFTkSuQmCC FcKGVVlc7gAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -196,16 +196,16 @@
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqeuHIEr+obaWwqMyLpCsL
+sAwJRlBBNLoTocSXhQFc7Su7KLoA+xi1L7brH02p1ttS1YEIWghudYIp7W3d+Y2d9FGvv+ewXPZu9kP +sAwJRlBBNLozoYSXhQFc7SujAj6ALsYte82a++7rTndalsyuwlBC8m1Rjitvb0zt7mLNnL/nsFz2Tb7
/pznOed/znkeZjMEJBLXTEvLdXr9P6a7ux/cZRjoamoQlEo/vpHJammpMvzCo475RAyem7dxhwwZF4nw wZ/zPOf8zznPw2wFn0TCzbS13aTX/2O6p+fRA4aBrrYWfqn04zuZrI6WKlNYfNK5EIvAdfsu7pEh4yIR
vL4esxJJF7WU5/fcNS4z2Y5U7DHiiyzG90pwv6oKbrH4BrUIsxHX6n8FziDlasayicFK4CRiPzi8VA19 XjY0YE4i6aaW8vyevyGkJjuQiDxFdInH+F4JHlZVwSkW36KW0mxGtfpfvrNIcK1YMTFY9Z1C5IeA16qh
oxZh+IT2dCasQMojJwOkWJ4Qg/O14bttCxJzz5qp7d/EfKqtbOhKgSWb01PHkbTvwOpUJxkkw5+ASEVt b9RSmkJMeyYVVCDhkpMBUqxMiCF42vHdtg2x+Ret1PZvIh7Vdj5wNceTzcmpE4jba7A21UUGyfDHJ1JR
wmzMDwdZrxyr06fICw6Sze3g/MeQ8+2KUoswfOyqMu3rwE/vYayFFGDJF9Ze9+L9vQP8J1ttNbUJU1x4 W2k2F4b9vFuOtenT5AUHyeYOCN7jyHh2h6mlNIXIdWXS04mf7iNYDyjAky+sv+3D7P0DhU+2umpqK01+
mGS9bci/GwQ3eRTZ8EWkyXY+vP88tZSn8PkJMotOZGZvIfuqh2w/h2L4yAQtl2ds7JIIrBO5Ly+wvhRC 8XGcd7cj+/4ahMljSAcvIUm2F4L7L1BLeXKfnyG1xCI1dwfpN71k+3nkg0cnaLk8Y2OXReBZZL68wsZy
PhlEPtq1TsuVaWzcLb/Q24nsVw8KbBQoxm25lQ87abkyDU1NZ7dtr8aeujp3eultA01vjkgksk+tVo9q ANm4H9lw9wYtV6a5eY/8Yl8X0l9dyPFhIB+1ZVY/7KLlyjS2tJzbsbMaTfX1zuTybCNNb41QKLRPrVaP
NBqt3mRS6HRP+81m84DD4Rgpyel0DhApiS673e4+l8t1wu/3y2g7w9jt9laLxdJDmvoNBsOQ0WgcIXGU ajQard5kUuh0zwfMZvOgw+EYKYpl2UEiJdEVp9PZz3HcSa/XK6PtDGO32w9ZLJZe0jRgMBiGjEbjCImj
RHVJ9FzKDRMp9Xp9n9VqPcQwDPMXXx4kUDB8DQsAAAAASUVORK5CYII= JKqLoudibphIqdfr+61W62GGYZi/U88kSkH5lkEAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -243,191 +243,191 @@
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACshSURBVHhe7Z0HnBRVuvZX3V29n/vdvSaSkochw8AQhjjA YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsVSURBVHhe7Z0HnBRV1vZX3V15P/d79zWRlDwMeRgYMgMM
EIaMiCKSQZCcYQBJooB5dU27ruuaMxlEUBERI7teRcmoCIiCCoqiRM/3PKfqrT5VfXqmOuDCfnN+/OlU DGFAkgiOCEPOOQ85KaAYVte067quWQxkEEFFRIzs+gJKRkVAFFRQBCV6v/PcqlN96vbtmeqAC/vN/fGn
fbr6fZ7znlBVPb8pLIWlsBSWwlJYCkthKSyFpbAUlsJSWApLYTFL9+7de1/R9YrdAwYM+GXkyJFq9OjR U/Xt6vM899xQVT2/KSgFpaAUlIJSUApKQSkoBaWgFJSCUlAKSkGRJTs7O+emTjft79Onzy/Dhw9XI0eO
asyYMWrs2LFq3Lhxavz48WrChAlq0sSJKm/SJJWXl6cmT56spoAJ4yeooUOGqCefflY9/swL6sln56un VKNGjVKjR49WY8aMUWPHjlXjxo1TE8aPV7kTJqjc3Fw1ceJENYkYN3acGjxokHr2+RfU0wteVs++sFA9
n1+kFi5aphYtflEtXrpCLV2+Ui1/cZV6ccUrasXKV9VLL7+mVr3yunr51bXqldfe0Lz62jo/a9ap1Wve /9IStXjJCrVk6Stq6fJVavnK1WrlK2vUK6teV6tWv6Fefe1Nteb1t9Rrb6xXr7/5tuaNNzf4WbdBrV33
1Lz2uslb6rW1wttqDXnjbfX6unfU2nXvRnjzPfXGWybr1bq31zv33+Q27+A9znvXoK7VqJuf+eoa7M/q jubNtyTvqjfXM++pdeDt99RbG95X6zd8EOKdD9Xb70o2qg3vbXTuv4Nt3qf3OO9dR3WtpbrxmW+so/1Z
tdg37t8atfLl1ZoVq17Fvr+iXnzpZbV8xSp8n5Vq2fKX1NJlK9SSpfieS5bj+y5VC8GCRUvUgoWL1fwF u572Dfu3Tq1+ba1m1Zo3aN9fV6+8+ppauWoNfZ/VasXKV9XyFavUsuX0PZetpO+7XC0mFi1ZphYtXqoW
C9UL8xeo51+Yr5565jn1+JPPqEefeEo98uhjavCgQTrGkxDPiYgr4zsBcWasxyPmjDvjPxbbjIEe1GT0 LlqsXl64SL308kL13IIX1dPPLlBPPvOceuLJp9SA/v11jCdQPMdTXBHfcRRnxHosxRxxR/xH0zajSA9o
qFFq1KhRv4wdPnxv/779B7vyJVeGDxnedxREX758uXoMOzYRgoZl0oSJ6vZbb1OdO3ZSO/fsU+9u2Oax MnLECDVixIhfRg8derB3z94DXPniK0MHDe05gkRfuXKleop2bDwJGpQJ48aru+ffpTq0a6/2HjikPtiy
efsu8LmPTdsSI1iPU/cutUXYsTvCJ7vVVo89mm2f+tkufPaFxw5h5xfqE5PPyV7NpwafGezcFeFzsjvA y2P77n3EFz627YoNsx6n7n1qB7Nnf4hP96udHgc0uz7zs5v5/EuPPczeL9Wnki/AQc1ngs8Fe/eF+ALs
nr3qw82fqA8Ab7/46mvVuVMndfPceda45sfMGTPVpo2b1OpXV6upk6eOcGVMvAwfOmzPjTfMVlu2bFHP NzhwUG3e/qnaROD2y6+/UR3at1d3zJ1njWtezJg+Q23buk2tfWOtmjxx8jBXxtjL0MFDDtw2a7basWOH
PvOsGnrdkLiYPClP5bTIUfsOHlbb9hzw+Prgz2p/kAPCTyFwt7XU8/XBI+rr7/x88/1RH9+SQ34OHDrm emHBC2rwwEFRMXFCrspslqkOHT2hdh044vHN0Z/VYZMjzE8BcLe11PPN0ZPqm+/9fPvDKR/fgWN+jhw7
8IPDQZMfj6nvDL4nh49rDgk/Ofxg8OPP5ITmMDni8JNw9IT6GXy+73u1i+z/Hp/3s2qZ01KNGzvOGtOC 7fCjw1HJ8dPqe8EP4MQZzTHmJ4cfBcd/Bmc1J8BJh5+YU2fVz8QXh35Q+8DhH+jzflbNM5urMaPHWGOa
mDp5ipowbrx68MEHv3RlTLwMGzL0xJDB1ylh0MBrVfcrr/LRu2cv7/UgjgFaQBi/AYKCfPPd0SjRwsL3 H5MnTlLjxoxVjz766FeujLGXIYMGnx00YKBi+vftp7K73Owjp1t373UTxwDNSBi/AUxBvv3+VJhoQcF7
RtXnYhPaEbsAwYEpeFD0oPDRoocT/uejJzUUXvAMMGasNaZhuetPd52EhGc5SiZYrhs02Fdpvbr1VEZG w+pzsQntiJ2P4IQU3BTdFD5c9GDC/3zqnAbCM54BRo22xjQo9/3pvnMk4SWOkjGWgf0H+CqtU7uOSk1N
hsqsnanqZGbitraqWqWKuvqq7r7thLyJkxwDfHdYbf/igIdNFA8RriBs7w3gE9oQO4zgBYked2u3CH/k VWk101SttDS6ramqVK6sbrk527cdkzt+gmOA70+o3V8e8bCJ4sHC5YftvQY+oYXYQQTPT/SoW7tF+JOn
mINpgO+0AXKSNsBtt9yqIGHyBjCpXau2ym7aVLVq2VK1ad1ai0tTdOnU2bedQAO0aB5tAE8IU5xUIPW6 HaQBvtcGyIzbAHfdOV+RhPEbQFKzRk3VpHFj1aJ5c9WqZUstLkzRsX0H33YMDNCsabgBPCGkOImA63Ux
BEX2CAhdoOAkIHhE9LCt3RH+iCE8OWoYYDcN8CMMgG6TAzxbTMNyy8030wDJlWCldevU0X16p44d1eVd RfYwhM5XcGAIHhI9aGt3hD8phAenhAH2wwDHyQDUbWKAZ4tpUO684w4YIL5iVlq7Vi3dp7dv107d2LGj
uqi2ubmqQVYD1aVzF992AmcGNMDXMMAOwwBWUVKMTWCToNg2wRMW3SZ8QHTN8ZPqGKDwmq8dAzDGY0cn ap2VperXq686dujo247BzAAG+IYMsEcYwCpKgrEJLDHFtgkes+g24Q3RNWfOqdMEhNd84xgAMR49Mj4D
Z4Cb550CA2TVr4+W30Zd3f1q1bt3bwjfWTVp3FibIbgtCRpAsAmSarTAxBU3SBixYwoeVnSb8BBchNec 3DHvPBigXt261PJbqVuyb1E5OTkkfAfVKD1dm8HcFpgGYGyCJBotMHDFNQkidkTBg4puE54EZ+E1Z3/R
+EULL6TOAPOSN8Dgawcpk6ZNmqqRI0bqOf6MadMxJx2v+vTpoy5HBghuSyZiKtiiWXMY4Cf1yd6Dmh1A wjOJM8C8+A0woF9/JWncqLEaPmy4nuNPnzqN5qRjVY8ePdSNlAHMbcF4mgo2y2hKBvhJfXrwqGYPwSJs
RNjw6f5Txkfx8JnDx599HYqNwk47myxs/tzkG81xiE+iDIBGM2bUaGtMwzJv7tzUG6BZdjPVC6P+0SNH +ezweePjaPjc4ZPPvwnEVmavnW0Wtn8h+VZzhsQHYQagRjNqxEhrTIMyb+7cxBsgo0mG6k6j/pHDR2hx
aXHptCu7dSvYAN9HDECkxb2//atTxv8WxA5hn48PQvChjU9is0GA2Uwo/omTEQPsSaUB5qTAAJz2mXAQ 4bQunTvnb4AfQgYA3OI+2v31eeN/82MPc8jHpgBstvFpZLYwZDYJxD97LmSAA4k0wJwEGADTPgkGgZ06
2LVrVy38sKFD1YD+A/SgkF1BcFvCxYnmME3QAJJercKkAk9cwS9yWKGFeAUnsUQnknko/klA4R0Oods6 ddLCDxk8WPXp3UcPCtEVmNsCLE40JdOYBuD0ahUmEXjiMn6RgwrNRCs4iCQ64MwD8c8REN7hGHVbJ6nb
gm6zuW5ktpiGZe5Nc1JvgIwaNVX7du1Uz2t6qj69eqseGAtk1c/Ss4DgtkQM8A0M8CmEF6Q/tQmTLDYB bKobmS2mQZl7+5zEGyA1pbq6oU0b1e3WbqpH9xzVlcYC9erW07MAc1vABviWDPAZCc9wf2oTJl5sAkZD
4yERsYknODHEDopucvIXGABQeOH7w6kxwJxUGODaAQOVSeNGjfW8v1ZGLWSDWiqjZoaqUrmyuubqHr7t LGIDT3AgxDZFl5z7hQxAQHjmhxOJMcCcRBigX5++SpLeMF3P+2uk1qBsUEOlVk9VlStVUrfe0tW3HYMV
BK5IsdvQBvgS4rvIoOnQT8dSyg/58XOEH6OIDPYO2zhyHPtr4ehxDPaIOfg7gQGfn6PCcYdjmpMK2mv2 KXQb2gBfkfguPGg69tPphPJjXvwc4ngYocHeCRsnz9D+Wjh1hgZ7QA7+ztKAz88p5ozDac05RdprDnx7
fHNIfQGcDPCzao5ukwawxTQsc268KfUGIAP69fcxEN2AbTviGCBbG+AzCC9IoDhqTiWmCH6chRchODo3 TH1JOBngZ9WUuk0YwBbToMy57fbEGwD06dXbR1/qBmzbAccATbQBPifhGQ4URs2JRIrgx1l4YczRuURO
MadoJt6onbiDtyBM6SZM7xq3pYvgGuUU3o90Ac4YgAbgMRhbTMNy0403nhoDxIMY4NtDMMBX33n4gh4Q 0STeqB24gzcTpHQJ0rvGbeksuEY5BfdDXYAzBoABcAzGFtOg3H7bbefHANHABvjuGBng6+89fEE3xImF
JxHyE9SGJzJxBbYKTSBsooLjrk90Lbgr+i/6dWf74CwgJQaYnQIDsHUnw/ix4zBIjDaATwAXm1BhsNWl vAS14YkMXIGtQgMSNlbB6a5PdC24K/ov+nVne3MWkBADzE6AAdC642Hs6DE0SAw3gE8AF5tQQbDVpSHx
gXg2ogQWIGgsoUlQ7DCC458uvKXgpuiRek5GGwDdJqfbtpiGhQfxXBkTL7aK48E0wE4IL1gFMLAJZ2J7 bIQJzJCgkYQGpthBBKd/uuAWgkvRQ/WcCzcAdZuYbttiGhQcxHNljL3YKo4GaYC9JDxjFUBgE05ie0+e
T75AwIIEFkyBTTyxiSsk/vlx9La28ojoJ/E5EY4BWQnkcjAPBqXCALNTYYBgfx8vPKCR3aRplAFsgf+1 kID5CcxIgSWe2MAVkv75cfS2tvKQ6Ofoc0KcJnglEMvBOBiUCAPMToQBzP4+WnBAo0mjxmEGsAX+18IU
CApr4hOZiIAA/6KQ4jz2t3Di1HtSnTAE16JrY0YGhXIsQAzQDI1m5PAR1piG5YZZs04zA+yD+C7BwP9a VuITGbCABP0Lg4vz2N/CgVPvOXVWCK5F18YMDQr5WAAbIIMazfChw6wxDcqsmTMvMAMcIvFdzMD/WvjE
+MQVRDSNX2APEZro5wyxCd4Y+RyL4EHRjRnCkWPH1eeIiXDgdDJA/779VDKMdQ1w4IeffF9SgnZKMIXx ZVg0jV9gDxYa6OeE2IDeGPoci+Cm6GKGcPL0GfUFxYQ5ciEZoHfPXioeRrsGOPLjT74vyUE7L0hhfLB4
IeLFwNFYF953ng8ITVCRT2xLSg+2cGIK7kwdHTiVlLiwcTBWNMCIYcOtMQ3LrJmngwFGj1FNmzTRrjYN EXA01gX3necNoQFV5BPbktLNFg6k4M7U0QFTSY4LGgdiBQMMGzLUGtOgzJxxIRhg5CjVuFEj7WppAIrj
gDj+eriCSpHHkW3sIvuFdsQ2hfaLHRA80MKDgjvrCMfUYRezezyAbMnV1aQNMGNm8gbo16evSgZtgMY0 r4crKBd+HNrGLrJfaEdsKbRfbENwo4WbgjvrCKfVCRfZPR6hbInV1bgNMH1G/Abo1aOnigdtgHQYwJ8B
gD8DSNDxLxpTpFjgPztSbwSfsMQV1yawLX17QhNLy/aLHU7ww75FqKOYGR30YHdJAwwfNswa07DMnD7j OOj0LxwpUiToPztcbwifsMAV1yawLX17QgNLy/aLHUzwE75FqFM0Mzrqge4SBhg6ZIg1pkGZMW36v98A
328AHtBoAgMUNAYwRUmEYH1+YgtrEhQ5XqH9Yucv+A8/RTgEZIGMq6SMFY+6Dh+anAFmnHYGMNKcTYBU OKDRiAyQ3xhAihILZn1+IgsrMUWOVmi/2HkL/uNPIY4RvECGVVLECkddhw6OzwDTLzgDiDRnEyDReIIC
4wlKvDRNLOISiBotsl1ov9iG0BaxbYIfOkyO6HV/Yi6Tf5MqA0ybnrwB+vbuo5KB69k8YYRfykxzEvTt L00Di7iARA0X2S60X2whtEVsm+DHToCTet0fyGXybxNlgKnT4jdAz5weKh6wno0TRvClZJrjoO8+8N15
e7495WzLl28cdvvZmh+7Imwx2LzrawffcX+HTT72q00796uNgFM+Lvx8uveAB5fNOW4aNmSoNaZhmX79 Z1eefOuw38/OvNgXYodg+75vHHzH/R22+Tistu09rLYSmPJh4eezg0c8sGyOcdOQQYOtMQ3KtClTLyAD
tNPIAFHHAo7rlrXhk6/Uh1HYj7ZFY3sv2FEwH8SJ/9Dylw7b/bwfi21fqn/FgJmRA+RPILzw9feHTx8D hB0LOKNb1pZPv1abw7AfbQvH9l5iT/5sihL/oeWvHHb7+SgSu75S/4oAMiMGyJ+S8Mw3P5y4cAyAQ77x
8JBvMnA9m0cQv8GX+vRLONxF+slExEg1fnENgeMRWbCIHMVWslf9E7Bh0AQ7ILxAA7Db5Dn+tpiG5fqp gPVsHEH8lr7UZ1+Rw124n4xFjETjF1cIHI3IjEXkMHaCg+qfBBoGTLCHhGdgAHSbOMffFtOgTJk85QIw
158GBhgRMYDpcukjRYCgKPEQLaANV9AYwgpWUYPYRI2FFvtLLbYNnitJwXd88a1mO+BzqTHA1OQNwIs+ wLCQAaTLuY9kAUxRoiFcQBuuoBGEZayimthEjYQW+ysttg2cKwnB93z5nWY3gecSY4DJ8RsAF33EA1az
koGrWY0bNtJfyjSADIjYB6YaptQDhwqGLc+DLdGFrdIGhdKCufBUd4+DDvsO/ujnwI/qK4MvD/ygvvw2 0hs01F9KGoAHROgDEw1S6pFj+YOW54GW6IJWaQNCacFccKq7x1GHQ0eP+zlyXH0t+OrIj+qr70Lw+yE8
gryfwgvaAGg0PLffFtOwXD/lNDAAFzPEAGaak9Hvr8KPEb6LCcxDAmbyDEU88xjGMQzkN4zTsq2GCRoF ow1AjQbn9ttiGpQpky4AA2Axgw0g0xyPfn8Vjof4PiJkHmCYyTMU8MwjjCMM5DeM07KthjGNQsaQg9LD
xjAHpfvxHA0weNBga0zDwkvEXBkTL7aK44FTGRog6HIGm0H3YxOmIKLriSVkEE9YYmSGWALbskNQ5KDQ 9BwMMKD/AGtMg4JLxFwZYy+2iqMBUxkYwHQ5go2g+7EJkx/h9UQS0sQTFojMEElgW3YwRTaFhpim2LaM
FDMoti0jUPitLtxOG+DaQdaYhiUlBuh1TU+VDBzJNmrYEAH50WcAf8BBUJB4CdanwQjbJUpQE4uwESBq AOF3umA7bYB+/a0xDUpCDND91m4qHjCSbdigAQXkuM8A/oATpiDRYtanoRG2S5igEouwIUjUvEQGAYT+
fiKTEEJ/RaED6X8v+cbBnGbyvY0bNVLXDhxojWlYJudN/vcbgAMZbQAExZx/24ItrSxebHXljyuqRdgo GkIb6f8g+NZBTjPx3vSGDVW/vn2tMQ3KxNyJ/34DYCCjDUBBkfNvW7C5lUWLra68cUW1CBsmLojUvxN+
cUms/h34Rc5HaE9s59w/QU4EFfG3ANajDTAgWQPkJW+Anj2uUcnAgUzDBg11sJjeZOHFFvhUEyWk4Apq kfMQ2hPbOfeP4RNBWfwdBOrRBugTrwFy4zdAt663qnjAQKZB/QY6WEhvvPBiC3yiCROScQW1tlxJmLhM
bbkmUeIK+YhMLEKbYgv6DKD9DuaCEj+jEbrNAf37W2MaFl6X6cqYeLFVHA+8fkAbAF/Kl+ZsAT/V+ES0 HiIDi9BSbEafAXTYQS4o4TMaUrfZp3dva0yDgusyXRljL7aKowHXD2gD0JfypTlbwM83PhFtuMIa4kYj
4QobEDcekb8IiBwUWs768dj3vT44Zq4i8vNpgP79+lljGpaUGICneycDBzINGzTQAWZ6E/glGfAINkHi 8peGyKbQfNaPx6Ef9MExuYqIz4cBevfqZY1pUBJiAJzuHQ8YyDSoX18HGOmNwZdEwEPYBIkGpx5PQMYV
wanHE1BwxYuFT1Ti9slWcYlFYE/kEEKbmMdGzOVi7he7zX59+1ljGhb+QosrY+LFVnE88AKFhlk0wA++ LxI+UYHbJ1vFBRaBPZEDCC2Rx0bkcjH2C91mr569rDENCn6hxZUx9mKrOBpwgUKDejDAj7405wXaFCAe
NOcFOihAMnjiBbEIGcQiqolN4DAiB4Um+niIsSzOA0DmsQJtAGTNvn36WmMaFl6U48qYeOGVP8nAgQwv PPFMLEKaWESV2AQOIrIpNNDHQ8SyOA4AyWMF2gCUNXv26GmNaVBwUY4rY+wFV/7EAwYyuHwcBvDSHGEL
H6cBvDQHbEEmFCIstveHxRPUImqUsIL7My5hRI4ltIe+RC6yMLbxc+fgEKEB2G326d3HGtOwnBYG4LWD MoAQQbG9PyieoBZRw4Rl3J9xCSJyJKE99CVyoYWxrV84B4cADIBus0dOD2tMg3JBGADXDtavV0+nY7ib
DbKydDqmu+XomC3oqcYqookraCxRBZu4xDu66QpsEzkoNNGLYcal8vy9hI8hvLD320O62+zdq5c1pmHh j47Zgp5orCJKXEEjicrYxAXe0U1XYJvIptBAL4aJS+XxewmfkPDMwe+O6W4zp3t3a0yDgmsyXBljL7aK
NRmujIkXW8XxwJMTIwbY72EL9K+BTcggnrABcaMEJjFE1kIbIovQeh0E0+DgYeqP9aXpZJ/usrQBep4G owEnJ4YMcNjDFuhfA5uQJp6whrhhAoMIImuhhcgstF4HoWmweZj6E31pOjikuyxtgG4XgAHw2z/xgBMT
BuBv/yQDT0zgxaN0tU5zLhLg9Vu/iOKfIbC9j7yXCFti867J5oJ5Z/MeO5sc3g4gc/+PILzAMQm7TY7k cPEoXK3TnAsHeOPOL8P4ZwBs7wMfxsKOyHwg2Z4/728/YGebw3sGPPf/mIRnMCZBt4mRvC2mQRkzevQF
bTENy7ixY08zA7h9HNEtBy3ozY27U8/H0axLAW9odjl8lD9rbWyIRqZ+H33KK4odOEahAa7p0cMa07Dw ZgC3jwO65VALemfr/sTzSTgbEsDbmn0OH+fNehtbwuGp38ef4YpiB4xRYIBbu3a1xjQoOCXflTH2Yv4k
lHxXxsRL8Cfh4qVvr976Z2Xo6kia2++lRVugfy18goYQ1cQqMLGIvHbD5z5eN+Avh/AXRTZ8+pUHLxBl XLT07J6jf1YGrg6lucNeWrQF+tfCJ2gAUSVWgYFF5PVbvvDxlgC/HIJfFNny2dceuEAU3SbSuC2mQcEJ
t8k0botpWHhCritj4sVWcTxwICMGkBTHfk76QVtw/11YBTWxiktiC5wfa4A0CPOMJjEAW7EtpmFJjQG6 ua6MsRdbxdGAgQwbgFMc+jnuB23B/XdhFVRiFRdEFjgv1hHcIOQZTWwAtGJbTIOSGAN07qLiIefWbqpe
XamSofc1PVVWPb8BiKwImt1CykFgBSfQjvliYe6fD6RlM0UH+ZDEOE3tA7LDdvKKcwKK1Ku3c+EMpgG6 Hb8BAK8Iym4h4VBgGSfQjvkiIffPB6VlmaJNNoMIp6ltAntsJ684J6BwvXo7F8xg6lO3qYW0xDQoOCHX
TS2kJaZh4Qm5royJl6tQUTJwIFMfBmC/ZgZt8y6eRBmNuVgUBlsd5nqDD2MaKpgLMDYiP/xkGMvFm7p5 lTH2cjNVFA8YyNQlA6Bfk0Hbvg8nUYYjF4uCYKtDrjf4ENNQRi7A2Aj98JMwlos3dfMM5sA/OJWfeaRh
BnOQH5wqyDymYT4wzlaiAThussUzHng+pitj4sVWcTzEMoAt2CnHEy+2iEFiieoX1hU3lMD+rOC19Kis NomzlWAAjJts8YwGnI/pyhh7sVUcDZEMYAt2wvHEiyyiSSRR/cK64gYS2J8VvJYelhVCBsAaBQzQ5abO
EDEA1yhogCuv6GaNaVhSYgDuRDJwIFO/bj3dr5mB8AJrBj1ZpM4QWMU0BI0lqpBvyieGwFEiI/UHzz/k 1pgGJSEGwE7EAwYydWvX0f2aDIQXWBn0eOE6A2AVUwgaSVQmz5QPhMBhIlPqN88/xPN8f9/h73W32blT
83J/1/7vdLfZrWtXa0zDwvMxXRkTL7aK44EDGRqAS65ecACDaAY7lQTFCkNE0GhRfcISq7j5Cyz8i+gT J2tMg4LzMV0ZYy+2iqMBAxkYAEuuXnAIBFEGO5GYYgUhJGi4qD5hgVXcvAVm/gX0CaMHPf5JyG32HXIM
Rvd6/BOY2+za5xjgisuTM8DIESNSYICuV6hkuBoDmfp16qJf+w7B+tLDFuRTjU9EYogYJCJqOGGFyBnB cNON8Rlg+LBhCTBAp5tUPNxCA5m6tWpTv/Y9BesrD1uQzzc+EYEQ0SQkajBhmdAZwX6BPdyzgTd6OAtY
foE93LOB13s4C1jm9lyxzEKj6dqlizWmYRk5bHjyBuiGipLhKvRF9WAApjUvkJpgkP3YRDGxvSca8/Nc cnusWNajRtOpY0drTIMyfMjQ+A3QmSqKh5upL6pDBkBa8wKpMYPsxyaKxPaecOTnuZBIEpuIJqFWG0xc
IJKJTcQgkVYbTly/wBGR17uri1GrjZu/8NXDayeZNfnjm8F4xgNPyHVlTLx0QxpKBqaienXqaAO8bwhh v8AhkTe6q4thq43bv/TVg2snkTXx45tmPKMBJ+S6MsZeOlMaigekojq1amkDfCSEsAX6fKDFAz4BQUhE
C/SpQItHfAKSiIgmphAaV9B8hc1HXBJZKt7jEVwiNuve+dVBGKCu6tKpkzWmYRkxdFjyBmA/lAx0In9h iRRC4wqap7B5iAtCS8UHPMwlYln33q+PkgFqq47t21tjGpRhg4fEbwD0Q/EAJ+IXxpHWpDA6oLaAJwLU
nGnNFEYH1BbwVMC6C8AvpOAXND9Rif/4QERcm8DRxwF2q7c37lZvuZifzYNO9WAA/qkdW0zDMnzo0BQY nQ9+IRm/oHmJCvzHB0Li2gQOPw6wX723db9610V+Ng461SED4E/t2GIalKGDByfAAB1vVPHQidJY7bRa
oMvlKhm6Io3Vzayjlq5cg8A7fR1FkiBKoFOFKVA82A/4xBBVcIW1ihsQWLAeuwCsn+K/t2WPWrZqje42 avnqdRR4p6+DSBxEDnSikAJFg/2ATwRRGVdYq7iGwIz12AWB+iH+hzsOqBVr1ulus22bG6wxDQrOyHZl
O7Rrb41pWHhGtitj4sVWcTzQALVq1tQ/ftymVetCQtASseJP8nbu0NEa07AMu25I8gboioqShb8WzpTG jL3YKo4GGKBG9er6x49btWhZQACaU6zwk7wd2razxjQoQwYOit8AnaiieMGvhSOl4Rg3rnptmpGhWmQ2
Y9y86rV5s2aqVU5Lldu6jf7dYaY6bsdfHb+6e3fnd4h799ZnxQ66dpAagi8yHAOa0aNG6z+Z5vx5ujz9 V1ktW+nfHUaqw3b41fFbsrOd3yHOydFnxfbv118Noi8ylAY0I0eM1H8yzfnzdLn6J+tx/du0qVPV9GnT
k/W8/m36tGlqxvTp+i9mzZo1S82+4QZ14403qptuuknNnTNHzZs3T//1jFtvuUXdduut6vbbblN33H67 9F/Mmjlzppo9a5a67bbb1O23367mzpmj5s2bp/96xvw771R3zZ+v7r7rLnXP3Xere++5R917773OLYHn
uvOOO9Sdd97p3AI+x9e4Dbe9Ge/hT67PQT381c0bZ89WN6DuWTNn4rNmqOn4zGnXX6+mTJmiz8Hnn8yb 8Bq2wbZ30Hvwk+tzqB786uZts2erWVT3zBkz6LOmq2n0mVOnTFGTJk3S5+DjT+aNGzdO/zk3XBQ7hPrg
MGGC/nNuvCh2GPrg6wZfp8/v79e3rz4uwiN83a+6SneNHOR17NBBtWvbVrWG8PwbAfxRTcaKv6sUjGO8 gQMG6vP7e/XsqY+L4Ahf9s03664Rg7x2bduqNq1bq5YkPP5GAH5UE7HC7yqZcYwWxM2VMfaCFvxrYnNy
MG6ujIkXtuBfE5uTC8I2APo1se1TQdi+e6rhKfmujIkXurSQMxOeku/KmHi5vFNnVciZyXXoPl0ZEy/8 ftgGQL8mtn3KD9t3TzQ4Jd+VMfYClxZwcYJT8l0ZYy83tu+gCrg4GUjdpytj7AV/B6CAixNck+HKGHvp
OwCFnJnwmgxXxsRLFwzQCjkz4TUZroyJF1vFhZwZDBowMHkDcIpWyJkJL8pxZUy8cDGikDOTgf37J2+A SAO0Ai5OcE2GK2PsxVZxARcH/fv0jd8AmKIVcHGCi3JcGWMvWIwo4OKkb+/e8RugPVVUwMVJ316JMMAN
TqiokDOTgf1SYYD2HVQhZyYD+vYrNMD/z/AXw10ZEy8d27VXhZyZ8KosV8bEi63iQs4M+vXuk7wBOrRt bVUBFyd9evYqMMD/z+AXw10ZYy/t2tygCrg4wVVZroyxF1vFBVwc9MrpEb8B2rZuoy5k+Msi5fHo15sL
p05n5Msy5cno15sLd+rkLIt2jhwgCR6UsR3csRF8n9Sn1931ypvzmbIPkoZl/2z7fqrp27v3mWMAEZFB t2/vLIt2CB0gMQ/K2A7u2DDfx/XpdXe98uZ8Ju8Dp2HeP9u+n2965uRcPAZgERFEBBRBxomNuMKla3a2
ZEAZZJ7YyCtcenTvrnr1uEb16dlLpzWObrnIwbVu/goZT30aNXyEGjNqlL4cavzYsfrSaP5AQt6EiWry 6t71VtWjW3ed1jC6xSIH1rrxK2Q49WnE0GFq1IgR+nKosaNH60uj8QMJuePGq4njJ6hJubn6d/Pw65lT
xElqSl6e/t08/nrmtKnX6x9SnjFtmpo5bbr+wwqzZpCZAWbo1/iz69yW7+F7WQfrYp2sm5/Bz+Jnjh8z J0/RP6Q8fepUNWPqNP2HFWZOBzMMpuvX8LPr2BbvwXtRB+pCnagbn4HPwmeOHTVa78Oo4SP0r6TidxIH
Vu/DmJGj9K+k8ncSh153nd5X7vOAfv10y+R36dmjh+pxVXd93iRNpg2F7965Y8eUmKZPr17/+RmgkNjQ Dxyo9xX73KdXL90y8V26de2qut6crc+bhMm0oei7d2jXLiGm6dG9+39+BiggMjCZK2Ps5Yas1up80qp5
ZK6MiZf2uW3VqaRNy1a6Va1fv17t2LHDz/btarvJtm2abSZbt6qtQbZsUVtMNm/WbBY2bdJsCrBx40a1 C92qNm7cqPbs2eNn9261W7Jrl2aXZOdOtdNkxw61Q7J9u2Y7s22bZpvB1q1b1TYX3Jd88sknPj7++OMw
yYX3TT7++GMfH330URQbNmzQfPjhh+rxxx9XLXNyVPWq1TTVqlaNUCUC/w5z1cpV9N9frlKpsqpUsaKq tmzZotm8ebN6+umnVfPMTFWtSlVN1SpVQlQOgb/DXKVSZf33lytXrKQqVqigKiZXUNWrpejY2GIWFFyX
lF5R1axeQ8fGFrOw8LpMV8bES7s2uepUwhR54MABtXv3brVz587/GPbu3avWrFkD8atCzOr6tLjMjFoe 6coYe2nTKkudT5Aijxw5ovbv36/27t37H8PBgwfVunXrSPwqJGY1fVpcWmoNj5qpqQ7VHfBHuHEaWErV
tTMyHGo68I9w8zSwGtWqaUNUrJCuTWCLWVjYbboyJl5sFaeKtq3b6D9x/uabb/5HwkxQo1p1CF1LX+jB qtoQFconaxPYYhYUdJuujLEXW8WJonXLVvpPnL/zzjv/kSATpFStRkLX0Bd64NfSNHXreeAq4Pp16uor
X0vT1M/y4FXADerV11cC8VRwnkBbC2ZgdqiYnq5jZItdGDjGcGVMvHAHThW5rVrr8/dswftPgAag+LzI gXAqOE6grUFmQHaokJysY2SLXRAwxnBljL1gB84XWS1a6vP3bMH7TwAGgPi4yAM/mI3z/EI00n9NjcGP
gz+YzfP8IjTRf01N4I9Dc5uGWVn6OgpmDHYJjJEtdmG4pvvVyRuAO5Bq2D/JtG3e3HnqnXfeUW+//bZ6 Q2ObBvXq6esokDHQJSBGttgF4dbsW+I3AHYg0aB/4mnbvLnz1Pvvv6/ee+899e677/rgQL799tse69ev
6623fEgg33jjDY+1a9fG5PXXX9e33G7dunU+pC7zueDnmcg+2eBr7777rt7OrE8+Q/jggw9UncxM3cop j8hbb72lb7Hdhg0bfHBd8jnz8yS8Tzbw2gcffKC3k/XxZzCbNm1StdLSdCuH4JkZTVWzjAyHJiGaNmmi
eE6z5qpFs2YO2RGaZ2erZjAFadKokc4ImbVq6/ECxwG2GIaBMwxXxsQLdyCVMDXJPJpzZ561K4IxaAyq MsgUoFHDhjojpNWoqccLGAfYYhgEzDBcGWMv2IFEgtTE82jMnXHWLguGoCGoMtgffvihBwaKfB8imMj3
Gez33nvPgwNFuU8RgpjvEyFNoXlfTCRmkVsxjiAiiriyf/J+c1sir5vQAGzNjZD2mzfN1qd7CzxNnoYQ sZBSaNxnE7FZ+JaNw7CILC7vH79fbgv4dQkMgNbckNJ+08ZN9OneDE6ThyEYbQTapnF6ut6+NhmnGo0H
tBGwTdPGjfX2dWGc6hgP2GIYFl6X6cqYeGmd01KlEk5PzEWUm+fd7AWMIvHWFMoUIBbcNvg+Ez5vfoZ8 bDEMCq7LdGWMvbTMbK4SCaYnchHljnl3eAGDSLiVQkkBIoFtzfdJ8Lz8DP4ced+EX7OZynyM7fkzeB/A
jnk/iLxmM1XwMbeXz5B9IO+//35sAxjimwZgpuCvhHIswMGjLYZh4RqKK2PipXWLHJVKmAFoAnYDHdq2 Rx99FNkAQnxpAGQK/EooxgIYPNpiGBSsobgyxl5aNstUiQQZACZAN9C2dWt97j4HjGHhcF+KZ7Z2FkCC
1efuS8AEEY73TfGCrV0EMOHzwWxApA5BPsf8DLP+/GD6N2H9/GzWwTqZVTgDYMaqByGjDADBiRYfwhNt 581sALgOhj9HfoasPy+Q/iWoH5+NOlAnsgpmAMhYdUjIMAOQ4ECLT8IDbQCMDWg8kE4GgHFggBaWGAbl
AI4NMB5oDAPQODRAK0sMw3LVFd2SNwB3IJVwcCILFTQDL7KgAIIpEuHFGlxRy5/hasSwYWrokCHuRRj9 5ps6x28A7EAiweCEFypgBlxkAQEYKRLAxRpYUcuboWrYkCFq8KBB7kUYvVTPHj2oe5kbZhBTRO5ScB/P
VN8+fdC9zI0ySFBE6VJ4n89TTN5yWxHWdivbyX7SSCL8a6+9plavXq3rtGUAM/3zohlvLKC7ACcD8H0Z Q0zcYlsW1nbL2/F+wkgs/JtvvqnWrl2r67RlAJn+cdGMNxbQXYCTAfC+1JQUvb0tjkHASqorY+zFc22C
NWro7W1xDANXUl0ZEy+ea1OMBIBX9UhLJKb4pAlGxgxgfujpFAZOdWtnqjqAc+lqVaroBRipl4jBKKIN 4QDgqh5uiUCKDxrRyBgBzAs9naKBU+2aaaoWgbl01cqV9QIM1wvYYBDRBl6T29qQ9TEQnsV/4403NK+/
vmZua8OsT6DwIv6rr76qeeWVV7RJmAE4sucAz/zeWnxXeBG/WdOmjgHwnfg+GoDbBWMXFl4g6sqYeDF3 /ro2CTIARvYY4MnvrcV3hWfxMxo3dgxA3wnvgwGwnRm7oOACUVfG2Ivc4USA1I9TlvmgDbdSbl1SfIDg
OBUw9fOUZTloI61UWpcpPmHwCqJBfWcOXad2bZUJKD5X1riqRoFsQgbhZ9n2gc/xltuwLjPFs6VT7Jdf 5Uf9us4culbNmiqNgPhYWcOqGgSyCWmCz7LtA57DLbZBXTLFo6VD7Ndee02tXr1arVmzRt/HLcD7cGU0
flmtXLlSrVq1St/nLeH7eGU095Hi5jRHDEAL4s4GeJkcZwGE08OmmA7SAHXr1NUGoDlscQwDx1mujIkX 9hHiZjalGBDNgDsbwGVymAUATA8b03QQBqhdq7Y2AMxhi2MQMM5yZYy9SJcmAgxOeKEC3QCuuUOQIxlA
06WpgIMTWahgN8Br7hjkWAbQCyUFwUUUBKw2pk5cRKlZvYZeVauJAIq5gp8hz0tXIJhdAl/ntqb4YoDg L5TkBxZRKGA1aeqERZTq1VL0qlp1CiCby/wMfp67AkZ2CXgd20rx2QDmY4C0DyO8+uqratWqVfo1pHIs
Y8K0TyO89NJLasWKFfo1pnIu/jADMPXrlO/SHPHQ6NYvBmikM5pkgBZ43hbHMPDAkitj4oU7l0qYmmSU /iADIPXrlO/SlOKh0a2fDdBQZzTOAM3oeVscg4ADS66MsRfsXCJBauJRanPqp/AXriEGCyLFB1ghCwIu
2hL9FP/CNcUQQUzxCVfIwsDLqTl35q9rZbIbwACKCylm6zaRzxSCLdzE7NclxUual9YvopMXX3xRLV++ p8bcGb+ulYZugAZQWEiRrVvCn8mYLVwi+3VO8ZzmufWz6OCVV15RK1eu1O/DaB4GwJ+D94TXrd4BwrP4
XL+Po3kagH8O3hNet3oHCi/icwDIBSExABeDbDEMCzOsK2PihSPTVEJnUvz2zAIYEN4wa5YnQlB8wiXU GABiQYgNgMUgWwyDggzryhh7wcg0kcCZEP8GZAEaEM6aOdMTwRQfYAk1P7DSppdQqdWj30fqL18uSSUR
guBKm15CRatnv8/UX6F8mkoDFI3iEQpCKCqFpuCCtGYxgLxHMAUX0U2xly5dqlm2bJmG9/ke7hd/9ZMC EA3iAQgCICqEhuAMt2Y2AL+HkYKz6FLs5cuXa1asWKHBfbwH+4Vf/YTA2gBu62SRtAHoNccA6XrM4xmA
awO4rVNE0gbAa44BGusxj2cAfB++ZotjGNjNujImXprBlalEi8+jVW43QAPYhBey0LILgumfA8AMpP4q vg9es8UxCOhmXRljLxnkykSixcfRKrcbgAFswjP1qGXnB9I/BoCplPorV6yoxS9XpowqW7qMJzTXxxmB
lSpp8cuXLavKlSnrCS31SUaQFm+KT7NQZMI+XFq22brNx7ylAUwTLFmyRC1evFhDo3BBh4KydevpHgQn W7wUH2aByAB9OLds2brlY9zCANIEy5YtU0uXLtXAKFjQgaBo3Xq6R4IDbQASCQJzbND/YzmYB7ToxvA+
2gAQiQJLbNj/czlYBrTsxvg+M37xwNVWV8bEC3cglXB6QuFzWzvLlbym3xRFhBIobkGwtdRB+ue8uZo+ Gb9owGqrK2PsBTuQSDA9gfBZLZ3lSlzTL0VhoRiImx9oLbUo/WPeXFUfSSuvTYCDKbIu1M/Cc0tHRpCp
klZBm4AHU8y6WL8ILy2dGcFM7WYrFxPYzCCiEzEBW/6iRYvUwoUL1YIFC/S2nJVwnEJxfS3fFV9SP9Ez XbZyNoHNDCw6YBOg5S9ZskQtXrxYLVq0SG+LWQnGKRDX1/Jd8Tn1Az3joSkgfluZDYD3yfhFA04qcWWM
HkwB+dvKYgC+z4xfPPCkElfGxAt3IJVwx7RDmzi3UyZP8Vqg2VIFilsgCBYPsdasVt059l6lqqpcsZKe vWAHEgl2TDu0kXM7aeIkrwXKlspA3HyhYOEQa/Wq1Zxj75WrqEoVKurZgBSbUz/36QwMwCaQ/bpM85za
DZhiS+qXPl2gAcQEZr9upnlJ7ZLepZVTcFN0Mn/+fPXCCy9oc9CYHKNwcOcT3hUp24gNF4A4A+D2NI42 Ob1zK4fgUnSwcOFC9fLLL2tzwJgYo2Bw5xPeFamJiA0WgDADwPYwjjYAmULGLxowyHZljL3AleeTiRNy
AExhxi8eOMh2ZUy80JWnksmT8jyBeBs0AFtCgSDIPKZOA/AYOw+iVMY4ID2tgm8MIAKLyNKyzRZtpnEK PYFwaxoALSFfKMg4pg4D4Bg7DqJUonFAclJ53xiABWaRuWXLFi3TOITFLR7L1C7hbWAAiP7SSy9pXnzx
y1s+NlO7iWxDA1D0559/XvPcc8/pumhMZil+V090ICJ5sYD4jSF+I4wXOKahcWgA73ULuS1bGUf/Wuv1 RV0XjIkshe/qiU6wSF4sSPx0Er8hjRcwpoFxYADvdQtZzVuIo38t9fq/fB3drCtj7AU7lkgwP5VHrLAS
f/N1drOujIkX7lgq4fzUPGLFlUBOuWSFLsoACERBMFi1ESwuADEjMHCSCUR0M8WbBhAkvdME0spN0c37 iCkXr9CFGYACkR8IVk0KFhaAkBEQOM4ELLpM8dIADKd3mIBbuRRd3ofYaOVo7dzy8RjCv/DCC2rBggUa
FJutnK1dWj4fU/hnn31WPfPMMxpuS2PSAEztXmuHOEQL5cbFEd9Z1OL2TpdWwxe7IBxL6QM/7qyKgpuv bAtjwgBI7V5rJ3GAFsqNiyO+s6iF7Z0uLcUXOxOMpfSBH3dWBcHl6+hqXRljL9ixRIIAyIHKpNyJOk1z
s6t1ZUy8cMdSCQNgDlSm5E3WaVr656AB6tSqVSBsZbUwZ+bZNxmYOjmtP01VAGZ6l9Ru9uVyKxnATPNB /2waoFaNGvmCVlaD5sw4+yaVpk5O609S5QmZ3jm1y76cbzkDyDRvmoDTvUz5pgGef/559dxzz6lnn31W
E0i6N1N+0ABPP/20euqpp9STTz6pn+dUjgNBtmwe6m3SEOKAxqQBYgIoPF+n+Fn16rlTWqdLs8VQYMvX P4+pHAaCaNk41NuoAYlDpIP6FBMCwuN1iF+vTh13Sut0abYYMmj5etnXXfnDY/k6GpgrY+ylIe1UIkE/
y77uyh8fm6+zgbkyJl4aYadSCftBvQ6AHWdfyL9vy9QvJggaQE6hyg+mfc4A2OJrI3DsArgGkI7BoLR6 qNcBaMfRF+Lv2yL1swlMA/ApVHmBtI8ZAFp8TQocugCsASTTYJBbPcSXaV8KL8Vn4aUR2ARSbKR7gFTP
im+mfVN4U3wR3jSCmMAUm+meMNVLq6f4FP6JJ57Q5wTSEFzMcQaC9XUfr/t5T3SeIeQI74jPFU0YAIaR rR7iQ/hnnnlGnxMIQ2AxxxkI1tV9vO7nPdFxhpAjvCM+VjTJAGQY7tJsMWTQBfCBJADB5evIDq6MsRfe
Ls0WQ4FdgBxIIhTcfJ3ZwZUx8SI7lyrY/3lHv2AGnl5tLsYEDcAzagrEXf2j6Bz4pVdIV2nlyqvy5cr5 uUSB/s87+kVmwOnVcjHGNADOqMkXd/UPomPgl1w+WSWVLafKlS3rExxCy9YuW7wt9cuWzqLjlls7xGfh
BKfQZms3W7wt9ZstXUTnrbR2ii/Cs9WL8I899ph69NFHtTEool6ggriO4BHM1Uy+rtc00PrZrXFFswa6 0epZ+Keeeko9+eST2hgQUS9QkbiO4CHkaiZe12sa1PrRrWFFM4W6MVsMGaR+PatwB5Z4LF9HQ3NljL1g
MVsMBaZ+PatwB5Z8bL7OhubKmHjhnDSViPPl8YTx432jdIouUzXCQBSI7v+rq8rpzhm1FTD4Y+sn0tJF TppI2Pn8eNzYsb5ROkTnqRpAIPJF9//VVKVk54za8jT4Q+sH3NJZcBZais+t3kz3EN/W6hnZ8jntP/HE
cBHaFF9afTDdU3xbqxfMli9p/5FHHtH84x//0M/xpA4alGndExzfWwtO3IUsDcVHtqgDU7Pr4DhG4mSD E5p//OMf+jmc1AGDIq17gtP31oIDdyFLA/EpW9QiU6PrwDiG42QD6V/OJPDYfN2VMfZSn3YskWBwwosh
6d+cSfBx8HVXxsRLA+xYKuHgRBZDiGQAWZ41p22crlHcgmD6Z2upgqkfDcGVQLb+0qVK+8Q2W3ZQYFNk gDMAL8/KaRumaxA3P5D+0Voq09QPhsBKIFp/qZKlfGLLlm0KLEVG62bQyhkWHMJK0Rm0/scff1z9/e9/
tm6BrVwQwSmsKbrA1v/www+rv//97+qhhx7Sj9ktcR+5IhhcvaTggkxp69bGgBYG0N8J77XFUOA5BTLg V4899ph+jG4J+4gVQXP1EoIzPKWtXZMGtGQA/Z3ovbYYMjingAd86PPx2HzdlTH2Ylt5iwe4FQMWPXCh
Y5/Px8HXXRkTL7aVt2SgWzlg0QMX7CCvspHWTuFluVbm57UQiILIQOuvzrk/Wr9eDayM/h9ZgCYQ8c1W HcRVNtzaITwv1/L8vAYFIj9SqfVXw9yfWr9eDaxE/T9lAZiAxZetXBoBwrMRYACbEcyWzsJzypdpH8L/
bhqBwosRaACbEYItXYSXlG+mfQr/t7/9TT344IP6cTXsS0b16jqt8/vXh8gmXMMQKL4e06D1s0vjolYw 7W9/U48++qh+XJX2JbVaNZ3W8f3rksgSrGEwEF+Paaj1o0vDopYZP8B9P1I/9/cNqMVjUI3nML7CdtjG
fkT6fqZ+6e8bosVzUM3nOL7idtzGlTHxEtzhZOHOMl1xRzkl5K9rSvq3rcqxD/VAKw/Clk+q8qIK9P08 lTH2Yu5wvGBnka6wo5gS4tc1Of3bVuXQh3pQKzdBywdVcFEF9f04p758uXKqbJkyqkzpMp74sj+XIput
p75C+fKqXNmyqmyZsp74Zn9uihxs3RRZbgUKTrFFZEnxZmun6CL8X//6V/WXv/xFv879qolugML6xXbW GyLzLQPBITaLzCletnaIzsL/9a9/VX/5y1/069iv6tQNQFi/2M76hZzKIvWju0DGwHeCAWwxRCPCFNJJ
L8ypLFM/uwtmDH4nGsAWQzYiTiGdVO9mFQjOTMLulVNMbscM68qYeDF3OhVwBzlg4eCFA0GOAWSqZpuj 9W5WIcGRSdC9YoqJ7ZBhXRljL3KnEwF2EAMWDF4wEMQYgKdqtjl6NQpCVQoiAulQ0YHSPYPUD/Ex8IMB
V0cQqiGIDKRDJQeke4Gpn+Jz4EcDSP/P5WC2dgofq0WLwNKig606ltgUmiJTbFP0Bx54QN1///0abscV uP/HcjBaO4SP1KJZYG7RZquOJDaEhsgQW4r+yCOPqIcffliD7bAiiewEUbXImLqS0MCbyZDowBE/RS9p
SWYniqpF5tQVQhNvJgPRiSN+Db2kLV2aLYaEDUh3HxBaVkMJY2ved2VMvPhW3FIAW78+YUHPAppqA5hT c5dmiyFAA9LdBwnNq6EAsZX3XRljL74VtwSA1q9PWNCzgMbaAHKqZk7TKiUn63SOVl2eBAZJZcp6lAPU
teA0rXJ6uk7nbNUVIDBJK1vOozxBSy9burQqXbKk3pZHAfl82TJlfP04hRdEdIocbNmCDOjk+aD4FJvc 0suUKqVKlSiht8VRQDxfpnRpXz8O4RkWHSKbLZvhAR0/b4oPscFDDz2kefDBB73bBx54QG8DY6Ilo2sy
d999mnvvvde7veeee/Q2NCZbMrumoNge7lhGj2dgAA5o+R4awBZDwpTPkb75HMcBzArymANEV8bEi+Pa xfZwxzJ6PEMGwIAW74EBbDEESPkY6cvnMA5AVuDHGCC6MsZeHNcmDjhTpj2cz8dTNJ6myalaEvXjpUuW
1EFnmmmP5/PJFE2maeZULQ39eJlSpVSpyy5TJS+9VHNZiRKaS0nx4qpEsWKqeNGiqhgoBRNcim2K4bki VCWvv16VuO46zfXFi2uuA8WKqeJFi6piRYqookRJMsF1tE1Req7wtddaW3deogO0dgat3kzzfB+3ZlaA
l1xibd35iU7Y2gW2+mCal/u8DWYFCv/nP/9Z3X333ToL8MAUMxbPT+DI3gNCEwruwZbP8Yyb/jmmCcbP 8H/+85/V/fffr7MADkwhY+H8BIzsPUhoAME90PIxnnHTP8Y0ZvwkSPXyMboG+RiNzZUx9sLpKlHoLoCc
hKnefMyuwXzMxubKmHiRdJUqdBcAZwq8lNqcpwenZ2Uwkr+0eAkIXEwVK1JUFS1SRBWFsEUuvkRdcvHF yeBSajlPN6dnpWkkf12x4iRwUVW0cBFVpHBhVYSELXzNteraa65R1159jbrm6qvV1VddrW9LkFFggOJk
6pKLLlYXX3SRuujCi/RtSRiFBigBYxSHCSTtMwPIrWSB4MBO+nmaguYQM4jIAsU20z1bvEDh77rrLvWn jGJkAk77yAB8y1nAHNhxPw9TwBxsBhaZgdgy3aPFMxD+vvvuU3/605+0GbAiWYkMAFGRBUx8YxyIT90F
P/1Jm4ErkpVhAIrKLBDEN8ah+OguKD67NmY/WwwFNiaOqXifrV83KuN1zg5cGRMvcOkqSVupgDuqF4HQ xEfXhuxniyGDxoQxFe6j9etGJV7H7MCVMfZCLl3DaSsRYEf1IhD1T+ijRo8c6aV7GMCcj6Plo2VrwVls
P7GPGjt6tJfuaYDgfJwtny1bCy5iu4JfdOGF6qILLlQXXnCBuuB/HNjqKTzfw1sKa/b1IrSZDSg2haa4 V/Crr7pKXX3lVeqqK69UV/6PA1o9hMd7cAthZV/PQstsALEhNMTl9M4gpUNkTve4z2keoLVzi4fw+ufn
kt4FpnSKLOme9yXNE7Z2afEUXv/8PLjjjjv0Y45LuDZBYSmwDFpN+JqgxcdYpwreUxHdmS2GJqYBgq/x iXvuuUc/xrgEaxMQFgLzoFWC1xgtPo11KtN7KlB3ZouhRBrAfA3PkYSXCKIul6SkpFxRo0rKa+inEgH6
OUh4lkHc5awaNWqcX6tqjZfZT6UC9lEyC6ARxsAAZssPLsIMGTIE6RNTIgSqKgJURZ/w6Zz0WRmBqoTW KJ4FwAijyACy5ZuLMIMGDaL0SVMiClQVClBlfcKnc9JnJQpURWpdmPdXABQ0/TqB8wEH9O/vtWZO95zy
xXl/RYKg6dcBzwccPGiQ15ol3UvKD6Z487GZ0qW1C2IG3prQFGzxt99+u7qNf3OAf5MAJuA4hUJSVJ/Q zRQvH8uUzq2dYTPgVgJToMXffffd6i78zQH8TQIyAcYpEBKi+oRm6LswGMDKQS3eZ4uhCcZStudhjiZN
Ar6LwAGsOajl+2wxDMKxlO15miM7O/u30PEcaukSusgbzklLS/vvmlWrvmKbg8cLpyvsu/QSJmAGoAEI mvyWdLwMWroELvyGy5KSkv67epUqr9vm4NGC6Qr6Lr2ESSADwAAABjCnaRggytPF+KCRXDtgeDrJU0pk
DRCcpnGAaJ4uJgeNzLUDQaaTMqVkNjH7eBHZTOUcvdtat7RqadkCU7u0cIpNzPu33nqruuWWWzQ0AQeo E9nHs8gylWP0bmvd3Kq5ZTNI7dzCITaQ9+fPn6/uvPNODUyAAWoyDUohKmYzJnpmQ695MxqYmHAMkGSN
6RiUUlTOZoLomQ1e82Y0NDFwDJBmjWFYOFCEfudlZmb+jjqCs11NQxVuyDfwzeedf/75RapVrvyarR+L YVAwUCT9CqWlpf0OOhKXupoGKtgQb8CbC11xxRWFq1aq9KatH4sG9FOYt+KgCLLAiGHDvJQP4eV0Tc7P
B/ZTnLfyoAizwKgRI7yUT+HN6Zo5Pzf7aw7qzIUYc1BnpnWKL2mdQsuUTZDn2LLFBII5mjfTvNnHm0ag ZX+NQZ1ciJGDOpnWIT6ndQjNUzaGn0PLZhMwcjQv07zs46URILYUnw1QtlRpPXOphDUKFjkvSHy9pE2t
2Kb4YoBypcvomUtlrlGIyPkB8fWSNlo/xw+2GIaFcYZ2/w3+D/g9iCsT6NYP+MbzwUXnnntuWuW0iuu4 H+MHWwyDgjiTdv9N/B/i90RUmUC3fgJvvIK4+vLLL0+qlFRhA1beYgXzVixi4AwZZAL8dUvu95H6YxFd
8pYonLdyEYNnyDAT8K9bSr/P1J+I6GYrDz6WtG6mdLkviAFsaV1uaQQRn7diiKARTAPQEGVLlkI3UFYL tnLzMad1mdL5PsMGsKV1voURWHzcsiFMI0gDwBBlSpSkbqCMFpRbd17AKNz6kTlsMQwK1glItyLEH4n/
Kq07P2gUaf3MHLYYhoXrBNCtKPgj+C/Axhw6C3Aj9h/nAbqIFZX/7W9/26BC+bR/2lblwsDBiSxpksHX ItCYA2cBbIT+oxABF6Gicr/97W/rly+X9E/bqlwQMDjhJU0woF8/ne65xcciOouMW7zOz8nWD4F54AYg
XqvTvbT4REQXkXnL1+U5s/VTYBm4EYoaTPdmy+atIAKbqZ4EtyGmAUgZTEvZDVSEmBS3IGgUQgNwIcsW qpnuZcvGLcMCy1QPzG2ANAAoTdNSdAMVSEyImx8wCoABsJBli2FQsBZAmpUhCrsaXk5A06gN8D9EcaIS
w7BwLQCalQVFXA3PBdQ0bgP8DygBKoOG55xzTrcKZctu5MGKeOFiBw9UsH/iLa/ls03PTAPYjCAmEKHZ 0eCyyy7rXL5Mma04WBEtWOzAgQr0T7jFtXy26Zk0gM0IbAIWGq1a9u3cumXqZyNAeIiOVs3AAAwbgYVl
qs2+XVq3mfrFCBSeorNVCzSAIEYQYUVwM83PnTtX/zEqEz4XNEDpy0rqbiCdswFX3Pyg8NL62XXYYhgG wWWanzt3rv5jVBI8Zxqg1PUldDeQjNmAK25eQHhu/eg6bDEMAgyAxkZ6VSZKEFcR6Ao4C+Rb2ABIHTDA
GoCNDXpVASXBhYBdgWSBAosYgKmDBrgMVAVNwZVnn312XvnLyu7kUm08cMoia9g0AP+ogfT7wfQfzAKC 9UQVojHR5dJLL80td32ZvViqjQZMWXgNGwbAHzXgft9M/2YWYKQBzEzA4nPfbo7cOZ3LPp1FZoFZZPzV
aYBgJhDxpW8PjtwlnZt9uogsAovI/KthQfg8txP4PmYGyRKm+KQ0prHlSpeGmJwNOOIWBMVPd1c+bTEM MBM8j+0YvA+ZgbOEFB+Uomls2VKlSEzMBhxx8wPiJ7srn7YYBgFjLTLCL6RVGlGWuJb4A4EuPVA3gA0w
A8daMMIv0CoTlAOXgD8AdumhugFuwDEAMwD7EMkAjUE3MOGss856qFSpUvttOxALjk5lJZD06tlTC0co BkAGQB/CGSCd6EyMu+SSSx4rWbLkYdsORAKjU14JBN27ddPCAYgoBeUpGQSVfbcprtlfmyLbBm1SZG69
oimoTMkoqNl3B8UN9tdBkW2DNlNkab0iMAm2bkGMIPdpAtYrdc+ZM8cH1zG4TB2vAWTp2xbDgpBpID7z LDAwWzfDRuD7MAHq5brnzJnjA+sYWKaO1gC89G2LYX7wNLBs2bLHSae6RDKBLvz/EnIwmGdhA6DfwBtR
R+hUH6QDduH/F5iDwXyLGID9Bt/ICtJAPdABjAD3wQQvlS1a7KBtR2xIehI6deyoA0UBzMDxsSDP8W8B QRJRh2hLDCMeIhO8WqZIkaO2HbHB6Ylp366dDhQEkIHDY4afw98CnD3b+dt9+u/3zZypZsyYoabz3/Cb
zp7t/O0+/ff7Zs1SM2fOVDPkb/hNm6aud/+On/5bfpMnq7y8PDVp0iQ1fvx4/ff8xowZo5H7ozENJXxM OlVNcf+On/5bfhMnqtzcXDVhwgQ1duxY/ff8Ro0apeH7I2kaCvAYjB8/Pk/wdwFRlwk/P2bMGB9lS2MW
Jk6cmC/8u4CsK4g8P27cOB/lynAW4IjPwV1YuAZAbDHMD6Z9NjLer1ChwjZolJQBZBrIvoN9SClQHTQD 4IiPwV1QsAYAbDHMC6R9NDLcL1++/C7SKC4D8DQQfQf6kJJENSKD6EbMJJ4iE6y6/vrrD9Eo9iRNYU5S
PcEs8BhMsOKyyy7bh1HsEUxhjqDPO2qDr6ELOFKvXr0j9UEWaJ2Tc6zr5ZcfFzq0a3+ifbt2mnZt23q3 v3fKBl6jLuBknTp1PFpmZp7udOONZ5jWrbLOZrVqpWnVsqV327JFi7OZmZkezZo21TTNyDib0aQJcw40
bXNzT7Ru3dqjVcuWmpY5OSdyWrQQTpIWzZt7mI9zcnLcxw7NsrNPZrvwPuF2zZs1O5HdtKkHH5NmQna2 EcjHGRkZYa/baNyo0dn0hg098Bg0YtLTNfx866zWZ1pnZZ3JatnqTGazTKKZhvbvTNWSpU5VKVHyVGn6
Rp5vm9v2OPbveG7rNsdzWuSAFhrUdbxa2XJHq5Ype7Q8vr/Ep6AY5QfrsFGtUuWfq1Su8hM+6wdstz+t /hyf/GKUF6jDRtWKlX6uXKnyT1VKlfqRtjucVC5pC03d0Uhj7gJQZBbgmQAqq0G0IHKICcRc4l7iAeIh
fNoGTN3ZSBPuAljMLCAzAVZWC7QCvcEkMBfcCe4B94H7wQMGfMxscW/RokX/UqNGjb+1bNnyoR49ejw+ 4mHiEQEeI1s8WKRIkb+kpKT8rXnz5o917dr16SFDhrxILWcxtdSlkydPXk6teAW16FeoRa8iVlMLf51a
bNiw59ByFqKlLp46depStOJlaNEvokWvACvRwl9Bq1+N1r8GrEVGeBPp+22k3nfBeqT4fyHV/y/4EKl+ /Vpq/euI9ZQR3qH0/R6l3g+IjZTi/0Wp/n+JzZTqt1Dq/5jYSmwndlB3sJOe30mj/V207W56vBv3aftd
A1L/R2Aj2Ay2oDvYiue3YrS/Ddtux+PtvI/tt/F5dAdbkLo3o65NqPdjpPYPkdo/QDfwPu7/C5+3Ho/f eJ66gx2UurdTXduo3k8otW+m1L6JuoGP6P6/6PM20uP36f679Po7dLueWEfPY5+wb2soG60iVtK+L6Ms
wf238PqbuF0L1uB57hP3bRWy0QqwHPu+BFnk+REjRjw7aNCgZ7p37/4UzPVEenr6w3/84x/v/93vfsf4 8tKwYcNe6N+//4Ls7OznyFDPJCcnP/7HP/7x4d/97neIz58J3D6ImOQBXsd2Jni/5H7iPuIuAg0Soncl
/Bnw9l7GJB/4OrcLwveb3A3uArcBNkiK3gO0BQ0AB4Ecv8U9CGQxs4AMBosBmqAmaALagytBL9APDAAD WhP1CQwCMX6LehCIIrMADwaLEjBBdaIRcQPRhehO9CL6EH2JfgI87kMDx96FCxcekJaWNrxt27bjBgwY
wbUGfDwAA8f+RYoUGZyZmTmyQ4cOEwYPHjwTaXoeRL4VAb8D/ejd4B4IdR94AH08uvwH/46+/x/gUYwH MIPS9DwSeT4F/B7qR+8nHiChHiIeoT6euvxH/059/z+IJ2k88DSNC56l8cFzxAIaDL5IA8WFNG1cRCwl
Hse44EmMD54Cz2Aw+BwGivMxbVwAFoMlGDwuwy1ZjgHli3i8ArcrCZ57yYSvua8vRz1LcX8pnl+CwegS ltHgcQXdgpU0oHyFHq+i29WAnntVgtfc11dSPcvp/nJ6fhkNRpfRc0vodjE9t4gGoS8RL9Ln4TOfpYEo
PLcItwvx3AIMQp8Hz+Hz+JlPYiCKycjjuPvYIxiMYvjy8EPYrwcx0Lwf3+MWmIPfaS6MPbtnz55TmzRp TUaeprtPPUGDURq+PP4Y7dejNNB8mL7HnWQOfKe5ZOzZ3bp1m0xZYxSNlfoXKlSoJ8UBIE69EZM8wOtB
MgZjpUHnnXdeX8SBME79GZN84OthYX1sjN1BJ5ADskA1UAZwGsj0H9c0UIpkAaYOOogmYCYoDSqCGqAO QX1ojNlEeyKTqEdUJUoTmAYi/Uc1DeTCWQCpAw6CCZAJShEViBSiFgG3YYCIWUITAzwHs6RXrVq1xU03
oNs4QOQsITsAn6NZGlerVq3VFVdc0RmtpDtafD+0wiEY1A2DoMMxAByBQI+GGGMgxDgIMB5CTJw/f37e 3dSBWkk2tfhe1AoH0aBuCAk6lAaAwyjQI0mMUSTEGBJgLAkxfuHChblLly6dRExetmzZFLqdtmLFihnL
4sWLp4CpS5YsuR6305ctWzZz6dKlswge34DnZy9cuPAGzChmYHs+d+OiRYtm8z6fc5kpoN5ZmHncgNfJ ly+fCejxLHp+9uLFi2fRjGI6bY/nbluyZMls3MdzLjMYqncmzTxm0etgJli0aNEMqgPvnUnvnS7qn0aP
LLJgwYKZqIPvnYX3zjDqn47H0/DaVNznfkzBtpNRzyTuH/eT+wwzDENm6YNs0hs+6IlM1mPo0KFd27Vr p9Jrk+k+9mMSbTuR6pmA/cN+Yp/JDEMos/SgbJJDPuhGmazr4MGDO7Vp0yYrKSmpyR/+8IeGFAOAOCEe
l5uWlpb9hz/8oRFiQBgnxoNxSQWsi/VSA2rBxkltqBHFT2ghSAo3Nk3AiugmphRmA6YXuowDxAqAH1wp iEsiQF2oFxpACzROaAONIH5MC0FcsLE0ASqCm5BSkA2QXuAyDBDLE/jgigZ4DgOR8iVKlKjSoEGD1O7d
AJ/jQKRCyZIlqzZs2DCjV69e9TEIa4TUmY0U3BwtvjnSc3O0+hwYoiVaVSuCVqZBi2sNc7RBoHPRKttB u9elQVhDSp1NKAU3pRbflNJzU2r1mWSI5tSqWgBqZRpqcS3JHK0o0FnUKtuQeK1JBA2Jr29JxCwSpRVe
vLYQQQPx9S1EzIUobfga4XYQqL2A97dD623L+zBYBwLTtYVwbWDAXHyOhve5LcE23D7XqLs16m2J/WhB A9iOBLqBofe3odbbGvfJYG0Bma41CdeKDJhFn6PBfWwLaBtsnyXqbkn1Nqf9aAZo2wyafTSizNWQuooG
sG0zzD6aIHM1QlfREMLXuemmm+qg+8rEoLE2vmfNxo0bVylRokT673//e8aHMBa2OCWKxJcacOGH8/7i JHyt22+/vRZ1X2k0aKxJ37N6enp65eLFiyf//ve/R3wAYmGLU6xwfKEBFn4w7y9GXEPEvBQsizQBXIRU
4GKQ8FKwWUwT0EVMJayURmBGoBn4YRxo0HGx4OsXFy9e/OKMjIxLWrVqVQQBKjJw4MCiQ4YMKYKUqcEI gkphBGQEmAEfhoEGHBcJvH5NsWLFrklNTb22RYsWhSlAhfv27Vtk0KBBhSllamgEX4RSqL517xdlKLjF
vihSqL517xcTENziBIEuYQNmujQZbHUS+VxzX2T/BNl/fhd+J343fke0/kuKFSumv7sbg2BcmFETxayH AAW6uA0y03XxYKsT8OfKfeH9Y3j/8V3wnfDd8B2p9V9btGhR/d3dGJhxQUaNFVkP6r6auJKA8FjCxzQe
dV8ELgAUnkv4nMZTM2oXd+sPFr6ZlbAy9iV0FT+AWYGGIPzQWOhtMGP4r6ysLE3fvn3Py83NPXfkyJE+ mkG7qFu/WfBmVILK0JfAVfgAZAUYAuBDI6G3oRnDf9WrV0/Ts2fPQllZWZcPHz7cBwW40MWEuf/4XjQA
EODzziSC+8/vhQHgefI9+Z3l+7uxOBWwbn4ONWEjpfDUKeGWH6tIZWIGMURYzrnyyivPQeDOJnis65PH LMTfE9+Zv78bi/MB6sbnQBM0UggPnWJu+ZEKV8ZmYEME5bIuXbpcRoG7FNBjXR8/vtgxvwu+K74zYcYB
ZzrB78Lvyu8MgnGgQKnCrFc+z4stsJTf/Ob/AXRLhhbT3iVzAAAAAElFTkSuQmCC AiUKWS9/nhdbwlJ+85v/B6ADhC6QGzEaAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -453,7 +453,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown1.PropBag" xml:space="preserve"> <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> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 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>
<data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -463,9 +463,12 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown2.PropBag" xml:space="preserve"> <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> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 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> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value> <value>124, 17</value>
</metadata> </metadata>
<metadata name="ctxMenuTarif.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 17</value>
</metadata>
</root> </root>

150
DPM2016/Klassen/clsStammdaten_flat.vb
View File

@@ -28,7 +28,7 @@ Public Class clsStammdaten_flat
End Set End Set
End Property End Property
Dim db As New clsDB Dim db As clsDB
Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
@@ -43,7 +43,12 @@ Public Class clsStammdaten_flat
Public Sub get_data() Public Sub get_data()
Try Try
Try
db = Nothing
Catch ex As Exception
End Try
db = New clsDB
Me.c1daten.DataSource = Nothing Me.c1daten.DataSource = Nothing
Me.c1daten.DataMember = Nothing Me.c1daten.DataMember = Nothing
@@ -62,24 +67,45 @@ Public Class clsStammdaten_flat
Dim spalten As New Tabellenspalte Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0)) spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0))
If Tablename = "Auswertung" Then Select Case Tablename
Dim printer As New clsPrinter Case "Auswertung"
printer.Get_Printers() Dim printer As New clsPrinter
Me.C1TrueDBDropdown1.DataSource = printer.Printers printer.Get_Printers()
Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.DataSource = printer.Printers
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1 Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
End If Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
If Tablename = "User" Then Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1 Else Me.c1d.ContextMenuStrip = Nothing Case "User"
Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1
Case "Tarif"
Me.c1d.ContextMenuStrip = Me.ctxMenuTarif
End Select
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Public Sub Check_Changes()
Try
Dim ds As New DataSet
ds = c1daten.DataSource
Dim xdata As DataTable = ds.Tables(0).GetChanges
If xdata.Rows.Count > 0 Then
If MsgBox("Daten wurden geändert. Speichern?", vbYesNo + vbQuestion) = vbYes Then
db.Update_Data()
End If
End If
Catch
End Try
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Check_Changes()
If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear() If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
db.Update_Data() Me.c1daten.DataSource = Nothing
'db.Update_Data()
End Sub End Sub
@@ -142,11 +168,99 @@ Public Class clsStammdaten_flat
End Sub End Sub
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
If Tablename = "Dentotar" Then Select Case Tablename
Dim f As New frmDentotarDetails Case "Dentotar"
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value) Dim f As New frmDentotarDetails
f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value)
f.ShowDialog() f.TextBox2.Text = Me.c1daten.Columns("LeistungD").Value
End If f.TextBox3.Text = Me.c1daten.Columns("Interpretationd").Value
f.TextBox4.Text = Me.c1daten.Columns("Abrechnungseinheit").Value
f.TextBox5.Text = Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value
f.TextBox6.Text = Me.c1daten.Columns("PP_MIN").Value
f.TextBox7.Text = Me.c1daten.Columns("PP_Privat").Value
f.TextBox8.Text = Me.c1daten.Columns("PP_Max").Value
f.TextBox9.Text = Me.c1daten.Columns("BetragInCHF").Value
f.ShowDialog()
Me.c1daten.Columns("LeistungD").Value = f.TextBox2.Text
Me.c1daten.Columns("Interpretationd").Value = f.TextBox3.Text
Me.c1daten.Columns("Abrechnungseinheit").Value = f.TextBox4.Text
Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value = f.TextBox5.Text
Me.c1daten.Columns("PP_MIN").Value = f.TextBox6.Text
Me.c1daten.Columns("PP_Privat").Value = f.TextBox7.Text
Me.c1daten.Columns("PP_Max").Value = f.TextBox8.Text
Me.c1daten.Columns("BetragInCHF").Value = f.TextBox9.Text
' Me.c1daten.Columns("LeistungD").Value = f.TextBox1.Text
Case "Tarif"
Dim f As New frmTarifDetail
f.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
f.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
f.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
f.txtBezd.Text = Me.c1daten.Columns("bezd").Value
f.txtBezf.Text = Me.c1daten.Columns("bezf").Value
f.txtBezi.Text = Me.c1daten.Columns("bezi").Value
f.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
f.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
f.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
f.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
If Me.c1daten.Columns("MitLabor").Value = 1 Then f.cbboxmitlabor.Checked = True Else f.cbboxmitlabor.Checked = False
f.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.c1daten.Columns("nrtarif").Value = f.txtnrtarif.Text
Me.c1daten.Columns("Nrtarifgruppe").Value = f.cbboxTarifgruppe.SelectedValue
Me.c1daten.Columns("sso_nummer").Value = f.txtNummer.Text
Me.c1daten.Columns("bezd").Value = f.txtBezd.Text
Me.c1daten.Columns("bezf").Value = f.txtBezf.Text
Me.c1daten.Columns("bezi").Value = f.txtBezi.Text
Me.c1daten.Columns("privattarif").Value = f.txtprivat.Text
Me.c1daten.Columns("suvatarif").Value = f.txtsuva.Text
Me.c1daten.Columns("minimaltarif").Value = f.txtmin.Text
Me.c1daten.Columns("maximaltarif").Value = f.txtmax.Text
If f.cbboxmitlabor.Checked Then
Me.c1daten.Columns("MitLabor").Value = 1
Else
Me.c1daten.Columns("MitLabor").Value = 0
End If
Me.c1daten.Columns("Frankenbetrag").Value = f.txtfrankenwert.Text
End If
End Select
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
End Sub
Private Sub TarifBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem.Click
c1daten_DoubleClick(sender, e)
End Sub
Private Sub NeuerTarifeintragErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTarifeintragErstellenToolStripMenuItem.Click
Dim f As New frmTarifDetail
Dim newkey As Integer = f.New_Tarif
f.Dispose()
get_data()
Dim d As DataSet = c1daten.DataSource
Dim i As Integer = 0
For Each r As DataRow In d.Tables(0).Rows
i = i + 1
If newkey = r.Item(0) Then
c1daten.Bookmark = i
End If
Next
c1daten_DoubleClick(sender, e)
End Sub
Private Sub PasswortÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasswortÄndernToolStripMenuItem.Click
Dim f As New frmLogin
f.txtUserName.Text = Me.c1daten.Columns("User").Value
f.txtPassword.Text = Me.c1daten.Columns("Passwort").Value
f.ShowDialog()
End Sub End Sub
End Class End Class

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.6.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -68,7 +68,7 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm")> _ Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\dmp1\dmp2")> _
Public Property TempPath() As String Public Property TempPath() As String
Get Get
Return CType(Me("TempPath"),String) Return CType(Me("TempPath"),String)
@@ -92,8 +92,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=dpm2018;integrated security=SSPI;persist securi"& _ Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=dpm2018_1;integrated security=SSPI;persist secu"& _
"ty info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")> _ "rity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionString() As String Public Property ConnectionString() As String
Get Get
Return CType(Me("ConnectionString"),String) Return CType(Me("ConnectionString"),String)

4
DPM2016/My Project/Settings.settings
View File

@@ -6,13 +6,13 @@
<Value Profile="(Default)">2</Value> <Value Profile="(Default)">2</Value>
</Setting> </Setting>
<Setting Name="TempPath" Type="System.String" Scope="User"> <Setting Name="TempPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm</Value> <Value Profile="(Default)">h:\dpm\dmp1\dmp2</Value>
</Setting> </Setting>
<Setting Name="DocArchivPath" Type="System.String" Scope="User"> <Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value> <Value Profile="(Default)">h:\dpm\docarchiv</Value>
</Setting> </Setting>
<Setting Name="ConnectionString" Type="System.String" Scope="User"> <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> <Value Profile="(Default)">data source=shu00;initial catalog=dpm2018_1;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting> </Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

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

@@ -41,35 +41,36 @@ Partial Class Patient
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl() Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnVTX = New System.Windows.Forms.Button() Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem() Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem() Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem() Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem() Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem() Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Recall1 = New DPM2016.Recall()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout() Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout() Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout() Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout() Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout() Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -219,9 +220,9 @@ Partial Class Patient
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49) Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1" Me.SuperTabControl1.Name = "SuperTabControl1"
@@ -254,17 +255,6 @@ Partial Class Patient
Me.btnVTX.TabIndex = 18 Me.btnVTX.TabIndex = 18
Me.btnVTX.UseVisualStyleBackColor = True Me.btnVTX.UseVisualStyleBackColor = True
' '
'PatientDetails1
'
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientDetails1.HasChanges = False
Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = " "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17
'
'Stammdaten 'Stammdaten
' '
Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1 Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
@@ -282,16 +272,6 @@ Partial Class Patient
Me.SuperTabControlPanel3.TabIndex = 0 Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
' '
'Behandlung1
'
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen 'Behandlungen
' '
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3 Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
@@ -305,20 +285,10 @@ Partial Class Patient
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2" Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 803) Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel2.TabIndex = 0 Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.Abrechnung Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
' '
'PatientAbrechnung1
'
Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientAbrechnung1.HasChanges = False
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 803)
Me.PatientAbrechnung1.TabIndex = 0
'
'Abrechnung 'Abrechnung
' '
Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2 Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
@@ -326,25 +296,33 @@ Partial Class Patient
Me.Abrechnung.Name = "Abrechnung" Me.Abrechnung.Name = "Abrechnung"
Me.Abrechnung.Text = "Abrechnung" Me.Abrechnung.Text = "Abrechnung"
' '
'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(1278, 612)
Me.SuperTabControlPanel5.TabIndex = 0
Me.SuperTabControlPanel5.TabItem = Me.Finanzen
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'SuperTabControlPanel4 'SuperTabControlPanel4
' '
Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1) Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4" Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 803) Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel4.TabIndex = 0 Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
' '
'Krankengeschichte1
'
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 803)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte 'Krankengeschichte
' '
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4 Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
@@ -359,19 +337,10 @@ Partial Class Patient
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6" Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1006, 803) Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel6.TabIndex = 0 Me.SuperTabControlPanel6.TabIndex = 0
Me.SuperTabControlPanel6.TabItem = Me.Recall 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 'Recall
' '
Me.Recall.AttachedControl = Me.SuperTabControlPanel6 Me.Recall.AttachedControl = Me.SuperTabControlPanel6
@@ -379,32 +348,6 @@ Partial Class Patient
Me.Recall.Name = "Recall" Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall" Me.Recall.Text = "Recall"
' '
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel5.TabIndex = 0
Me.SuperTabControlPanel5.TabItem = Me.Finanzen
'
'Finanzen1
'
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1006, 803)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.AllowMerge = False Me.MenuStrip1.AllowMerge = False
@@ -428,11 +371,81 @@ Partial Class Patient
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22) Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden" Me.BeendenToolStripMenuItem.Text = "&Beenden"
' '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(928, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 20)
Me.Label1.TabIndex = 20
Me.Label1.Text = "Label1"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'PatientDetails1
'
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientDetails1.HasChanges = False
Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = "0 "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17
'
'Behandlung1
'
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Behandlung1.HasChanges = False
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
Me.Behandlung1.TabIndex = 0
'
'PatientAbrechnung1
'
Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PatientAbrechnung1.HasChanges = False
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 612)
Me.PatientAbrechnung1.TabIndex = 0
'
'Finanzen1
'
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
Me.Finanzen1.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1278, 612)
Me.Finanzen1.TabIndex = 0
'
'Krankengeschichte1
'
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
Me.Krankengeschichte1.TabIndex = 0
'
'Recall1
'
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Recall1.Location = New System.Drawing.Point(0, 0)
Me.Recall1.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1278, 612)
Me.Recall1.TabIndex = 0
'
'Patient 'Patient
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1278, 686) Me.ClientSize = New System.Drawing.Size(1278, 686)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.SuperTabControl1) Me.Controls.Add(Me.SuperTabControl1)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.MenuStrip1)
@@ -448,9 +461,9 @@ Partial Class Patient
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False) Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False) Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False) Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False) Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -495,4 +508,5 @@ Partial Class Patient
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbtnVTX As ToolStripButton Friend WithEvents tsbtnVTX As ToolStripButton
Friend WithEvents btnVTX As Button Friend WithEvents btnVTX As Button
Friend WithEvents Label1 As Label
End Class End Class

51
DPM2016/Patient/Patient.vb
View File

@@ -6,6 +6,7 @@
Return m_nrpatient Return m_nrpatient
End Get End Get
Set(value As Integer) Set(value As Integer)
Cursor = Cursors.WaitCursor
Globals.OnLoad = True Globals.OnLoad = True
m_nrpatient = value m_nrpatient = value
Me.PatientDetails1.PatientNr = value Me.PatientDetails1.PatientNr = value
@@ -14,7 +15,7 @@
Me.Finanzen1.Patientnr = value Me.Finanzen1.Patientnr = value
Me.Recall1.Patientnr = value Me.Recall1.Patientnr = value
Globals.OnLoad = False Globals.OnLoad = False
Cursor = Cursors.Default
End Set End Set
End Property End Property
@@ -54,6 +55,11 @@
End Function End Function
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Globals.Funktionsstufe
Case 2
Me.Behandlungen.Visible = False
Me.Finanzen.Visible = False
End Select
Me.tsbtnfirst_Click(sender, e) Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB Dim db As New clsDB
If db.Get_Option(9999) = "" Then If db.Get_Option(9999) = "" Then
@@ -85,6 +91,8 @@
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
If nr = Me.PatientNr Then Me.Text = name If nr = Me.PatientNr Then Me.Text = name
Me.Label1.Text = PatientDetails1.Patientname
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
End Sub End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
@@ -97,13 +105,14 @@
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
Me.Text = PatientDetails1.Patientname Me.Text = PatientDetails1.Patientname
Me.Label1.Text = PatientDetails1.Patientname
End Sub End Sub
Private Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click Private Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim db As New clsDB Dim db As New clsDB
db.Get_Tabledata("Patient", "", db.Get_SQL(9)) db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose() db.Dispose()
End Sub End Sub
@@ -118,26 +127,46 @@
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB Dim db As New clsDB
Try Try
db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString) Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr Me.PatientNr = Me.PatientNr
End Try End Try
db.Dispose() db.Dispose()
Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If detail_has_changes() = False Then Return If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB Dim db As New clsDB
Try Try
db.Get_Tabledata("Patient", "", db.Get_SQL(12), Me.m_nrpatient.ToString) Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0) Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr Me.PatientNr = Me.PatientNr
End Try End Try
db.Dispose() db.Dispose()
Me.Cursor = Cursors.Default
End Sub End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
@@ -219,7 +248,7 @@
PrintLine(1, "ERRORTEXT=0") PrintLine(1, "ERRORTEXT=0")
FileClose(1) FileClose(1)
Try Try
MsgBox(vddsmodule + " " + filename) ' MsgBox(vddsmodule + " " + filename)
Process.Start(vddsmodule, filename) Process.Start(vddsmodule, filename)
Catch Catch
End Try End Try
@@ -229,4 +258,12 @@
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
Me.tsbtnVTX_Click(sender, e) Me.tsbtnVTX_Click(sender, e)
End Sub End Sub
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
End Class End Class

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

@@ -77,17 +77,17 @@ Partial Class PatientDetails
Me.dtgebdat = New System.Windows.Forms.DateTimePicker() Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
Me.dtGueltigab = New System.Windows.Forms.DateTimePicker() Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker() Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
Me.cbboxNrGeschlecht = New DPM2016.MyCombobox()
Me.cbboxSprache = New DPM2016.MyCombobox()
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = New DPM2016.MyCombobox()
Me.cbboxNrAnrede = New DPM2016.MyCombobox()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox() Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
Me.lblGLN = New System.Windows.Forms.Label() Me.lblGLN = New System.Windows.Forms.Label()
Me.txtGLN = New System.Windows.Forms.TextBox() Me.txtGLN = New System.Windows.Forms.TextBox()
Me.txtZSR = New System.Windows.Forms.TextBox() Me.txtZSR = New System.Windows.Forms.TextBox()
Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
Me.cbboxGeschlecht = New DPM2016.MyCombobox()
Me.cbboxSprache = New DPM2016.MyCombobox()
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = New DPM2016.MyCombobox()
Me.cbboxNrAnrede = New DPM2016.MyCombobox()
Me.SuspendLayout() Me.SuspendLayout()
' '
'txtnrprivat 'txtnrprivat
@@ -578,6 +578,49 @@ Partial Class PatientDetails
Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20) Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
Me.dtgueltigbis.TabIndex = 28 Me.dtgueltigbis.TabIndex = 28
' '
'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
'
'cbboxNRArbeitgeber 'cbboxNRArbeitgeber
' '
Me.cbboxNRArbeitgeber.Dataselection = Nothing Me.cbboxNRArbeitgeber.Dataselection = Nothing
@@ -590,17 +633,17 @@ Partial Class PatientDetails
Me.cbboxNRArbeitgeber.TableAlias = "" Me.cbboxNRArbeitgeber.TableAlias = ""
Me.cbboxNRArbeitgeber.Valuemember = Nothing Me.cbboxNRArbeitgeber.Valuemember = Nothing
' '
'cbboxNrGeschlecht 'cbboxGeschlecht
' '
Me.cbboxNrGeschlecht.Dataselection = Nothing Me.cbboxGeschlecht.Dataselection = Nothing
Me.cbboxNrGeschlecht.Displaymember = Nothing Me.cbboxGeschlecht.Displaymember = Nothing
Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 405) Me.cbboxGeschlecht.Location = New System.Drawing.Point(74, 405)
Me.cbboxNrGeschlecht.Name = "cbboxNrGeschlecht" Me.cbboxGeschlecht.Name = "cbboxGeschlecht"
Me.cbboxNrGeschlecht.Size = New System.Drawing.Size(162, 21) Me.cbboxGeschlecht.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrGeschlecht.TabIndex = 16 Me.cbboxGeschlecht.TabIndex = 16
Me.cbboxNrGeschlecht.Table = Nothing Me.cbboxGeschlecht.Table = Nothing
Me.cbboxNrGeschlecht.TableAlias = "" Me.cbboxGeschlecht.TableAlias = ""
Me.cbboxNrGeschlecht.Valuemember = Nothing Me.cbboxGeschlecht.Valuemember = Nothing
' '
'cbboxSprache 'cbboxSprache
' '
@@ -650,49 +693,6 @@ Partial Class PatientDetails
Me.cbboxNrAnrede.TableAlias = "" Me.cbboxNrAnrede.TableAlias = ""
Me.cbboxNrAnrede.Valuemember = Nothing Me.cbboxNrAnrede.Valuemember = Nothing
' '
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(3, 225)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 208
Me.Label3.Text = "Kanton"
'
'cbtxtboxKanton
'
Me.cbtxtboxKanton.FormattingEnabled = True
Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
Me.cbtxtboxKanton.Location = New System.Drawing.Point(74, 221)
Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
Me.cbtxtboxKanton.TabIndex = 9
'
'lblGLN
'
Me.lblGLN.AutoSize = True
Me.lblGLN.BackColor = System.Drawing.Color.Transparent
Me.lblGLN.Location = New System.Drawing.Point(272, 174)
Me.lblGLN.Name = "lblGLN"
Me.lblGLN.Size = New System.Drawing.Size(56, 13)
Me.lblGLN.TabIndex = 210
Me.lblGLN.Text = "GLN/ZSR"
'
'txtGLN
'
Me.txtGLN.Location = New System.Drawing.Point(342, 171)
Me.txtGLN.Name = "txtGLN"
Me.txtGLN.Size = New System.Drawing.Size(107, 20)
Me.txtGLN.TabIndex = 23
'
'txtZSR
'
Me.txtZSR.Location = New System.Drawing.Point(455, 171)
Me.txtZSR.Name = "txtZSR"
Me.txtZSR.Size = New System.Drawing.Size(49, 20)
Me.txtZSR.TabIndex = 24
'
'PatientDetails 'PatientDetails
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -703,7 +703,7 @@ Partial Class PatientDetails
Me.Controls.Add(Me.cbtxtboxKanton) Me.Controls.Add(Me.cbtxtboxKanton)
Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cbboxNRArbeitgeber) Me.Controls.Add(Me.cbboxNRArbeitgeber)
Me.Controls.Add(Me.cbboxNrGeschlecht) Me.Controls.Add(Me.cbboxGeschlecht)
Me.Controls.Add(Me.cbboxSprache) Me.Controls.Add(Me.cbboxSprache)
Me.Controls.Add(Me.cbboxStatus) Me.Controls.Add(Me.cbboxStatus)
Me.Controls.Add(Me.cbboxNRTitel) Me.Controls.Add(Me.cbboxNRTitel)
@@ -828,7 +828,7 @@ Partial Class PatientDetails
Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox
Friend WithEvents cbboxStatus As DPM2016.MyCombobox Friend WithEvents cbboxStatus As DPM2016.MyCombobox
Friend WithEvents cbboxSprache As DPM2016.MyCombobox Friend WithEvents cbboxSprache As DPM2016.MyCombobox
Friend WithEvents cbboxNrGeschlecht As DPM2016.MyCombobox Friend WithEvents cbboxGeschlecht As DPM2016.MyCombobox
Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents cbtxtboxKanton As ComboBox Friend WithEvents cbtxtboxKanton As ComboBox

26
DPM2016/Patient/PatientDetails.vb
View File

@@ -222,9 +222,9 @@ Public Class PatientDetails
Me.cbboxStatus.Displaymember = "Status" Me.cbboxStatus.Displaymember = "Status"
Me.cbboxStatus.Valuemember = "nrstatus" Me.cbboxStatus.Valuemember = "nrstatus"
Me.cbboxNrGeschlecht.Table = "Geschlecht" Me.cbboxGeschlecht.Table = "Geschlecht"
Me.cbboxNrGeschlecht.Displaymember = "Geschlecht" Me.cbboxGeschlecht.Displaymember = "Geschlecht"
Me.cbboxNrGeschlecht.Valuemember = "NrGeschlecht" Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1) Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
Me.cbboxNRArbeitgeber.Table = "Arbeitgeber" Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
@@ -284,11 +284,23 @@ Public Class PatientDetails
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information) log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
Dim dt As DateTimePicker Dim dt As DateTimePicker
dt = Ctl dt = Ctl
'Try
' dt.Value = r(c.ColumnName)
'Catch
' dt.Value = " . . "
'End Try
Try Try
dt.Value = r(c.ColumnName) dt.Value = r(c.ColumnName)
dt.Format = DateTimePickerFormat.Short
Catch Catch
dt.CustomFormat = " " 'An empty SPACE
dt.Format = DateTimePickerFormat.Custom
End Try End Try
Exit For Exit For
End If End If
Next Next
@@ -467,4 +479,12 @@ Public Class PatientDetails
Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton) If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
End Sub End Sub
Private Sub PatientDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
End Sub
End Class End Class

97
DPM2016/Reporting/frmReportView.vb
View File

@@ -1,4 +1,8 @@
Public Class frmReportView Imports Syncfusion.DocToPDFConverter
Imports Syncfusion.Pdf
Imports Syncfusion.XPS
Public Class frmReportView
Dim splitter() As String Dim splitter() As String
Dim WithEvents freport As FastReport.Report Dim WithEvents freport As FastReport.Report
@@ -28,12 +32,14 @@
Dim dbr As DataRow = paramdaten.NewRow Dim dbr As DataRow = paramdaten.NewRow
Dim db As New clsDB Dim db As New clsDB
Public Sub Fakturierung(ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0) Public Sub Fakturierung(ByVal reportnr As String, ByVal nrbehandlung As Integer, ByVal Parameter As String, ByVal rate As Integer, Optional kopie As Integer = 0, Optional fakturanr As Integer = 0, Optional buchen As Boolean = True)
Me.ReportNr = reportnr Me.ReportNr = reportnr
Me.Parameter = Parameter Me.Parameter = Parameter
Me.NrBehandlung = nrbehandlung Me.NrBehandlung = nrbehandlung
If Globals.FakturaNr <> 0 Then fakturanr = Globals.FakturaNr
Print_Rechnung(False, False, rate, kopie, fakturanr) Print_Rechnung(False, False, rate, kopie, fakturanr)
If kopie = 1 Then Exit Sub If kopie = 1 Then Exit Sub
If buchen = False Then Exit Sub
rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100) rechnung_buchen(rate, daten.Tables("ESDaten").Rows(0).Item("Nur_Franken") + daten.Tables("ESDaten").Rows(0).Item("Nur_Rappen") / 100)
End Sub End Sub
@@ -45,10 +51,10 @@
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) Public Sub Print_Rechnung(Optional vorschaue As Boolean = False, Optional design As Boolean = False, Optional Rate As Integer = 0, Optional kopie As Integer = 0, Optional Fakturanr As Integer = 0)
If Rate > 1 Then ReportNr = ReportNr + 1 If Rate > 1 Then ReportNr = ReportNr + 1
Dim kopien As Integer = 1
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString) db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report freport = New FastReport.Report
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter) Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
@@ -165,6 +171,7 @@
get_esdaten(Rate, kopie, Fakturanr) get_esdaten(Rate, kopie, Fakturanr)
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
Globals.FakturaNr = db.dsDaten.Tables(0).Rows(0).Item("fakturanr")
daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten" daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten"
@@ -197,14 +204,22 @@
Dim papierschacht As String Dim papierschacht As String
printer.Get_Printersettings(ReportNr, printername, papierschacht) printer.Get_Printersettings(ReportNr, printername, papierschacht)
freport.PrintSettings.Printer = printername freport.PrintSettings.Printer = printername
freport.PrintSettings.Copies = kopien
Try Try
freport.PrintSettings.PaperSource = papierschacht freport.PrintSettings.PaperSource = papierschacht
Catch Catch
End Try End Try
freport.PrintSettings.ShowDialog = False freport.PrintSettings.ShowDialog = False
freport.Print() freport.Print()
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss_" + Me.NrBehandlung.ToString + ".pdf") Exit Sub
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
'Dim pdfExport As New FastReport.Export.Pdf.PDFExport() 'Dim pdfExport As New FastReport.Export.Pdf.PDFExport()
'pdfExport.ShowProgress = False 'pdfExport.ShowProgress = False
@@ -213,7 +228,48 @@
'pdfExport.Compressed = False 'pdfExport.Compressed = False
'pdfExport.AllowPrint = True 'pdfExport.AllowPrint = True
'pdfExport.EmbeddingFonts = True 'pdfExport.EmbeddingFonts = True
'freport.Export(pdfExport, s)
'freport.Prepare()
'freport.Export(pdfExport, s + ".PDF")
'Exit Sub
Dim XPSEXPORT As New FastReport.Export.OoXML.XPSExport
freport.Export(XPSEXPORT, xpsfilename)
'Process.Start(Application.StartupPath + "\xpstopdf.exe", "-input=" + xpsfilename)
Dim p As New ProcessStartInfo
p.Arguments = xpsfilename
p.FileName = Application.StartupPath + "\topdf.bat"
p.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(p)
Globals.RGCollection.Add(pdffilename)
'Dim rtfexport As New FastReport.Export.RichText.RTFExport
'freport.Export(rtfexport, rtffilename)
'Dim rtfDocument As New Syncfusion.DocIO.DLS.WordDocument(rtffilename)
'Dim converter As New DocToPDFConverter()
'Dim pdfDocument As PdfDocument = converter.ConvertToPDF(rtfDocument)
'pdfDocument.Save(pdffilename)
'pdfDocument.Close(True)
'rtfDocument.Close()
'Dim imgexport As New FastReport.Export.Image.ImageExport
'imgexport.ImageFormat = FastReport.Export.Image.ImageExportFormat.Jpeg
'imgexport.ResolutionX = 300
'imgexport.Resolution = 300
'freport.Export(imgexport, imagefilename)
'Dim xexport As New FastReport.Export.Image.ImageExport
'xexport.ImageFormat = FastReport.Export.Image.ImageExportFormat.Tiff
'xexport.ResolutionX = 300
'xexport.ResolutionY = 300
'freport.Prepare()
'freport.Export(xexport, s + ".TIF")
End If End If
End Sub End Sub
@@ -254,7 +310,7 @@
s = db.dsDaten.Tables(0).Rows(0).Item("Nur_Franken").ToString s = db.dsDaten.Tables(0).Rows(0).Item("Nur_Franken").ToString
S1 = db.dsDaten.Tables(0).Rows(0).Item("Nur_Rappen").ToString S1 = db.dsDaten.Tables(0).Rows(0).Item("Nur_Rappen").ToString
While Len(S1) < 2 While Len(S1) < 2
S1 = S1 + "0" S1 = "0" + S1
End While End While
s = s + S1 s = s + S1
While Len(s) < 10 While Len(s) < 10
@@ -266,23 +322,28 @@
s = db.dsDaten.Tables(0).Rows(0).Item("vs_besrid").ToString + db.dsDaten.Tables(0).Rows(0).Item("fakturanr").ToString + "0000" s = db.dsDaten.Tables(0).Rows(0).Item("vs_besrid").ToString + db.dsDaten.Tables(0).Rows(0).Item("fakturanr").ToString + "0000"
Dim dd As String Dim dd As String
dd = Year(Now).ToString
dd = dd.Substring(0, 2)
s = s + dd
dd = Month(Now).ToString
While Len(dd) < 2
dd = "0" + dd
End While
s = s + dd
dd = DatePart(DateInterval.Day, Now) dd = DatePart(DateInterval.Day, Now)
While Len(dd) < 2 While Len(dd) < 2
dd = "0" + dd dd = "0" + dd
End While End While
s = s + dd
dd = DatePart(DateInterval.Month, Now)
While Len(dd) < 2
dd = "0" + dd
End While
s = s + dd
dd = Year(Now).ToString
dd = dd.Substring(2, 2)
s = s + dd
s = s + Trim(Pruefziffer(s)) s = s + Trim(Pruefziffer(s))
Referenznr = Referenznr + "+" + s Dim ref1 As String
db.dsDaten.Tables(0).Rows(0).Item("referenzzeile1") = s + " " ref1 = s.Substring(0, 2) + " " + s.Substring(2, 5) + " " + s.Substring(7, 5) + " " + s.Substring(12, 5) + " " + s.Substring(17, 5) + " " + s.Substring(22, 5)
Referenznr = Referenznr + s + "+"
db.dsDaten.Tables(0).Rows(0).Item("referenzzeile1") = ref1
s = db.dsDaten.Tables(0).Rows(0).Item("Vs_teilnehmernummer") s = db.dsDaten.Tables(0).Rows(0).Item("Vs_teilnehmernummer")
s = s + Trim(Pruefziffer(s)) + ">" s = s + Trim(Pruefziffer(s)) + ">"
Referenznr = Referenznr + " " + s Referenznr = Referenznr + " " + s

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

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAuswertungen Partial Class frmAuswertungen
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@@ -20,9 +20,10 @@ Partial Class frmAuswertungen
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertungen))
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style2 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 Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
@@ -39,18 +40,21 @@ Partial Class frmAuswertungen
Dim Style14 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 Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style16 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.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.cbboxprinter = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Auswertungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1Auswertungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -83,13 +87,60 @@ Partial Class frmAuswertungen
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton6}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripLabel1, Me.cbboxprinter, Me.ToolStripButton1, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(772, 25) Me.ToolStrip1.Size = New System.Drawing.Size(772, 25)
Me.ToolStrip1.TabIndex = 16 Me.ToolStrip1.TabIndex = 16
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "ToolStripButton5"
'
'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"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(100, 22)
Me.ToolStripLabel1.Text = "Standard-Drucker"
'
'cbboxprinter
'
Me.cbboxprinter.Name = "cbboxprinter"
Me.cbboxprinter.Size = New System.Drawing.Size(300, 25)
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "DruckerKonfiguration speichern"
'
'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 = "ToolStripButton2"
'
'C1Auswertungen 'C1Auswertungen
' '
Me.C1Auswertungen.AlternatingRows = True Me.C1Auswertungen.AlternatingRows = True
@@ -179,24 +230,6 @@ Partial Class frmAuswertungen
Me.C1TrueDBDropdown2.Visible = False Me.C1TrueDBDropdown2.Visible = False
Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag") Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag")
' '
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "ToolStripButton5"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "ToolStripButton6"
'
'frmAuswertungen 'frmAuswertungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -235,4 +268,8 @@ Partial Class frmAuswertungen
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
Friend WithEvents ToolStripButton5 As ToolStripButton Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripButton6 As ToolStripButton Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents cbboxprinter As ToolStripComboBox
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
End Class End Class

432
DPM2016/Sysadmin/frmAuswertungen.resx
View File

@@ -127,209 +127,239 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+i6qwYWZZjb3Obx YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYWWYnb3Obx
7MzN1dY5Z9tJZ84Mi95AK3vXNC0L7c1hKiVFpVZKafaiaKgoZSHViuoiuuiFIoguCj4dNRa7tB984Pk9 7MzN1dY5Z9tJV86Min5BlpZWmpZloRk6TMWkqNTKMMt+KBoZSllIuUK7iC6SKILoouDTUWOxy3rgA+/z
8Hx4vr/nEf9TX14OBj+/nfjVujODv1uzdbkip6vjQA5dh6aRknQelLiy186D+FY+TfXycfIW318NcKnM wvvh/T7vK/6nPk8NBT/NjP9s25/Bn62FulKW09NVnkPPsTmkJN0VEldL7TyK72Z2sp9PE7f59naQywet
mirorJBZtsLO8lU2Vqz+R9oqK0st6fxI9JLo2sd4o5+viYdc3uNIFXSUy2RYndjsEnaHK4k1y0lauo0X qYLuMplVa+ysTrexZv1f0tKtrLSs43uin0TPEcYa/HxJPObKYUeqoKtEJsPqxGaXsDtcSaxZTtLW2XjT
rRHGz+uMng7y6dkdru3PThU46gVS1Tyy7T4kl4KU7UaSZFwumdVWiakWg9GzIR41BPkw3jkT9e9RIWxH FmGsSWf0QpDZV3e5fjQ7VeCoE0hVi8i2+5BcClK2G0mScblk1lslJlsNRi+GeFIf5ONY93zUP0eFsJ0U
BYkPbThNSU6mhtsZQJH8KLIX2e0h0+HmaTzMcKPOQP163g6101OpzApsVYLJd020DAgyKgX2OoHzlEAu JD624zQlOZkabmcARfKjyF5kt4dMh5uX8TAjDTqDdZuZGe7kTqWyILBVCSbeN9M6KMioFNhrBc7zArlk
X4hXCeLJ9ZOV42PivMbASZ0ftxfzvL+ZO9VehKtGMPKmkviwoGnIXL8uYOxNhMfvwzOStZ4weXlBJE+A KV4liCfXT1aOj/EmjcFzOt/7lvN6oIW71V6Eq0bwdLqS+Iigedhcvyvg2XSE5x/C85KNnjB5eUEkT4Bn
sdMq909o/OxdwrOeRvrr/LOCe4kdxCcE8XFB81NBy5TgybcIjpOCYF4B6wIh3Hkaww0B+o8Hadrh5HHn F1QentX40b+CV3caGKj1LwgeJPYRHxfExwQtLwWtk4IXXyM4zgmCeQVsCoRw52mM1AcYOBOkeZ+T590n
UR7WB2YiWOxmhO7nhbQlBJnTEY4JHCcEuXsXoatRVN3AFzQYrPfTV7uW6wcURtorGGpQk0O0ZFULul77 eVwXmI9gsZsRel9vpT0hyJyLcErgOCvILV2GrkZRdQNf0GCozs+90xu5Ua7wtLOM4Xo1OURLVrWg550P
cB4XGIFtGFoJRrgIw4gSMfIJhKLcr/Nyu8ZHd5WXwQvbGT0TSnlGi9O8slIzn6hRSrSgmIJo0Qz5JtqG 5xmBEdiDoRVjhAsxjCgRI59AKMrDWi99NT56q7wMXdrLaGMo5RktTvPKSs1iosZOogVFFEQL58k30bbE
GHdrPHRX5nLjsIfexhgTTZEUgWgtWcnG4hKKY1so3rQ5Scwkv6iUvmqZm0cUOg65uVkbYrI5H6HrOroW uF/jobcyl5vHPfQ3xBhvjqQIRFvxWrYVFVMU20XR9h1JYib5hTu5Vy1z64RC1zE3t06HmGjJR+i6jq6F
QtPCqOo05lrVzF5Nopr9uvU6u2IBLlYo5g+UuXowl6m2wtkhzpVyPa3s3O41v19ejKVGmEMtMFkmhLD8 0LQwqjqHuVY1s1eTqGa/abPOgViAjjLF/IEy1ypymWzfujDEf6VETzvYeGjDr6mOWGqEf6glJquEEJbf
AXVKwo8FvT+zAAAAAElFTkSuQmCC bHzCicLnpnMAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACshSURBVHhe7Z0HnBRVuvZX3V29n/vdvSaSkochw8AQhjjA YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsbSURBVHhe7Z0HnBRV1vZX3V15P/d791WUJJlhyDAwZGYY
EIaMiCKSQZCcYQBJooB5dU27ruuaMxlEUBERI7teRcmoCIiCCoqiRM/3PKfqrT5VfXqmOuDCfnN+/OlU hjggSYKIZBAkZxhAsgKKYXVNu67rmsVAToKIiBjZ9VWUjIpECQKiKNH7nedWnepTt2/PVAdc2G/ujz+d
fbr6fZ7znlBVPb8pLIWlsBSWwlJYCkthKSyFpbAUlsJSWApLYTFL9+7de1/R9YrdAwYM+GXkyJFq9OjR qm9Xn+e554aq6vlNXskreSWv5JW8klfySl7JK3klr+SVvJJX8oosXbp06dGxQ8e9ffv2/WXYsGFqxIgR
asyYMWrs2LFq3Lhxavz48WrChAlq0sSJKm/SJJWXl6cmT56spoAJ4yeooUOGqCefflY9/swL6sln56un auTIkWrUqFFq9OjRasyYMWrs2LFq/LhxKnv8eJWdna0mTJigJhJjx4xVgwYOVC++/Ip6ft7r6sVX5quX
n1+kFi5aphYtflEtXrpCLV2+Ui1/cZV6ccUrasXKV9VLL7+mVr3yunr51bXqldfe0Lz62jo/a9ap1Wve X1ukFi5aphYtXqEWL12pli5fpZavWK1WrFyjVq56S73x5ttq9Zp31JtvrVdr3n5X89bbG/ys26DWrntP
1Lz2uslb6rW1wttqDXnjbfX6unfU2nXvRnjzPfXGWybr1bq31zv33+Q27+A9znvXoK7VqJuf+eoa7M/q 8/Y7kvfV2+uZD9Q68O4H6p0NH6r1Gz4K8d7H6t33JRvVhg82OvffwzYf0nuc966jutZS3fjMt9bR/qxd
tdg37t8atfLl1ZoVq17Fvr+iXnzpZbV8xSp8n5Vq2fKX1NJlK9SSpfieS5bj+y5VC8GCRUvUgoWL1fwF T/uG/VunVr25VrNy9Vu072vUijfeVMtXrqbvs0otW/6GWrpspVqylL7nkuX0fZeqhcSCRUvUgoWL1fwF
C9UL8xeo51+Yr5565jn1+JPPqEefeEo98uhjavCgQTrGkxDPiYgr4zsBcWasxyPmjDvjPxbbjIEe1GT0 C9Xr8xeo116fr16a96p6/sV56tkXXlLPPPucGtC/v47xeIrnOIor4juW4oxYj6GYI+6I/yjaZiTpAU1G
qFFq1KhRv4wdPnxv/779B7vyJVeGDxnedxREX758uXoMOzYRgoZl0oSJ6vZbb1OdO3ZSO/fsU+9u2Oax DB+uhg8f/suoIUMO9OnVZ4ArX3xlyMAhvYaT6MuXL1fP0Y6NI0GDMn7sOHX/3PtUuzZt1e59h9RHm3Z4
efsu8LmPTdsSI1iPU/cutUXYsTvCJ7vVVo89mm2f+tkufPaFxw5h5xfqE5PPyV7NpwafGezcFeFzsjvA bN25h/jGx5YdsWHW49S9R21jdu0N8eVetd1jn2bHV352Ml/v99jF7N6vvpR8Aw5ovhJ8Ldi9J8Q3YK/B
nr3qw82fqA8Ab7/46mvVuVMndfPceda45sfMGTPVpo2b1OpXV6upk6eOcGVMvAwfOmzPjTfMVlu2bFHP vgPqs61fqk8J3O7/9ohq17atumf2HGtcc2La1Glqy+Ytau1ba9WkCZOGujLGXoYMGrzvrhkz1bZt29Qr
PvOsGnrdkLiYPClP5bTIUfsOHlbb9hzw+Prgz2p/kAPCTyFwt7XU8/XBI+rr7/x88/1RH9+SQ34OHDrm 815Rg+4YGBUTxmerJo2bqEPHT6kd+455HDn+szpscoz5KQDutpZ6jhw/rY6c8HP0+zM+vgMn/Rw7edbh
8IPDQZMfj6nvDL4nh49rDgk/Ofxg8OPP5ITmMDni8JNw9IT6GXy+73u1i+z/Hp/3s2qZ01KNGzvOGtOC B4fjkh/PqhOC78Gpc5qTzE8OPwh+/Bmc15wCpx1+Ys6cVz8T3xz6Xu0Bh7+nz/tZNW3SVI0eNdoa09yY
mDp5ipowbrx68MEHv3RlTLwMGzL0xJDB1ylh0MBrVfcrr/LRu2cv7/UgjgFaQBi/AYKCfPPd0SjRwsL3 NGGiGjt6jHryyScPujLGXgYPHHR+4IA7FNO/3+2qS+dbfPTo1t173cQxQGMSxm8AU5CjJ86EiRYUvDes
RtXnYhPaEbsAwYEpeFD0oPDRoocT/uejJzUUXvAMMGasNaZhuetPd52EhGc5SiZYrhs02Fdpvbr1VEZG Pheb0I7YuQhOSMFN0U3hw0UPJvzPZy5oIDzjGWDkKGtMg/LQnx66QBJe4SgZY7mj/wBfpbVr1VYpKSkq
hsqsnanqZGbitraqWqWKuvqq7r7thLyJkxwDfHdYbf/igIdNFA8RriBs7w3gE9oQO4zgBYked2u3CH/k tUaqqpmaSrc1VKWKFdWtt3TxbcdkjxvvGODEKbVz/zEPmygeLFxu2N5r4BNaiB1E8NxEj7q1W4Q/fdZB
mINpgO+0AXKSNsBtt9yqIGHyBjCpXau2ym7aVLVq2VK1ad1ai0tTdOnU2bedQAO0aB5tAE8IU5xUIPW6 GuCENkCTuA1w371zFUkYvwEkNarXUBkNG6pmTZuqFs2ba3FhivZt2/m2Y2CAxpnhBvCEkOIkAq7XxRTZ
BEX2CAhdoOAkIHhE9LCt3RH+iCE8OWoYYDcN8CMMgG6TAzxbTMNyy8030wDJlWCldevU0X16p44d1eVd wxA6V8GBIXhI9KCt3RH+tBAenBEG2AsD/EgGoG4TAzxbTINy7z33wADxFbPSWjVr6j69bZs26ub27VXL
uqi2ubmqQVYD1aVzF992AmcGNMDXMMAOwwBWUVKMTWCToNg2wRMW3SZ8QHTN8ZPqGKDwmq8dAzDGY0cn rCxVr2491b5de992DGYGMMARMsAuYQCrKAnGJrDEFNsmeMyi24Q3RNecu6DOEhBec8QxAGI8akR8Brhn
Z4Cb550CA2TVr4+W30Zd3f1q1bt3bwjfWTVp3FibIbgtCRpAsAmSarTAxBU3SBixYwoeVnSb8BBchNec zkUwQN06dajlt1C3drlV9ejRg4Rvp9LT0rQZzG2BaQDGJkii0QIDV1yTIGJHFDyo6DbhSXAWXnP+Fy08
+EULL6TOAPOSN8Dgawcpk6ZNmqqRI0bqOf6MadMxJx2v+vTpoy5HBghuSyZiKtiiWXMY4Cf1yd6Dmh1A kzgDzInfAANu768kDdMbqmFDh+k5/tTJU2hOOkb17NlT3UwZwNwWjKOpYONGmWSAn9SXB45rdhEswqav
RNjw6f5Txkfx8JnDx599HYqNwk47myxs/tzkG81xiE+iDIBGM2bUaGtMwzJv7tzUG6BZdjPVC6P+0SNH Dl80Po+Grx2++PpIIDYzu+1ssbD1G8lRzTkSH4QZgBrNyOEjrDENypzZsxNvgEYZjVR3GvWPGDZciwun
aXHptCu7dSvYAN9HDECkxb2//atTxv8WxA5hn48PQvChjU9is0GA2Uwo/omTEQPsSaUB5qTAAJz2mXAQ de7UKXcDfB8yAOAW98nOby8a/5sbu5hDPj4NwGc2vozMJobMJoH45y+EDLAvkQaYlQADYNonwSCwQ4cO
2LVrVy38sKFD1YD+A/SgkF1BcFvCxYnmME3QAJJercKkAk9cwS9yWKGFeAUnsUQnknko/klA4R0Oods6 WvjBgwapvn366kEhugJzW4DFiUwyjWkATq9WYRKBJy7jFzmo0Ey0goNIogPOPBD/AgHhHU5St3Waus1M
gm6zuW5ktpiGZe5Nc1JvgIwaNVX7du1Uz2t6qj69eqseGAtk1c/Ss4DgtkQM8A0M8CmEF6Q/tQmTLDYB 3chsMQ3K7LtnJd4AKVWrqZtatVLdbuumenbvobrSWKBunbp6FmBuC9gAR8kAX5HwDPenNmHixSZgNMQi
4yERsYknODHEDopucvIXGABQeOH7w6kxwJxUGODaAQOVSeNGjfW8v1ZGLWSDWiqjZoaqUrmyuubqHr7t NvAEB0JsU3TJhV/IAASEZ74/lRgDzEqEAW7v209J0hqk6Xl/9ZTqlA2qq5RqKapihQrqtlu7+rZjsCKF
BK5IsdvQBvgS4rvIoOnQT8dSyg/58XOEH6OIDPYO2zhyHPtr4ehxDPaIOfg7gQGfn6PCcYdjmpMK2mv2 bkMb4CCJ78KDppM/nU0oP+TEzyF+DCM02Dtl4/Q52l8LZ87RYA/Iwd95GvD5OcOccziruaBIe82+oyfV
fHNIfQGcDPCzao5ukwawxTQsc268KfUGIAP69fcxEN2AbTviGCBbG+AzCC9IoDhqTiWmCH6chRchODo3 fsLJAD+rTOo2YQBbTIMy6667E28A0Ld3Hx/9qBuwbQccA2RoA3xNwjMcKIyaE4kUwY+z8MKYo3OJnKJJ
MadoJt6onbiDtyBM6SZM7xq3pYvgGuUU3o90Ac4YgAbgMRhbTMNy0403nhoDxIMY4NtDMMBX33n4gh4Q vFE7cAdvJkjpEqR3jdvSWXCNcgruh7oAZwwAA+AYjC2mQbn7rrsujgGigQ3w3UkywLcnPHxBN8SJhZwE
JxHyE9SGJzJxBbYKTSBsooLjrk90Lbgr+i/6dWf74CwgJQaYnQIDsHUnw/ix4zBIjDaATwAXm1BhsNWl teGJDFyBrUIDEjZWwemuT3QtuCv6L/p1Z3tzFpAQA8xMgAHQuuNhzKjRNEgMN4BPABebUEGw1aUh8WyE
gXg2ogQWIGgsoUlQ7DCC458uvKXgpuiRek5GGwDdJqfbtpiGhQfxXBkTL7aK48E0wE4IL1gFMLAJZ2J7 CcyQoJGEBqbYQQSnf7rgFoJL0UP1XAg3AHWbmG7bYhoUHMRzZYy92CqOBmmA3SQ8YxVAYBNOYntPjpCA
T75AwIIEFkyBTTyxiSsk/vlx9La28ojoJ/E5EY4BWQnkcjAPBqXCALNTYYBgfx8vPKCR3aRplAFsgf+1 uQnMSIElntjAFZL++XH0trbykOgX6HNCnCV4JRDLwTgYlAgDzEyEAcz+PlpwQCMjvWGYAWyB/7UwhZX4
CApr4hOZiIAA/6KQ4jz2t3Di1HtSnTAE16JrY0YGhXIsQAzQDI1m5PAR1piG5YZZs04zA+yD+C7BwP9a RAYsIEH/wuDiPPa3cODUe0GdF4Jr0bUxQ4NCPhbABmhEjWbYkKHWmAZlxvTpl5gBDpH4Lmbgfy184jIs
+MQVRDSNX2APEZro5wyxCd4Y+RyL4EHRjRnCkWPH1eeIiXDgdDJA/779VDKMdQ1w4IeffF9SgnZKMIXx msYvsAcLDfRzQmxAbwx9jkVwU3QxQzh99pz6hmLCHLuUDNCnV28VD6NcAxz74Sffl+SgXRSkMD5YvAg4
IeLFwNFYF953ng8ITVCRT2xLSg+2cGIK7kwdHTiVlLiwcTBWNMCIYcOtMQ3LrJmngwFGj1FNmzTRrjYN GuuC+87zhtCAKvKJbUnpZgsHUnBn6uiAqSTHBY0DsYIBhg4eYo1pUKZPuxQMMGKkapierl0tDUBx/PVw
gDj+eriCSpHHkW3sIvuFdsQ2hfaLHRA80MKDgjvrCMfUYRezezyAbMnV1aQNMGNm8gbo16evSgZtgMY0 BeXCj0Pb2EX2C+2ILYX2i20IbrRwU3BnHeGsOuUiu8djlC2xuhq3AaZOi98AvXv2UvGgDZAGA/gzAAed
gD8DSNDxLxpTpFjgPztSbwSfsMQV1yawLX17QhNLy/aLHU7ww75FqKOYGR30YHdJAwwfNswa07DMnD7j /oUjRYoE/WeH6w3hExa44toEtqVvT2hgadl+sYMJfsq3CHWGZkbHPdBdwgBDBg+2xjQo06ZM/fcbAAc0
328AHtBoAgMUNAYwRUmEYH1+YgtrEhQ5XqH9Yucv+A8/RTgEZIGMq6SMFY+6Dh+anAFmnHYGMNKcTYBU 0skAuY0BpCixYNbnJ7KwElPkaIX2i52z4D/8FOIkwQtkWCVFrHDUdcig+Aww9ZIzgEhzNgESjSco8NI0
4wlKvDRNLOISiBotsl1ov9iG0BaxbYIfOkyO6HV/Yi6Tf5MqA0ybnrwB+vbuo5KB69k8YYRfykxzEvTt sIgLSNRwke1C+8UWQlvEtgl+8hQ4rdf9gVwmP5ooA0yeEr8BevXoqeIB69k4YQRfSqY5DvrOfd9ddHbk
e7495WzLl28cdvvZmh+7Imwx2LzrawffcX+HTT72q00796uNgFM+Lvx8uveAB5fNOW4aNmSoNaZhmX79 yFGHvX6258SeENsEW/cccfAd93fY4uOw2rL7sNpMYMqHhZ+vDhzzwLI5xk2DBw6yxjQoU+6cfAkZIOxY
tNPIAFHHAo7rlrXhk6/Uh1HYj7ZFY3sv2FEwH8SJ/9Dylw7b/bwfi21fqn/FgJmRA+RPILzw9feHTx8D wDndsjZ9+a36LAz70bZwbO8lduXOp1HiP7R80GGnn08iseOg+lcEkBkxQP6ShGeOfH/q0jEADvnGA9az
8JBvMnA9m0cQv8GX+vRLONxF+slExEg1fnENgeMRWbCIHMVWslf9E7Bh0AQ7ILxAA7Db5Dn+tpiG5fqp cQTxKH2prw6Sw124n4xFjETjF1cIHI3IjEXkMLaDA+qfBBoGTLCLhGdgAHSbOMffFtOg3DnpzkvAAEND
158GBhgRMYDpcukjRYCgKPEQLaANV9AYwgpWUYPYRI2FFvtLLbYNnitJwXd88a1mO+BzqTHA1OQNwIs+ BpAu5z6SBTBFiYZwAW24gkYQlrGKamITNRJa7INabBs4VxKC79r/nWYngecSY4BJ8RsAF33EA1az0uo3
koGrWY0bNtJfyjSADIjYB6YaptQDhwqGLc+DLdGFrdIGhdKCufBUd4+DDvsO/ujnwI/qK4MvD/ygvvw2 0F9KGoAHROgDEw1S6rGTuYOW54GW6IJWaQNCacFccKq7x3GHQ8d/9HPsR/Wt4OCxH9TB70Lw+yE8ow1A
gryfwgvaAGg0PLffFtOwXD/lNDAAFzPEAGaak9Hvr8KPEb6LCcxDAmbyDEU88xjGMQzkN4zTsq2GCRoF jQbn9ttiGpQ7J14CBsBiBhtApjke/f4q/BjiRETIPMAwk2co4JlHGEcYyG8Yp2VbDWMahYwhB6WH6TkY
xjAHpfvxHA0weNBga0zDwkvEXBkTL7aK44FTGRog6HIGm0H3YxOmIKLriSVkEE9YYmSGWALbskNQ5KDQ YED/AdaYBgWXiLkyxl5sFUcDpjIwgOlyBBtB92MTJjfC64kkpIknLBCZIZLAtuxgimwKDTFNsW0ZAcJv
FDMoti0jUPitLtxOG+DaQdaYhiUlBuh1TU+VDBzJNmrYEAH50WcAf8BBUJB4CdanwQjbJUpQE4uwESBq d8F22gC397fGNCgJMUD327qpeMBItkH9+hSQH30G8AecMAWJFrM+DY2wXcIElViEDUGi5iQyCCD0txDa
fiKTEEJ/RaED6X8v+cbBnGbyvY0bNVLXDhxojWlYJudN/vcbgAMZbQAExZx/24ItrSxebHXljyuqRdgo SP8HwFEHOc3Ee9MaNFC39+tnjWlQJmRP+PcbAAMZbQAKipx/24LNrSxabHXljCuqRdgwcUGk/p3wi5yD
cUms/h34Rc5HaE9s59w/QU4EFfG3ANajDTAgWQPkJW+Anj2uUcnAgUzDBg11sJjeZOHFFvhUEyWk4Apq 0J7Yzrl/DJ8IyuJvI1CPNkDfeA2QHb8BunW9TcUDBjL169XXwUJ644UXW+ATTZiQjCuoteVKwsRlchAZ
bbkmUeIK+YhMLEKbYgv6DKD9DuaCEj+jEbrNAf37W2MaFl6X6cqYeLFVHA+8fkAbAF/Kl+ZsAT/V+ES0 WISWYjP6DKDDDnJBCZ/RgLrNvn36WGMaFFyX6coYe7FVHA24fkAbgL6UL83ZAn6x8YlowxXWEDcakfcb
4QobEDcekb8IiBwUWs768dj3vT44Zq4i8vNpgP79+lljGpaUGICneycDBzINGzTQAWZ6E/glGfAINkHi IptC81k/Hoe+1wfH5CoiPh8G6NO7tzWmQUmIAXC6dzxgIFO/Xj0dYKQ3Bl8SAQ9hEyQanHo8ARlXvEj4
wanHE1BwxYuFT1Ti9slWcYlFYE/kEEKbmMdGzOVi7he7zX59+1ljGhb+QosrY+LFVnE88AKFhlk0wA++ RAVun2wVF1gE9kQOILREHhuRy8XYL3SbvXv1tsY0KPiFFlfG2Iut4mjABQr168IAP/jSnBdoU4B48MQz
NOcFOihAMnjiBbEIGcQiqolN4DAiB4Um+niIsSzOA0DmsQJtAGTNvn36WmMaFl6U48qYeOGVP8nAgQwv sQhpYhFVYhM4iMim0EAfDxHL4jgAJI8VaANQ1uzVs5c1pkHBRTmujLEXXPkTDxjI4PJxGMBLc4QtyABC
H6cBvDQHbEEmFCIstveHxRPUImqUsIL7My5hRI4ltIe+RC6yMLbxc+fgEKEB2G326d3HGtOwnBYG4LWD BMX2/qB4glpEDROWcX/GJYjIkYT20JfIhRbGNn/jHBwCMAC6zZ49elpjGpRLwgC4drBe3bo6HcPdfHTM
DbKydDqmu+XomC3oqcYqookraCxRBZu4xDu66QpsEzkoNNGLYcal8vy9hI8hvLD320O62+zdq5c1pmHh FvREYxVR4goaSVTGJi7wjm66AttENoUGejFMXCqP30v4goRnDnx3UnebPbp3t8Y0KLgmw5Ux9mKrOBpw
NRmujIkXW8XxwJMTIwbY72EL9K+BTcggnrABcaMEJjFE1kIbIovQeh0E0+DgYeqP9aXpZJ/usrQBep4G cmLIAIc9bIH+NbAJaeIJa4gbJjCIILIWWojMQut1EJoGm4epv9CXpoNDusvSBuh2CRgAv/0TDzgxAReP
BuBv/yQDT0zgxaN0tU5zLhLg9Vu/iOKfIbC9j7yXCFti867J5oJ5Z/MeO5sc3g4gc/+PILzAMQm7TY7k wtU6zblwgDdu3x/GPwNgex/4OBa2ReYjydbc+XDrPjtbHD4w4Ln/5yQ8gzEJuk2M5G0xDcroUaMuMQO4
bTENy7ixY08zA7h9HNEtBy3ozY27U8/H0axLAW9odjl8lD9rbWyIRqZ+H33KK4odOEahAa7p0cMa07Dw fRzQLYda0Hub9yaeL8LZkADe1exx+Dxn1tvYFA5P/T7/ClcUO2CMAgPc1rWrNaZBwSn5royxF/Mn4aKl
lHxXxsRL8Cfh4qVvr976Z2Xo6kia2++lRVugfy18goYQ1cQqMLGIvHbD5z5eN+Avh/AXRTZ8+pUHLxBl V/ce+mdl4OpQmjvspUVboH8tfIIGEFViFRhYRF6/6Rsf7wjwyyH4RZFNX33rgQtE0W0ijdtiGhSckOvK
t8k0botpWHhCritj4sVWcTxwICMGkBTHfk76QVtw/11YBTWxiktiC5wfa4A0CPOMJjEAW7EtpmFJjQG6 GHuxVRwNGMiwATjFoZ/jftAW3H8XVkElVnFBZIFzYh3BDUKe0cQGQCu2xTQoiTFAp84qHnrc1k3Vre03
XamSofc1PVVWPb8BiKwImt1CykFgBSfQjvliYe6fD6RlM0UH+ZDEOE3tA7LDdvKKcwKK1Ku3c+EMpgG6 AOAVQdktJBwKLOME2jFfJOT++aC0LFO0yWcgwmlqn4JdtpNXnBNQuF69nQtmMPWo29RCWmIaFJyQ68oY
TS2kJaZh4Qm5royJl6tQUTJwIFMfBmC/ZgZt8y6eRBmNuVgUBlsd5nqDD2MaKpgLMDYiP/xkGMvFm7p5 e7mFKooHDGTqkAHQr8mgbd2DkyjDkYtFQbDVIdcbfIhpKCMXYGyEfvhJGMvFm7p5BnPgH5zKzTzSMJ+K
BnOQH5wqyDymYT4wzlaiAThussUzHng+pitj4sVWcTzEMoAt2CnHEy+2iEFiieoX1hU3lMD+rOC19Kis s5VgAIybbPGMBpyP6coYe7FVHA2RDGALdsLxxIssokkkUf3CuuIGEtifFbyWHpYVQgbAGgUM0LljJ2tM
EDEA1yhogCuv6GaNaVhSYgDuRDJwIFO/bj3dr5mB8AJrBj1ZpM4QWMU0BI0lqpBvyieGwFEiI/UHzz/k g5IQA2An4gEDmTq1aut+TQbCC6wMerxwnQGwiikEjSQqk2PKB0LgMJEp9ZvnH+J5vr/n8AndbXbq0MEa
83J/1/7vdLfZrWtXa0zDwvMxXRkTL7aK44EDGRqAS65ecACDaAY7lQTFCkNE0GhRfcISq7j5Cyz8i+gT 06DgfExXxtiLreJowEAGBsCSqxccAkGUwU4kplhBCAkaLqpPWGAVN2eBmX8BfcLoAY9/EnKbPYccA3S8
Rvd6/BOY2+za5xjgisuTM8DIESNSYICuV6hkuBoDmfp16qJf+w7B+tLDFuRTjU9EYogYJCJqOGGFyBnB OT4DDBs6NAEG6NBRxcOtNJCpU7MW9WsnKFgHPWxBvtj4RARCRJOQqMGEZUJnBPsF9nDPBt7o4Sxgye2x
foE93LOB13s4C1jm9lyxzEKj6dqlizWmYRk5bHjyBuiGipLhKvRF9WAApjUvkJpgkP3YRDGxvSca8/Nc YlmXGk2H9u2tMQ3KsMFD4jdAJ6ooHm6hvqg2GQBpzQukxgyyH5soEtt7wpGf50IiSWwimoRabTBx/QKH
IJKJTcQgkVYbTly/wBGR17uri1GrjZu/8NXDayeZNfnjm8F4xgNPyHVlTLx0QxpKBqaienXqaAO8bwhh RN7ori6GrTZu3e+rB9dOImvixzfNeEYDTsh1ZYy9dKI0FA9IRbVr1tQG+EQIYQv0xUCLB3wCgpCIEimE
C/SpQItHfAKSiIgmphAaV9B8hc1HXBJZKt7jEVwiNuve+dVBGKCu6tKpkzWmYRkxdFjyBmA/lAx0In9h xhU0R2FzEBeElor3eZhLxLLu3d8eJwPUUu3btrXGNChDBw2O3wDoh+IBTsQvjCOtSWF0QG0BTwSoOxf8
nGnNFEYH1BbwVMC6C8AvpOAXND9Rif/4QERcm8DRxwF2q7c37lZvuZifzYNO9WAA/qkdW0zDMnzo0BQY QjJ+QXMSFfiPD4TEtQkcfhxgr/pg8171vov8bBx0qk0GwJ/ascU0KEMGDUqAAdrfrOKhA6WxWqk11dJV
oMvlKhm6Io3Vzayjlq5cg8A7fR1FkiBKoFOFKVA82A/4xBBVcIW1ihsQWLAeuwCsn+K/t2WPWrZqje42 6yjwTl8HkTiIHOhEIQWKBvsBnwiiMq6wVnENgRnrsQsC9UP8j7ftU8tWr9PdZutWN1ljGhScke3KGHux
O7Rrb41pWHhGtitj4sVWcTzQALVq1tQ/ftymVetCQtASseJP8nbu0NEa07AMu25I8gboioqShb8WzpTG VRwNMED1atX0jx+3aNY8jwA0pVjhJ3nbtW5jjWlQBt8xMH4DdKCK4gW/Fo6UhmPcuOo1s1Ej1axJU5XV
Y9y86rV5s2aqVU5Lldu6jf7dYaY6bsdfHb+6e3fnd4h799ZnxQ66dpAagi8yHAOa0aNG6z+Z5vx5ujz9 vIX+3WGkOmyHXx2/tUsX53eIe/TQZ8X2v72/GkhfZAgNaEYMH6H/ZJrz5+my9U/W4/q3KZMnq6lTpui/
k/W8/m36tGlqxvTp+i9mzZo1S82+4QZ14403qptuuknNnTNHzZs3T//1jFtvuUXdduut6vbbblN33H67 mDV9+nQ1c8YMddddd6m7775bzZ41S82ZM0f/9Yy5996r7ps7V91/333qgfvvVw8+8IB68MEHnVsCz+E1
uvOOO9Sdd97p3AI+x9e4Dbe9Ge/hT67PQT381c0bZ89WN6DuWTNn4rNmqOn4zGnXX6+mTJmiz8Hnn8yb bINt76H34CfXZ1E9+NXNu2bOVDOo7unTptFnTVVT6DMn33mnmjhxoj4HH38yb+zYsfrPueGi2MHUB98x
MGGC/nNuvCh2GPrg6wZfp8/v79e3rz4uwiN83a+6SneNHOR17NBBtWvbVrWG8PwbAfxRTcaKv6sUjGO8 4A59fn/vXr30cREc4etyyy26a8Qgr03r1qpVy5aqOQmPvxGAH9VErPC7SmYcowVxc2WMvaAF/5rYnJwb
MG6ujIkXtuBfE5uTC8I2APo1se1TQdi+e6rhKfmujIkXurSQMxOeku/KmHi5vFNnVciZyXXoPl0ZEy/8 tgHQr4ltn3LD9t0TDU7Jd2WMvcCleVye4JR8V8bYy81t26k8Lk/uoO7TlTH2gr8DkMflCa7JcGWMvbSn
OwCFnJnwmgxXxsRLFwzQCjkz4TUZroyJF1vFhZwZDBowMHkDcIpWyJkJL8pxZUy8cDGikDOTgf37J2+A AVoelye4JsOVMfZiqziPy4P+ffvFbwBM0fK4PMFFOa6MsRcsRuRxedKvT5/4DdCWKsrj8qRf70QY4KbW
TqiokDOTgf1SYYD2HVQhZyYD+vYrNMD/z/AXw10ZEy8d27VXhZyZ8KosV8bEi63iQs4M+vXuk7wBOrRt Ko/Lk769eucZ4P9n8IvhroyxlzatblJ5XJ7gqixXxtiLreI8Lg969+gZvwFat2ylLmX4yyLl8ejXmwu3
p05n5Msy5cno15sLd+rkLIt2jhwgCR6UsR3csRF8n9Sn1931ypvzmbIPkoZl/2z7fqrp27v3mWMAEZFB bessi7YLHSAxD8rYDu7YMN/H9el1d73y5nwm7wOnYd4/275fbHr16HH5GIBFRBARUAQZJzbiCpeuXbqo
ZEAZZJ7YyCtcenTvrnr1uEb16dlLpzWObrnIwbVu/goZT30aNXyEGjNqlL4cavzYsfrSaP5AQt6EiWry 7l1vUz27dddpDaNbLHJgrRu/QoZTn4YPGapGDh+uL4caM2qUvjQaP5CQPXacmjBuvJqYna1/Nw+/njl5
xElqSl6e/t08/nrmtKnX6x9SnjFtmpo5bbr+wwqzZpCZAWbo1/iz69yW7+F7WQfrYp2sm5/Bz+Jnjh8z 0p36h5SnTp6spk2eov+wwvSpYJrBVP0afnYd2+I9eC/qQF2oE3XjM/BZ+MwxI0fpfRg5bLj+lVT8TuKg
Vu/DmJGj9K+k8ncSh153nd5X7vOAfv10y+R36dmjh+pxVXd93iRNpg2F7965Y8eUmKZPr17/+RmgkNjQ O+7Q+4p97tu7t26Z+C7dunZVXW/pos+bhMm0oei7t2vTJiGm6dm9+39+BsgjMjCZK2Ps5aaslupi0qJp
ZK6MiZf2uW3VqaRNy1a6Va1fv17t2LHDz/btarvJtm2abSZbt6qtQbZsUVtMNm/WbBY2bdJsCrBx40a1 M92qNm7cqHbt2uVn5061U7Jjh2aHZPt2td1k2za1TbJ1q2Yrs2WLZovB5s2b1RYX3Jd88cUXPj7//PMw
yYX3TT7++GMfH330URQbNmzQfPjhh+rxxx9XLXNyVPWq1TTVqlaNUCUC/w5z1cpV9N9frlKpsqpUsaKq Nm3apPnss8/U888/r5o2aaKqVKqsqVypUoiKIfB3mCtVqKj//nLF8hVU+XLlVPnkcqpalao6NraYBQXX
lF5R1axeQ8fGFrOw8LpMV8bES7s2uepUwhR54MABtXv3brVz587/GPbu3avWrFkD8atCzOr6tLjMjFoe Zboyxl5atchSFxOkyGPHjqm9e/eq3bt3/8dw4MABtW7dOhK/EolZRZ8Wl5pS3aNGSopDNQf8EW6cBla1
tTMyHGo68I9w8zSwGtWqaUNUrJCuTWCLWVjYbboyJl5sFaeKtq3b6D9x/uabb/5HwkxQo1p1CF1LX+jB cmVtiHJlk7UJbDELCrpNV8bYi63iRNGyeQv9J87fe++9/0iQCapWrkJCV9cXeuDX0jR16nrgKuB6tevo
X0vT1M/y4FXADerV11cC8VRwnkBbC2ZgdqiYnq5jZItdGDjGcGVMvHAHThW5rVrr8/dswftPgAag+LzI K4FwKjhOoK1OZkB2KJecrGNki10QMMZwZYy9YAcuFlnNmuvz92zB+08ABoD4uMgDP5iN8/xCpOu/psbg
gz+YzfP8IjTRf01N4I9Dc5uGWVn6OgpmDHYJjJEtdmG4pvvVyRuAO5Bq2D/JtG3e3HnqnXfeUW+//bZ6 x6GxTf26dfV1FMgY6BIQI1vsgnBbl1vjNwB2INGgf+Jp25zZc9SHH36oPvjgA/X+++/74EC+++67HuvX
6623fEgg33jjDY+1a9fG5PXXX9e33G7dunU+pC7zueDnmcg+2eBr7777rt7OrE8+Q/jggw9UncxM3cop r4/IO++8o2+x3YYNG3xwXfI58/MkvE828NpHH32kt5P18Wcwn376qaqZmqpbOQRv0ihTNW7UyCEjRGZG
eE6z5qpFs2YO2RGaZ2erZjAFadKokc4ImbVq6/ECxwG2GIaBMwxXxsQLdyCVMDXJPJpzZ561K4IxaAyq hmpEpgDpDRrojJBavYYeL2AcYIthEDDDcGWMvWAHEglSE8+jMXfGWbssGIKGoMpgf/zxxx4YKPJ9iGAi
Gez33nvPgwNFuU8RgpjvEyFNoXlfTCRmkVsxjiAiiriyf/J+c1sir5vQAGzNjZD2mzfN1qd7CzxNnoYQ 38dCSqFxn03EZuFbNg7DIrK4vH/8frkt4NclMABacwNK+5kNM/Tp3gxOk4chGG0E2qZhWprevhYZpwqN
tBGwTdPGjfX2dWGc6hgP2GIYFl6X6cqYeGmd01KlEk5PzEWUm+fd7AWMIvHWFMoUIBbcNvg+Ez5vfoZ8 B2wxDAquy3RljL00b9JUJRJMT+Qiyj1z7vECBpFwK4WSAkQC25rvk+B5+Rn8OfK+Cb9mM5X5GNvzZ/A+
jnk/iLxmM1XwMbeXz5B9IO+//35sAxjimwZgpuCvhHIswMGjLYZh4RqKK2PipXWLHJVKmAFoAnYDHdq2 gE8++SSyAYT40gDIFPiVUIwFMHi0xTAoWENxZYy9NG/cRCUSZACYAN1A65Yt9bn7HDCGhcN9KZ7Z2lkA
1efuS8AEEY73TfGCrV0EMOHzwWxApA5BPsf8DLP+/GD6N2H9/GzWwTqZVTgDYMaqByGjDADBiRYfwhNt CZ43swHgOhj+HPkZsv6cQPqXoH58NupAncgqmAEgY9UmIcMMQIIDLT4JD7QBMDag8UAaGQDGgQGaWWIY
AI4NMB5oDAPQODRAK0sMw3LVFd2SNwB3IJVwcCILFTQDL7KgAIIpEuHFGlxRy5/hasSwYWrokCHuRRj9 lFs6dorfANiBRILBCS9UwAy4yAICMFIkgIs1sKKWM0PU0MGD1aCBA92LMHqrXj17UvcyO8wgpojcpeA+
VN8+fdC9zI0ySFBE6VJ4n89TTN5yWxHWdivbyX7SSCL8a6+9plavXq3rtGUAM/3zohlvLKC7ACcD8H0Z noeYuMW2LKztlrfj/YSRWPi3335brV27VtdpywAy/eOiGW8soLsAJwPgfSlVq+rtbXEMAlZSXRljL55r
NWro7W1xDANXUl0ZEy+ea1OMBIBX9UhLJKb4pAlGxgxgfujpFAZOdWtnqjqAc+lqVaroBRipl4jBKKIN EwwHAFf1cEsEUnyQTiNjBDAn9HSKBk61aqSqmgTm0pUrVtQLMFwvYINBRBt4TW5rQ9bHQHgW/6233tKs
vmZua8OsT6DwIv6rr76qeeWVV7RJmAE4sucAz/zeWnxXeBG/WdOmjgHwnfg+GoDbBWMXFl4g6sqYeDF3 WbNGmwQZACN7DPDk99biu8Kz+I0aNnQMQN8J74MBsJ0Zu6DgAlFXxtiL3OFEgNSPU5b5oA23Um5dUnyA
OBUw9fOUZTloI61UWpcpPmHwCqJBfWcOXad2bZUJKD5X1riqRoFsQgbhZ9n2gc/xltuwLjPFs6VT7Jdf 4OVGvTrOHLpmjRoqlYD4WFnDqhoEsglpgs+y7QOewy22QV0yxaOlQ+w333xTrVq1Sq1evVrfxy3A+3Bl
flmtXLlSrVq1St/nLeH7eGU095Hi5jRHDEAL4s4GeJkcZwGE08OmmA7SAHXr1NUGoDlscQwDx1mujIkX NPYR4jbJpBgQjYE7G8BlcpgFAEwPG9J0EAaoVbOWNgDMYYtjEDDOcmWMvUiXJgIMTnihAt0ArrlDkCMZ
06WpgIMTWahgN8Br7hjkWAbQCyUFwUUUBKw2pk5cRKlZvYZeVauJAIq5gp8hz0tXIJhdAl/ntqb4YoDg QC+U5AYWUShgNWjqhEWUalWq6lW1ahRANpf5Gfw8dwWM7BLwOraV4rMBzMcAaR9GeOONN9TKlSv1a0jl
Y8K0TyO89NJLasWKFfo1pnIu/jADMPXrlO/SHPHQ6NYvBmikM5pkgBZ43hbHMPDAkitj4oU7l0qYmmSU WPxBBkDq1ynfJZPiodGtnw3QQGc0zgCN6XlbHIOAA0uujLEX7FwiQWriUWpT6qfwF64hBgsixQdYIQsC
2hL9FP/CNcUQQUzxCVfIwsDLqTl35q9rZbIbwACKCylm6zaRzxSCLdzE7NclxUual9YvopMXX3xRLV++ LqfG3Bm/rpWKboAGUFhIka1bwp/JmC1cIvt1TvGc5rn1s+hgxYoVavny5fp9GM3DAPhz8J7wutU7QHgW
XL+Po3kagH8O3hNet3oHCi/icwDIBSExABeDbDEMCzOsK2PihSPTVEJnUvz2zAIYEN4wa5YnQlB8wiXU HwNALAixAbAYZIthUJBhXRljLxiZJhI4E+LfhCxAA8IZ06d7IpjiAyyh5gZW2vQSKrV69PtI/WXLJKkk
guBKm15CRatnv8/UX6F8mkoDFI3iEQpCKCqFpuCCtGYxgLxHMAUX0U2xly5dqlm2bJmG9/ke7hd/9ZMC AqJBPABBAESF0BCc4dbMBuD3MFJwFl2KvXTpUs2yZcs0uI/3YL/wq58QWBvAbZ0skjYAveYYIE2PeTwD
awO4rVNE0gbAa44BGusxj2cAfB++ZotjGNjNujImXprBlalEi8+jVW43QAPYhBey0LILgumfA8AMpP4q 0PfBa7Y4BgHdrCtj7KURuTKRaPFxtMrtBmAAm/BMXWrZuYH0jwFgCqX+iuXLa/HLlCqlSpcs5QnN9XFG
lSpp8cuXLavKlSnrCS31SUaQFm+KT7NQZMI+XFq22brNx7ylAUwTLFmyRC1evFhDo3BBh4KydevpHgQn 4BYvxYdZIDJAH84tW7Zu+Ri3MIA0wZIlS9TixYs1MAoWdCAoWree7pHgQBuARILAHBv0/1gO5gEtujG8
2gAQiQJLbNj/czlYBrTsxvg+M37xwNVWV8bEC3cglXB6QuFzWzvLlbym3xRFhBIobkGwtdRB+ue8uZo+ T8YvGrDa6soYe8EOJBJMTyB8VnNnuRLX9EtRWCgG4uYGWktNSv+YN1fWR9LKahPgYIqsC/Wz8NzSkRFk
klZBm4AHU8y6WL8ILy2dGcFM7WYrFxPYzCCiEzEBW/6iRYvUwoUL1YIFC/S2nJVwnEJxfS3fFV9SP9Ez apetnE1gMwOLDtgEaPmLFi1SCxcuVAsWLNDbYlaCcQrE9bV8V3xO/UDPeGgKiN9WZgPgfTJ+0YCTSlwZ
HkwB+dvKYgC+z4xfPPCkElfGxAt3IJVwx7RDmzi3UyZP8Vqg2VIFilsgCBYPsdasVt059l6lqqpcsZKe Yy/YgUSCHdMOTXduJ06Y6LVA2VIZiJsrFCwcYq1WuYpz7L1iJVWhXHk9G5Bic+rnPp2BAdgEsl+XaZ5T
DZhiS+qXPl2gAcQEZr9upnlJ7ZLepZVTcFN0Mn/+fPXCCy9oc9CYHKNwcOcT3hUp24gNF4A4A+D2NI42 O6d3buUQXIoO5s+fr15//XVtDhgTYxQM7nzCuyJliNhgAQgzAGwP42gDkClk/KIBg2xXxtgLXHkxmTA+
AExhxi8eOMh2ZUy80JWnksmT8jyBeBs0AFtCgSDIPKZOA/AYOw+iVMY4ID2tgm8MIAKLyNKyzRZtpnEK 2xMIt6YB0BJyhYKMY+owAI6x4yBKBRoHJCeV9Y0BWGAWmVu2bNEyjUNY3OKxTO0S3gYGgOivvfaa5tVX
y1s+NlO7iWxDA1D0559/XvPcc8/pumhMZil+V090ICJ5sYD4jSF+I4wXOKahcWgA73ULuS1bGUf/Wuv1 X9V1wZjIUviunugEi+TFgsRPI/Eb0HgBYxoYBwbwXreQ1bSZOPrXXK//y9fRzboyxl6wY4kE81N5xAor
f/N1drOujIkX7lgq4fzUPGLFlUBOuWSFLsoACERBMFi1ESwuADEjMHCSCUR0M8WbBhAkvdME0spN0c37 gZhy8QpdmAEoELmBYNWgYGEBCBkBgeNMwKLLFC8NwHB6hwm4lUvR5X2IjVaO1s4tH48h/CuvvKLmzZun
FJutnK1dWj4fU/hnn31WPfPMMxpuS2PSAEztXmuHOEQL5cbFEd9Z1OL2TpdWwxe7IBxL6QM/7qyKgpuv wbYwJgyA1O61dhIHaKHcuDjiO4ta2N7p0qr6YmeCsZQ+8OPOqiC4fB1drStj7AU7lkgQADlQmZg9Qadp
s6t1ZUy8cMdSCQNgDlSm5E3WaVr656AB6tSqVSBsZbUwZ+bZNxmYOjmtP01VAGZ6l9Ru9uVyKxnATPNB 7p9NA9SsXj1X0Mqq05wZZ9+k0NTJaf1Jqiwh0zundtmX8y1nAJnmTRNwupcp3zTAyy+/rF566SX14osv
E0i6N1N+0ABPP/20euqpp9STTz6pn+dUjgNBtmwe6m3SEOKAxqQBYgIoPF+n+Fn16rlTWqdLs8VQYMvX 6ucxlcNAEC0bh3rT65M4RBqoRzEhIDxeh/h1a9d2p7ROl2aLIYOWr5d93ZU/PJavo4G5MsZeGtBOJRL0
y77uyh8fm6+zgbkyJl4aYadSCftBvQ6AHWdfyL9vy9QvJggaQE6hyg+mfc4A2OJrI3DsArgGkI7BoLR6 g3odgHYcfSH+vi1SP5vANACfQpUTSPuYAaDF16DAoQvAGkAyDQa51UN8mfal8FJ8Fl4agU0gxUa6B0j1
im+mfVN4U3wR3jSCmMAUm+meMNVLq6f4FP6JJ57Q5wTSEFzMcQaC9XUfr/t5T3SeIeQI74jPFU0YAIaR 3OohPoR/4YUX9DmBMAQWc5yBYB3dx+t+3hMdZwg5wjviY0WTDECG4S7NFkMGXQAfSAIQXL6O7ODKGHvh
Ls0WQ4FdgBxIIhTcfJ3ZwZUx8SI7lyrY/3lHv2AGnl5tLsYEDcAzagrEXf2j6Bz4pVdIV2nlyqvy5cr5 nUsU6P+8o19kBpxeLRdjTAPgjJpccVf/IDoGfsllk1VS6TKqTOnSPsEhtGztssXbUr9s6Sw6brm1Q3wW
BKfQZms3W7wt9ZstXUTnrbR2ii/Cs9WL8I899ph69NFHtTEool6ggriO4BHM1Uy+rtc00PrZrXFFswa6 Hq2ehX/uuefUs88+q40BEfUCFYnrCB5Crmbidb2mQa0f3RpWNKtSN2aLIYPUr2cV7sASj+XraGiujLEX
MVsMBaZ+PatwB5Z8bL7OhubKmHjhnDSViPPl8YTx432jdIouUzXCQBSI7v+rq8rpzhm1FTD4Y+sn0tJF zEkTCTufH48dM8Y3SofoPFUDCESu6P6/iqqQ7JxRW5YGf2j9gFs6C85CS/G51ZvpHuLbWj0jWz6n/Wee
cBHaFF9afTDdU3xbqxfMli9p/5FHHtH84x//0M/xpA4alGndExzfWwtO3IUsDcVHtqgDU7Pr4DhG4mSD eUbzj3/8Qz+HkzpgUKR1T3D63lpw4C5kaSA+ZYuaZGp0HRjHcJxsIP3LmQQem6+7MsZe6tGOJRIMTngx
6d+cSfBx8HVXxsRLA+xYKuHgRBZDiGQAWZ41p22crlHcgmD6Z2upgqkfDcGVQLb+0qVK+8Q2W3ZQYFNk BHAG4OVZOW3DdA3i5gbSP1pLRZr6wRBYCUTrL1G8hE9s2bJNgaXIaN0MWjnDgkNYKTqD1v/000+rv//9
tm6BrVwQwSmsKbrA1v/www+rv//97+qhhx7Sj9ktcR+5IhhcvaTggkxp69bGgBYG0N8J77XFUOA5BTLg 7+qpp57Sj9EtYR+xImiuXkJwhqe0tWrQgJYMoL8TvdcWQwbnFPCAD30+HpuvuzLGXmwrb/EAt2LAogcu
Y5/Px8HXXRkTL7aVt2SgWzlg0QMX7CCvspHWTuFluVbm57UQiILIQOuvzrk/Wr9eDayM/h9ZgCYQ8c1W tIO4yoZbO4Tn5Vqen1enQORGCrX+Kpj7U+vXq4EVqP+nLAATsPiylUsjQHg2AgxgM4LZ0ll4Tvky7UP4
bhqBwosRaACbEYItXYSXlG+mfQr/t7/9TT344IP6cTXsS0b16jqt8/vXh8gmXMMQKL4e06D1s0vjolYw v/3tb+rJJ5/UjyvTvqRUqaLTOr5/HRJZgjUMBuLrMQ21fnRpWNQy4we470fq5/6+PrV4DKrxHMZX2A7b
fkT6fqZ+6e8bosVzUM3nOL7idtzGlTHxEtzhZOHOMl1xRzkl5K9rSvq3rcqxD/VAKw/Clk+q8qIK9P08 uDLGXswdjhfsLNIVdhRTQvy6Jqd/26oc+lAPauUmaPmgEi6qoL4f59SXLVNGlS5VSpUqWcoTX/bnUmSz
p75C+fKqXNmyqmyZsp74Zn9uihxs3RRZbgUKTrFFZEnxZmun6CL8X//6V/WXv/xFv879qolugML6xXbW dUNkvmUgOMRmkTnFy9YO0Vn4v/71r+ovf/mLfh37VY26AQjrF9tZv5BTWaR+dBfIGPhOMIAthmhEmEI6
L8ypLFM/uwtmDH4nGsAWQzYiTiGdVO9mFQjOTMLulVNMbscM68qYeDF3OhVwBzlg4eCFA0GOAWSqZpuj qd7NKiQ4Mgm6V0wxsR0yrCtj7EXudCLADmLAgsELBoIYA/BUzTZHr0JBqExBRCAdyjtQumeQ+iE+Bn4w
V0cQqiGIDKRDJQeke4Gpn+Jz4EcDSP/P5WC2dgofq0WLwNKig606ltgUmiJTbFP0Bx54QN1///0abscV APf/WA5Ga4fwkVo0C8wt2mzVkcSG0BAZYkvRn3jiCfX4449rsB1WJJGdIKoWGVNXEhp4MxkSHTjiV9VL
SWYniqpF5tQVQhNvJgPRiSN+Db2kLV2aLYaEDUh3HxBaVkMJY2ved2VMvPhW3FIAW78+YUHPAppqA5hT 2tyl2WII0IB090FC82ooQGzlfVfG2ItvxS0BoPXrExb0LKChNoCcqpnTtArJyTqdo1WXJYFBUqnSHmUA
teA0rXJ6uk7nbNUVIDBJK1vOozxBSy9burQqXbKk3pZHAfl82TJlfP04hRdEdIocbNmCDOjk+aD4FJvc tfRSJUqoEsWK6W1xFBDPlypZ0tePQ3iGRYfIZstmeEDHz5viQ2zw2GOPaR599FHv9pFHHtHbwJhoyeia
d999mnvvvde7veeee/Q2NCZbMrumoNge7lhGj2dgAA5o+R4awBZDwpTPkb75HMcBzArymANEV8bEi+Pa TLE93LGMHs+QATCgxXtgAFsMAVI+RvryOYwDkBX4MQaIroyxF8e1iQPOlGkP5/PxFI2naXKqlkT9eMni
1EFnmmmP5/PJFE2maeZULQ39eJlSpVSpyy5TJS+9VHNZiRKaS0nx4qpEsWKqeNGiqhgoBRNcim2K4bki xVXxokVVsRtv1BQtUkRzIyhcWBUpVEgVLlhQFSKKkwlupG0K0XMFbrjB2rpzEh2gtTNo9Waa5/u4NbMC
l1xibd35iU7Y2gW2+mCal/u8DWYFCv/nP/9Z3X333ToL8MAUMxbPT+DI3gNCEwruwZbP8Yyb/jmmCcbP hP/zn/+sHn74YZ0FcGAKGQvnJ2Bk70FCAwjugZaP8Yyb/jGmMeMnQaqXj9E1yMdobK6MsRdOV4lCdwHk
hKnefMyuwXzMxubKmHiRdJUqdBcAZwq8lNqcpwenZ2Uwkr+0eAkIXEwVK1JUFS1SRBWFsEUuvkRdcvHF TAaXUst5ujk9K0kj+RsLFyGBC6lCBQqqggUKqIIkbIHrb1A3XH+9uiH/9er6/PlV/uvy69tiZBQYoAgZ
6pKLLlYXX3SRuujCi/RtSRiFBigBYxSHCSTtMwPIrWSB4MBO+nmaguYQM4jIAsU20z1bvEDh77rrLvWn ozCZgNM+MgDfchYwB3bcz8MUMAebgUVmILZM92jxDIR/6KGH1J/+9CdtBqxIViADQFRkARPfGAfiU3cB
P/1Jm4ErkpVhAIrKLBDEN8ah+OguKD67NmY/WwwFNiaOqXifrV83KuN1zg5cGRMvcOkqSVupgDuqF4HQ 8dG1IfvZYsigMWFMhfto/bpRidcxO3BljL2QS1dz2koE2FG9CET9E/qoUSNGeOkeBjDn42j5aNlacBbb
P7GPGjt6tJfuaYDgfJwtny1bCy5iu4JfdOGF6qILLlQXXnCBuuB/HNjqKTzfw1sKa/b1IrSZDSg2haa4 FTz/ddep/Ndep6679lp17f84oNVDeLwHtxBW9vUstMwGEBtCQ1xO7wxSOkTmdI/7nOYBWju3eAivf36e
kt4FpnSKLOme9yXNE7Z2afEUXv/8PLjjjjv0Y45LuDZBYSmwDFpN+JqgxcdYpwreUxHdmS2GJqYBgq/x eOCBB/RjjEuwNgFhITAPWiV4jdHi01inIr2nHHVnthhKpAHM1/AcSXiFIOpyRdWqVa+pXqnqm+inEgH6
OUh4lkHc5awaNWqcX6tqjZfZT6UC9lEyC6ARxsAAZssPLsIMGTIE6RNTIgSqKgJURZ/w6Zz0WRmBqoTW KJ4FwAgjyQCy5ZuLMAMHDqT0SVMiClQlClBFfcKnc9JnBQpUeWpdmPeXAxQ0/TqB8wEH9O/vtWZO95zy
xXl/RYKg6dcBzwccPGiQ15ol3UvKD6Z487GZ0qW1C2IG3prQFGzxt99+u7qNf3OAf5MAJuA4hUJSVJ/Q zRQvH8uUzq2dYTPgVgJToMXff//96j78zQH8TQIyAcYpEBKi+oRm6LswGMDKQS3eZ4uhCcZStudhjoyM
Ar6LwAGsOajl+2wxDMKxlO15miM7O/u30PEcaukSusgbzklLS/vvmlWrvmKbg8cLpyvsu/QSJmAGoAEI jN+SjldBS5fAhd9wVVJS0n9Xq1RpjW0OHi2YrqDv0kuYBDIADABgAHOahgGiPF2MDxrJtQOGp5M8pUQ2
DRCcpnGAaJ4uJgeNzLUDQaaTMqVkNjH7eBHZTOUcvdtat7RqadkCU7u0cIpNzPu33nqruuWWWzQ0AQeo kX08iyxTOUbvttbNrZpbNoPUzi0cYgN5f+7cueree+/VwAQYoCbToBSiYjZjomc29Jo3o4GJCccASdYY
6RiUUlTOZoLomQ1e82Y0NDFwDJBmjWFYOFCEfudlZmb+jjqCs11NQxVuyDfwzeedf/75RapVrvyarR+L BgUDRdIvX2pq6u+gI3Glq2mggg3xBrw53zXXXFOgcoUKb9v6sWhAP4V5Kw6KIAsMHzrUS/kQXk7X5Pxc
B/ZTnLfyoAizwKgRI7yUT+HN6Zo5Pzf7aw7qzIUYc1BnpnWKL2mdQsuUTZDn2LLFBII5mjfTvNnHm0ag 9tcY1MmFGDmok2kd4nNah9A8ZWP4ObRsNgEjR/Myzcs+XhoBYkvx2QClS5TUM5cKWKNgkXOCxNdL2tT6
2Kb4YoBypcvomUtlrlGIyPkB8fWSNlo/xw+2GIaFcYZ2/w3+D/g9iCsT6NYP+MbzwUXnnntuWuW0iuu4 MX6wxTAoiDNp99/E/yF+T0SVCXTrJ/DGa4j8V199dVKFpHIbsPIWK5i3YhEDZ8ggE+CvW3K/j9Qfi+iy
8pYonLdyEYNnyDAT8K9bSr/P1J+I6GYrDz6WtG6mdLkviAFsaV1uaQQRn7diiKARTAPQEGVLlkI3UFYL lZuPOa3LlM73GTaALa3zLYzA4uOWDWEaQRoAhihVrDh1A6W0oNy6cwJG4daPzGGLYVCwTkC6FST+SPwX
Kq07P2gUaf3MHLYYhoXrBNCtKPgj+C/Axhw6C3Aj9h/nAbqIFZX/7W9/26BC+bR/2lblwsDBiSxpksHX gcYcOAtgI/Qf+Qi4CBWV+e1vf1uvbJmkf9pW5YKAwQkvaYIBt9+u0z23+FhEZ5Fxi9f5Odn6ITAP3ABE
XqvTvbT4REQXkXnL1+U5s/VTYBm4EYoaTPdmy+atIAKbqZ4EtyGmAUgZTEvZDVSEmBS3IGgUQgNwIcsW NdO9bNm4ZVhgmeqBuQ2QBgAlaVqKbqAciQlxcwNGATAAFrJsMQwK1gJIs1JEAVfDqwloGrUB/ocoQlQg
w7BwLQCalQVFXA3PBdQ0bgP8DygBKoOG55xzTrcKZctu5MGKeOFiBw9UsH/iLa/ls03PTAPYjCAmEKHZ 6l911VWdypYqtRkHK6IFix04UIH+Cbe4ls82PZMGsBmBTcBCo1XLvp1bt0z9bAQID9HRqhkYgGEjsLAs
qs2+XVq3mfrFCBSeorNVCzSAIEYQYUVwM83PnTtX/zEqEz4XNEDpy0rqbiCdswFX3Pyg8NL62XXYYhgG uEzzs2fP1n+MSoLnTAOUKFpMdwPJmA244uYEhOfWj67DFsMgwABobKRXRaIYcR2BroCzQK6FDYDUAQMU
GoCNDXpVASXBhYBdgWSBAosYgKmDBrgMVAVNwZVnn312XvnLyu7kUm08cMoia9g0AP+ogfT7wfQfzAKC JSoRDYnOV155ZXaZoqV2Y6k2GjBl4TVsGAB/1ID7fTP9m1mAkQYwMwGLz327OXLndC77dBaZBWaR8VfD
aYBgJhDxpW8PjtwlnZt9uogsAovI/KthQfg8txP4PmYGyRKm+KQ0prHlSpeGmJwNOOIWBMVPd1c+bTEM TPA8tmPwPmQGzhJSfFCCprGlS5QgMTEbcMTNDYif7K582mIYBIy1yAi/kFapRGniBuIPBLr0QN0ANsAY
A8daMMIv0CoTlAOXgD8AdumhugFuwDEAMwD7EMkAjUE3MOGss856qFSpUvttOxALjk5lJZD06tlTC0co ABkAfQhngDSiEzH2iiuueKp48eKHbTsQCYxOeSUQdO/WTQsHIKIUlKdkEFT23aa4Zn9timwbtEmRufWy
oimoTMkoqNl3B8UN9tdBkW2DNlNkab0iMAm2bkGMIPdpAtYrdc+ZM8cH1zG4TB2vAWTp2xbDgpBpID7z wMBs3Qwbge/DBKiX6541a5YPrGNgmTpaA/DSty2GucHTwDKlS/9IOtUhkgl04f+XkIPBHAsbAP0G3ogK
R+hUH6QDduH/F5iDwXyLGID9Bt/ICtJAPdABjAD3wQQvlS1a7KBtR2xIehI6deyoA0UBzMDxsSDP8W8B kojaRGtiKPEYmeCNUgULHrftiA1OT0zbNm10oCCADBweM/wc/hbgzJnO3+7Tf79v+nQ1bdo0NZX/ht/k
zp7t/O0+/ff7Zs1SM2fOVDPkb/hNm6aud/+On/5bfpMnq7y8PDVp0iQ1fvx4/ff8xowZo5H7ozENJXxM yepO9+/46b/lN2GCys7OVuPHj1djxozRf89v5MiRGr4/gqahAI/BuHHjcgR/FxB1mfDzo0eP9lG6JGYB
Jk6cmC/8u4CsK4g8P27cOB/lynAW4IjPwV1YuAZAbDHMD6Z9NjLer1ChwjZolJQBZBrIvoN9SClQHTQD jvgY3AUFawDAFsOcQNpHI8P9smXL7iCN4jIATwPRd6APKU5UIRoR3YjpxHNkgpVFixY9RKPY0zSFOV2y
PcEs8BhMsOKyyy7bh1HsEUxhjqDPO2qDr6ELOFKvXr0j9UEWaJ2Tc6zr5ZcfFzq0a3+ifbt2mnZt23q3 WPEzNvAadQGna9eu7dG8SZOzHW6++RzTKqvl+ZZZWZqsFi282xbNm59v2rSpR5PGjTWNMzPPZzZqxFwA
bXNzT7Ru3dqjVcuWmpY5OSdyWrQQTpIWzZt7mI9zcnLcxw7NsrNPZrvwPuF2zZs1O5HdtKkHH5NmQna2 jTIyPOTjzMxM97FDBj1ngu0yGjY8n56W5oHHoCGTnq7h51tmtTxH+3kuq3mLc00aNyEaa2jfzlUuUfJM
Rp5vm9v2OPbveG7rNsdzWuSAFhrUdbxa2XJHq5Ype7Q8vr/Ep6AY5QfrsFGtUuWfq1Su8hM+6wdstz+t peIlztBs4AzHJ7cY5QTqsFG5fIWfK1ao+FOlEiV+oO0OJ5VJ2kRTdzTSmLsAFJkFeCaAyqoTzYgexHhi
fNoGTN3ZSBPuAljMLCAzAVZWC7QCvcEkMBfcCe4B94H7wQMGfMxscW/RokX/UqNGjb+1bNnyoR49ejw+ NvEg8QjxGPE48YQAj5EtHi1YsOBfqlat+jcS8amuXbs+P3jw4Fep5Syklrp40qRJS6kVL6MWvYJa9Epi
bNiw59ByFqKlLp46depStOJlaNEvokWvACvRwl9Bq1+N1r8GrEVGeBPp+22k3nfBeqT4fyHV/y/4EKl+ FbXwNdTq11LrX0esp4zwHqXvDyj1fkRspBT/L0r1/0t8Rql+E6X+z4nNxFZiG3UH2+n57TTa30Hb7qTH
A1L/R2Aj2Ay2oDvYiue3YrS/Ddtux+PtvI/tt/F5dAdbkLo3o65NqPdjpPYPkdo/QDfwPu7/C5+3Ho/f O3Gftt+B56k72EapeyvVtYXq/YJS+2eU2j+lbuATuv8v+ryN9PhDuv8+vf4e3a4n1tHz2Cfs22rKRiuJ
wf238PqbuF0L1uB57hP3bRWy0QqwHPu+BFnk+REjRjw7aNCgZ7p37/4UzPVEenr6w3/84x/v/93vfsf4 5bTvSyiLvDZ06NBX+vfvP69Lly4vkaleSE5OfvqPf/zj47/73e8Qnz8TuH0UMckBvI7tTPB+ycPEQ8R9
/Bnw9l7GJB/4OrcLwveb3A3uArcBNkiK3gO0BQ0AB4Ecv8U9CGQxs4AMBosBmqAmaALagytBL9APDAAD BBokRO9KtCTqERgEYvwW9SAQRWYBHgwWImCCakQ6cRPRmehO9Cb6Ev2I2wV43JcGjn0KFCgwIDU1dVjr
wbUGfDwAA8f+RYoUGZyZmTmyQ4cOEwYPHjwTaXoeRL4VAb8D/ejd4B4IdR94AH08uvwH/46+/x/gUYwH 1q3HDhgwYBql6Tkk8lwK+APUjz5MPEJCPUY8QX08dflP/p36/n8Qz9J44HkaF7xI44OXiHk0GHyVBorz
Hse44EmMD54Cz2Aw+BwGivMxbVwAFoMlGDwuwy1ZjgHli3i8ArcrCZ57yYSvua8vRz1LcX8pnl+CwegS adq4gFhMLKHB4zK6BctpQLmCHq+k21WAnntDgtfc15dTPUvp/lJ6fgkNRpfQc4vodiE9t4AGoa8Rr9Ln
PLcItwvx3AIMQp8Hz+Hz+JlPYiCKycjjuPvYIxiMYvjy8EPYrwcx0Lwf3+MWmIPfaS6MPbtnz55TmzRp 4TNfpIEoTUaep7vPPUODURq+PP0U7deTNNB8nL7HvWQOfKfZZOyZ3bp1m5Senj6Sxkr98+XL14viABCn
MgZjpUHnnXdeX8SBME79GZN84OthYX1sjN1BJ5ADskA1UAZwGsj0H9c0UIpkAaYOOogmYCYoDSqCGqAO PohJDuD1oKA+NMYuRFuiCVGXqEyUJDANRPqPahrIhbMAUgccBBMgE5QgyhFViZoE3IYBImYJGQZ4DmZJ
oNs4QOQsITsAn6NZGlerVq3VFVdc0RmtpDtafD+0wiEY1A2DoMMxAByBQI+GGGMgxDgIMB5CTJw/f37e q1y5crOOHTu2o1bShVp8b2qFA2lQN5gEHUIDwKEU6BEkxkgSYjQJMIaEGDd//vzsxYsXTyQmLVmy5E66
4sWLp4CpS5YsuR6305ctWzZz6dKlswge34DnZy9cuPAGzChmYHs+d+OiRYtm8z6fc5kpoN5ZmHncgNfJ nbJs2bJpS5cunQ7o8Qx6fubChQtn0IxiKm2P5+5atGjRTNzHcy7TGKp3Os08ZtDrYDpYsGDBNKoD751O
LLJgwYKZqIPvnYX3zjDqn47H0/DaVNznfkzBtpNRzyTuH/eT+wwzDENm6YNs0hs+6IlM1mPo0KFd27Vr 750q6p9CjyfTa5PoPvZjIm07geoZj/3DfmKfyQyDKbP0pGzSg3zQjTJZ10GDBnVo1apVVlJSUsYf/vCH
l5uWlpb9hz/8oRFiQBgnxoNxSQWsi/VSA2rBxkltqBHFT2ghSAo3Nk3AiugmphRmA6YXuowDxAqAH1wp BhQDgDghHohLIkBdqBcaQAs0TmgDjSB+TAtBXLCxNAEqgpuQUpANkF7gMgwQyxL44PIGeA4DkbLFihWr
AJ/jQKRCyZIlqzZs2DCjV69e9TEIa4TUmY0U3BwtvjnSc3O0+hwYoiVaVSuCVqZBi2sNc7RBoHPRKttB VL9+/ZTu3bvXoUFYA0qdGZSCM6nFZ1J6zqRW34QM0ZRaVTNArUxDLa45maMFBTqLWmUrEq8liaAh8fUt
vLYQQQPx9S1EzIUobfga4XYQqL2A97dD623L+zBYBwLTtYVwbWDAXHyOhve5LcE23D7XqLs16m2J/WhB iZhForTAawDbkUA3MfT+VtR6W+I+Gaw1INO1JOFakAGz6HM0uI9tAW2D7bNE3c2p3qa0H40BbduIZh/p
sG0zzD6aIHM1QlfREMLXuemmm+qg+8rEoLE2vmfNxo0bVylRokT673//e8aHMBa2OCWKxJcacOGH8/7i lLkaUFdRn4Sveffdd9ek7iuVBo016HtWS0tLq1ikSJHk3//+94gPQCxscYoVji80wMIP5v2FieuJmJeC
4GKQ8FKwWUwT0EVMJayURmBGoBn4YRxo0HGx4OsXFy9e/OKMjIxLWrVqVQQBKjJw4MCiQ4YMKYKUqcEI ZZEmgIuQSlApjICMADPgwzDQgOMigdevL1y48PUpKSk3NGvWrAAFqEC/fv0KDhw4sAClTA2N4AtSCtW3
vihSqL517xcTENziBIEuYQNmujQZbHUS+VxzX2T/BNl/fhd+J343fke0/kuKFSumv7sbg2BcmFETxayH 7v1CDAW3MKBAF7FBZroxHmx1Av5cuS+8fwzvP74LvhO+G74jtf4bChUqpL+7GwMzLsiosSLrQd35iWsJ
dV8ELgAUnkv4nMZTM2oXd+sPFr6ZlbAy9iV0FT+AWYGGIPzQWOhtMGP4r6ysLE3fvn3Py83NPXfkyJE+ CI8lfEzjoRm0i7r1mwVvRiWoDH0JXIUPQFaAIQA+NBJ6G5ox/FfdunU1vXr1ypeVlXX1sGHDfFCA811O
EODzziSC+8/vhQHgefI9+Z3l+7uxOBWwbn4ONWEjpfDUKeGWH6tIZWIGMURYzrnyyivPQeDOJnis65PH mPuP70UDwHz8PfGd+fu7sbgYoG58DjRBI4Xw0Cnmlh+pcGVsBjZEUK7q3LnzVRS4KwE91vXx48sd87vg
ZzrB78Lvyu8MgnGgQKnCrFc+z4stsJTf/Ob/AXRLhhbT3iVzAAAAAElFTkSuQmCC u+I7E2YcIFCikPXy53mxJSzlN7/5f3xRhMToLqBIAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAH9SURBVFhH3dY/SFZRGMfx2x8KSorKKI0cQ4KIgkQHXaQW
Bc2hQiIQoSIoanBxCcFCcVH3kCKIFtGWQIRoKBvELQgXIVoioqmk8k/f3+Gey3nlabmc8wb94APH5zx4
H7z3XG/2v6cV1zGMx3iJS6hKrmLT8BVVySCsATawH8lzHk8xitu4iHOowzZUJTtQjyb04A400Bkkz3H8
gnUbbqLILpyGptqJY/m6rCNQ9Ht/wxrgIYq8gd84irHg5zJ+4BSUT7B69GwU0VPpN2IMIH1QFmDtv0aR
cCP2AM9h7a+gSLgRe4C//a6f0AlxCTdiD6Dzb+2LHnaX9/DFGAOsoRlKN6weaYHLQXSgE7txMl+X5U+A
chbWxeUykqcW1sVlAC4j+Iwv0EtkKF+X9Q6H4fMd1gCTcNE988VYD+E1+HyA1TMDl7AY+xQoc7B6luAS
FlMM8AhWj26XS1hMMcB9WD3r2IvsW16QWAPo/PtoGKtHGpG1YRwT2IeufF3WPWyHTzusi8sFJM8JWBeX
fmRXMIsXOAD9ybQuS+dbb1SfPdD9tgbQO8d9QPhCrGdg62tWLzqrbwoVhRSnQFmE1TePikKqAaZh9S2j
opBqAJ0yq28V7uvEF2IN0Iswd2H1fUR2C2+hD8hD0FeM1mU9Qw3C6L+jTsgrPMED3EAD/mWy7A8HhzJ3
wRBvDQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton2.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> </value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -372,7 +402,7 @@
</value> </value>
</data> </data>
<data name="C1Auswertungen.PropBag" xml:space="preserve"> <data name="C1Auswertungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 770, 398&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 770, 398&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 770, 398&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 770, 398&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -382,7 +412,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown1.PropBag" xml:space="preserve"> <data name="C1TrueDBDropdown1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;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;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 326, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 326, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 326, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 326, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -392,7 +422,7 @@
</value> </value>
</data> </data>
<data name="C1TrueDBDropdown2.PropBag" xml:space="preserve"> <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;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 309, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 309, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value> <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 309, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 309, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

91
DPM2016/Sysadmin/frmAuswertungen.vb
View File

@@ -1,13 +1,24 @@
Imports C1.Win.C1TrueDBGrid Imports C1.Win.C1TrueDBGrid
Imports System.Drawing.Printing
Imports System.IO
Public Class frmAuswertungen Public Class frmAuswertungen
Dim db As New clsDB Dim db As New clsDB
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
Me.Close() Me.Close()
End Sub End Sub
Private Sub frmAuswertungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAuswertungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each existing_printer As String In PrinterSettings.InstalledPrinters
Me.cbboxprinter.Items.Add(existing_printer)
Next existing_printer
Dim oPS As New System.Drawing.Printing.PrinterSettings
For i = 0 To cbboxprinter.Items.Count - 1
If cbboxprinter.Items(i) = oPS.PrinterName Then cbboxprinter.SelectedItem = oPS.PrinterName
Next
Dim dt As New DataTable Dim dt As New DataTable
db.Get_Tabledata("Auswertung") db.Get_Tabledata("Auswertung")
dt = db.dsDaten.Tables(0).Copy dt = db.dsDaten.Tables(0).Copy
@@ -21,6 +32,10 @@ Public Class frmAuswertungen
Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
Me.C1Auswertungen.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1 Me.C1Auswertungen.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
Me.C1TrueDBDropdown1.DisplayColumns(0).AutoSize()
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.C1Auswertungen, "Auswertung", db.dsDaten.Tables(0))
End Sub End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
@@ -54,7 +69,8 @@ Public Class frmAuswertungen
Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
Me.C1Auswertungen.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2 Me.C1Auswertungen.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
Me.C1TrueDBDropdown2.DisplayColumns(0).AutoSize()
Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
End Sub End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
@@ -66,4 +82,77 @@ Public Class frmAuswertungen
MsgBox("Daten wurden gespeichert") MsgBox("Daten wurden gespeichert")
End Sub End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Dim ppath As String
ppath = Application.StartupPath + "\" + Globals.Auswertungsverzeicnis + "\PrinterConfig"
If Not System.IO.Directory.Exists(ppath) Then
MsgBox("Pfad für Printer-Konfigurationen fehlt - bitte erstellen:" + ppath)
Exit Sub
End If
Dim PName As String
PName = InputBox("Name für die Drucker-Konfiguration:")
If PName = "" Then Exit Sub
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(ppath + "\" + PName + ".cfg", True)
file.WriteLine(Me.cbboxprinter.Text)
Dim dt As New DataTable
dt = C1Auswertungen.DataSource
For Each row In dt.Rows
file.WriteLine(row("Auswertungnr").ToString + ";" + row("Drucker").ToString + ";" + row("Papierschacht").ToString + ";" + row("Kopien").ToString)
Next
file.Close()
evh.Fire_Refresh_PrinterConfig()
End Sub
Shared Sub Chenge_Profile(ByVal Filename As String)
Dim i As Integer = 0
Dim line As String
Dim readFile As System.IO.TextReader = New StreamReader(Filename)
While True
line = readFile.ReadLine()
i = i + 1
If line Is Nothing Then
Exit While
Else
If i = 1 Then
Globals.defaultprinter = line
Else
Update_Printerdata(line)
End If
End If
End While
readFile.Close()
readFile = Nothing
End Sub
Shared Sub Update_Printerdata(ByVal line As String)
Try
Dim splitter() As String
splitter = line.Split(";")
Dim db As New clsDB
db.Get_Tabledata("Auswertung", "Where auswertungnr=" + splitter(0))
db.dsDaten.Tables(0).Rows(0).Item("Drucker") = splitter(1)
db.dsDaten.Tables(0).Rows(0).Item("Papierschacht") = splitter(2)
db.dsDaten.Tables(0).Rows(0).Item("Kopien") = splitter(3)
db.Update_Data()
db.Dispose()
Catch
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
End Sub
End Class End Class

2
DPM2016/Sysadmin/frmStammdaten.resx
View File

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

14
DPM2016/Sysadmin/frmStammdaten.vb
View File

@@ -9,7 +9,11 @@ Public Class frmStammdaten
End Sub End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
refresh_Details
End Sub
Sub Refresh_Details()
Try Try
If Me.TreeView1.SelectedNode.Tag <> "" Then If Me.TreeView1.SelectedNode.Tag <> "" Then
Dim splitter() Dim splitter()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";") splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
@@ -32,11 +36,13 @@ Public Class frmStammdaten
Next Next
End If End If
Me.ClsStammdaten_flat1.Visible = False Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_Bez1.Visible = True Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
Exit Sub Exit Sub
End If End If
Me.ClsStammdaten_flat1.Check_Changes()
Me.ClsStammdaten_Bez1.Visible = False Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = True Me.ClsStammdaten_flat1.Visible = True
Me.ClsStammdaten_flat1.Dock = DockStyle.Fill Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
@@ -147,4 +153,12 @@ Public Class frmStammdaten
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
Me.Close() Me.Close()
End Sub End Sub
Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
Refresh_Details()
End Sub
Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
End Sub
End Class End Class

11
DPM2016/Utils/Globals.vb
View File

@@ -1,5 +1,6 @@
Imports System.Math Imports System.Math
Module Globals Module Globals
Public RGCollection As New Collection
Public Spaltendaten As New DataTable Public Spaltendaten As New DataTable
Public SQLStatements As New DataTable Public SQLStatements As New DataTable
Public ActUser As Integer = 1 Public ActUser As Integer = 1
@@ -8,11 +9,17 @@ Module Globals
Public Mandant As Integer = 1 Public Mandant As Integer = 1
Public Auswertungsverzeicnis As String = "\Default" Public Auswertungsverzeicnis As String = "\Default"
Public Version As String = "1.0.1.1801" Public Version As String = "1.0.1.1801"
Public Versionastaum As String = "31.01.2018" Public Versionastaum As String = "13.05.2018"
Public LogedIn As Boolean = False Public LogedIn As Boolean = False
Public FakturaNr As Integer = 0
Public DefaultPrinter As String = ""
Public Funktionsstufe As Integer = 0
Public encryptkey As String = "StefanHutterUnternehmensberatung2018" Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
Public encrypted As Boolean = False Public encrypted As Boolean = False
Public SecurityDaten As New DataSet
Public Mainweindow As Windows.Forms.Form
Public Databasename As String
Public Function Round5(ByVal inp As String) As String Public Function Round5(ByVal inp As String) As String
Dim Rappen5 As Double Dim Rappen5 As Double
Rappen5 = CDbl(inp) Rappen5 = CDbl(inp)

4
DPM2016/app.config
View File

@@ -32,13 +32,13 @@
<value>2</value> <value>2</value>
</setting> </setting>
<setting name="TempPath" serializeAs="String"> <setting name="TempPath" serializeAs="String">
<value>h:\dpm</value> <value>h:\dpm\dmp1\dmp2</value>
</setting> </setting>
<setting name="DocArchivPath" serializeAs="String"> <setting name="DocArchivPath" serializeAs="String">
<value>h:\dpm\docarchiv</value> <value>h:\dpm\docarchiv</value>
</setting> </setting>
<setting name="ConnectionString" serializeAs="String"> <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> <value>data source=shu00;initial catalog=dpm2018_1;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
</setting> </setting>
</DPM2016.My.MySettings> </DPM2016.My.MySettings>
</userSettings> </userSettings>

BIN
DPM2016/bin/Debug/FastReport.Bars.dll
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/FastReport.Editor.dll
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

@@ -6,6 +6,22 @@ _FRReporting
</name> </name>
</assembly> </assembly>
<members> <members>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.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="T:_FRReporting.DB.clsAuswertung"> <member name="T:_FRReporting.DB.clsAuswertung">
<summary> <summary>
Purpose: Data Access class for the table 'Auswertung'. Purpose: Data Access class for the table 'Auswertung'.
@@ -1307,21 +1323,5 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
<returns></returns> <returns></returns>
<remarks></remarks> <remarks></remarks>
</member> </member>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members> </members>
</doc> </doc>

165
DPM2016/frmMain.Designer.vb generated
View File

@@ -28,33 +28,37 @@ Partial Class frmMain
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AbmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = 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.PatientToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FirmenToolStripMenuItem = 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.FinanzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RechnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.RechnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MahnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MahnungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZahlungsdateiVerarbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZahlungsdateiVerarbeitenToolStripMenuItem = 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.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.SecurityObjekteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.cbboxPrinterConfig = New System.Windows.Forms.ToolStripComboBox()
Me.DruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SepaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SepaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuMain.SuspendLayout() Me.mnuMain.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'mnuMain 'mnuMain
' '
Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.FinanzenToolStripMenuItem, Me.ToolStripMenuItem1, Me.DruckerToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.SepaToolStripMenuItem}) Me.mnuMain.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.PatientToolStripMenuItem, Me.FirmenToolStripMenuItem, Me.FinanzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.StammdatenToolStripMenuItem, Me.ToolStripMenuItem1, Me.cbboxPrinterConfig, Me.SuchenToolStripMenuItem, Me.DruckerToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.SepaToolStripMenuItem})
Me.mnuMain.Location = New System.Drawing.Point(0, 0) Me.mnuMain.Location = New System.Drawing.Point(0, 0)
Me.mnuMain.Name = "mnuMain" Me.mnuMain.Name = "mnuMain"
Me.mnuMain.Size = New System.Drawing.Size(1325, 24) Me.mnuMain.Size = New System.Drawing.Size(1325, 27)
Me.mnuMain.TabIndex = 0 Me.mnuMain.TabIndex = 0
Me.mnuMain.Text = "MenuStrip1" Me.mnuMain.Text = "MenuStrip1"
' '
@@ -62,7 +66,7 @@ Partial Class frmMain
' '
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.AbmeldenToolStripMenuItem, Me.ToolStripMenuItem3}) Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.AbmeldenToolStripMenuItem, Me.ToolStripMenuItem3})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem" Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20) Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 23)
Me.DateiToolStripMenuItem.Text = "&Datei" Me.DateiToolStripMenuItem.Text = "&Datei"
' '
'BeendenToolStripMenuItem 'BeendenToolStripMenuItem
@@ -83,69 +87,23 @@ Partial Class frmMain
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(183, 22) Me.ToolStripMenuItem3.Size = New System.Drawing.Size(183, 22)
Me.ToolStripMenuItem3.Text = "Datenbank wechseln" Me.ToolStripMenuItem3.Text = "Datenbank wechseln"
' '
'StammdatenToolStripMenuItem
'
Me.StammdatenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpaltentitelToolStripMenuItem, Me.StammdatenToolStripMenuItem1, Me.AuswertungenToolStripMenuItem1})
Me.StammdatenToolStripMenuItem.Name = "StammdatenToolStripMenuItem"
Me.StammdatenToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.StammdatenToolStripMenuItem.Text = "&Stammdaten"
'
'SpaltentitelToolStripMenuItem
'
Me.SpaltentitelToolStripMenuItem.Name = "SpaltentitelToolStripMenuItem"
Me.SpaltentitelToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
Me.SpaltentitelToolStripMenuItem.Text = "&Spaltentitel"
'
'StammdatenToolStripMenuItem1
'
Me.StammdatenToolStripMenuItem1.Name = "StammdatenToolStripMenuItem1"
Me.StammdatenToolStripMenuItem1.Size = New System.Drawing.Size(151, 22)
Me.StammdatenToolStripMenuItem1.Text = "Stammdaten"
'
'AuswertungenToolStripMenuItem1
'
Me.AuswertungenToolStripMenuItem1.Name = "AuswertungenToolStripMenuItem1"
Me.AuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(151, 22)
Me.AuswertungenToolStripMenuItem1.Text = "&Auswertungen"
'
'PatientToolStripMenuItem 'PatientToolStripMenuItem
' '
Me.PatientToolStripMenuItem.Name = "PatientToolStripMenuItem" Me.PatientToolStripMenuItem.Name = "PatientToolStripMenuItem"
Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(56, 20) Me.PatientToolStripMenuItem.Size = New System.Drawing.Size(56, 23)
Me.PatientToolStripMenuItem.Text = "Patient" Me.PatientToolStripMenuItem.Text = "Patient"
' '
'FirmenToolStripMenuItem 'FirmenToolStripMenuItem
' '
Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem" Me.FirmenToolStripMenuItem.Name = "FirmenToolStripMenuItem"
Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 20) Me.FirmenToolStripMenuItem.Size = New System.Drawing.Size(56, 23)
Me.FirmenToolStripMenuItem.Text = "&Firmen" Me.FirmenToolStripMenuItem.Text = "&Firmen"
' '
'AuswertungenToolStripMenuItem
'
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"
'
'PruefzifferToolStripMenuItem
'
Me.PruefzifferToolStripMenuItem.Name = "PruefzifferToolStripMenuItem"
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 'FinanzenToolStripMenuItem
' '
Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.MahnungenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ZahlungsdateiVerarbeitenToolStripMenuItem}) Me.FinanzenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RechnungenToolStripMenuItem, Me.MahnungenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ZahlungsdateiVerarbeitenToolStripMenuItem})
Me.FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem" Me.FinanzenToolStripMenuItem.Name = "FinanzenToolStripMenuItem"
Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(66, 20) Me.FinanzenToolStripMenuItem.Size = New System.Drawing.Size(66, 23)
Me.FinanzenToolStripMenuItem.Text = "Finanzen" Me.FinanzenToolStripMenuItem.Text = "Finanzen"
' '
'RechnungenToolStripMenuItem 'RechnungenToolStripMenuItem
@@ -171,35 +129,112 @@ Partial Class frmMain
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Text = "Zahlungsdatei verarbeiten" Me.ZahlungsdateiVerarbeitenToolStripMenuItem.Text = "Zahlungsdatei verarbeiten"
' '
'AuswertungenToolStripMenuItem
'
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, 23)
Me.AuswertungenToolStripMenuItem.Text = "Auswertungen"
'
'PruefzifferToolStripMenuItem
'
Me.PruefzifferToolStripMenuItem.Name = "PruefzifferToolStripMenuItem"
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
'
'StammdatenToolStripMenuItem
'
Me.StammdatenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpaltentitelToolStripMenuItem, Me.StammdatenToolStripMenuItem1, Me.AuswertungenToolStripMenuItem1, Me.SecurityObjekteToolStripMenuItem})
Me.StammdatenToolStripMenuItem.Name = "StammdatenToolStripMenuItem"
Me.StammdatenToolStripMenuItem.Size = New System.Drawing.Size(90, 23)
Me.StammdatenToolStripMenuItem.Text = "&Einstellungen"
'
'SpaltentitelToolStripMenuItem
'
Me.SpaltentitelToolStripMenuItem.Name = "SpaltentitelToolStripMenuItem"
Me.SpaltentitelToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.SpaltentitelToolStripMenuItem.Text = "&Spaltentitel"
'
'StammdatenToolStripMenuItem1
'
Me.StammdatenToolStripMenuItem1.Name = "StammdatenToolStripMenuItem1"
Me.StammdatenToolStripMenuItem1.Size = New System.Drawing.Size(196, 22)
Me.StammdatenToolStripMenuItem1.Text = "Optinen / Stammdaten"
'
'AuswertungenToolStripMenuItem1
'
Me.AuswertungenToolStripMenuItem1.Name = "AuswertungenToolStripMenuItem1"
Me.AuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(196, 22)
Me.AuswertungenToolStripMenuItem1.Text = "&Formulare"
'
'SecurityObjekteToolStripMenuItem
'
Me.SecurityObjekteToolStripMenuItem.Name = "SecurityObjekteToolStripMenuItem"
Me.SecurityObjekteToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.SecurityObjekteToolStripMenuItem.Text = "Security-Objekte"
'
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(12, 20) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(12, 23)
'
'cbboxPrinterConfig
'
Me.cbboxPrinterConfig.Name = "cbboxPrinterConfig"
Me.cbboxPrinterConfig.Size = New System.Drawing.Size(150, 23)
' '
'DruckerToolStripMenuItem 'DruckerToolStripMenuItem
' '
Me.DruckerToolStripMenuItem.Name = "DruckerToolStripMenuItem" Me.DruckerToolStripMenuItem.Name = "DruckerToolStripMenuItem"
Me.DruckerToolStripMenuItem.Size = New System.Drawing.Size(60, 20) Me.DruckerToolStripMenuItem.Size = New System.Drawing.Size(60, 23)
Me.DruckerToolStripMenuItem.Text = "Drucker" Me.DruckerToolStripMenuItem.Text = "Drucker"
Me.DruckerToolStripMenuItem.Visible = False
' '
'EncryptToolStripMenuItem 'EncryptToolStripMenuItem
' '
Me.EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem" Me.EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem"
Me.EncryptToolStripMenuItem.Size = New System.Drawing.Size(59, 20) Me.EncryptToolStripMenuItem.Size = New System.Drawing.Size(59, 23)
Me.EncryptToolStripMenuItem.Text = "Encrypt" Me.EncryptToolStripMenuItem.Text = "Encrypt"
Me.EncryptToolStripMenuItem.Visible = False Me.EncryptToolStripMenuItem.Visible = False
' '
'SepaToolStripMenuItem 'SepaToolStripMenuItem
' '
Me.SepaToolStripMenuItem.Name = "SepaToolStripMenuItem" Me.SepaToolStripMenuItem.Name = "SepaToolStripMenuItem"
Me.SepaToolStripMenuItem.Size = New System.Drawing.Size(44, 20) Me.SepaToolStripMenuItem.Size = New System.Drawing.Size(44, 23)
Me.SepaToolStripMenuItem.Text = "Sepa" Me.SepaToolStripMenuItem.Text = "Sepa"
Me.SepaToolStripMenuItem.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.SkyBlue
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(1116, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 24)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Label1"
'
'SuchenToolStripMenuItem
'
Me.SuchenToolStripMenuItem.Name = "SuchenToolStripMenuItem"
Me.SuchenToolStripMenuItem.Size = New System.Drawing.Size(58, 23)
Me.SuchenToolStripMenuItem.Text = "Suchen"
' '
'frmMain 'frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1325, 793) Me.ClientSize = New System.Drawing.Size(1325, 793)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.mnuMain) Me.Controls.Add(Me.mnuMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.IsMdiContainer = True Me.IsMdiContainer = True
@@ -235,4 +270,8 @@ Partial Class frmMain
Friend WithEvents EncryptToolStripMenuItem As ToolStripMenuItem Friend WithEvents EncryptToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents SepaToolStripMenuItem As ToolStripMenuItem Friend WithEvents SepaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbboxPrinterConfig As ToolStripComboBox
Friend WithEvents SecurityObjekteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label1 As Label
Friend WithEvents SuchenToolStripMenuItem As ToolStripMenuItem
End Class End Class

149
DPM2016/frmMain.vb
View File

@@ -1,6 +1,9 @@
Public Class frmMain Imports System.IO
Public Class frmMain
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
'Dim sec As New MySecurity
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close() Me.Close()
@@ -26,6 +29,7 @@ Public Class frmMain
End Sub End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Globals.Mainweindow = Me
If check_db_connection() Then If check_db_connection() Then
@@ -40,9 +44,65 @@ Public Class frmMain
Dim f As New frmLogin Dim f As New frmLogin
f.ShowDialog() f.ShowDialog()
If ActUser = -1 Then Me.Close() If ActUser = -1 Then Me.Close()
PatientToolStripMenuItem_Click(sender, e)
End If End If
End If End If
Me.Label1.Text = Globals.Databasename
Me.Label1.Left = Me.Width - 20 - Me.Label1.Width
Me.Text = "DPM 2018 - " + Globals.Databasename
Refresh_Printerconfig()
'sec.Set_Form_Security(Me)
Me.FinanzenToolStripMenuItem.Visible = True
Me.AuswertungenToolStripMenuItem.Visible = True
Me.StammdatenToolStripMenuItem.Visible = True
Select Case Globals.Funktionsstufe
Case 2
Me.FinanzenToolStripMenuItem.Visible = False
Me.AuswertungenToolStripMenuItem.Visible = False
Me.StammdatenToolStripMenuItem.Visible = False
End Select
Check_Tempdir
End Sub
Sub Check_Tempdir()
Dim splitter() As String
splitter = My.Settings.TempPath.Split("\")
Dim root As String
root = splitter(0) + "\" + splitter(1)
If Not System.IO.Directory.Exists(root) Then
System.IO.Directory.CreateDirectory(root)
End If
If splitter.Length > 2 Then
For i = 2 To splitter.Length - 1
root = root + "\" + splitter(i)
If Not System.IO.Directory.Exists(root) Then
System.IO.Directory.CreateDirectory(root)
End If
Next
End If
For i = 2 To splitter.Length - 2
Next
If Not System.IO.Directory.Exists(My.Settings.TempPath) Then
End If
End Sub
Sub Refresh_Printerconfig()
Me.cbboxPrinterConfig.Items.Clear()
Dim ppath As String
ppath = Application.StartupPath + "\" + Globals.Auswertungsverzeicnis + "\PrinterConfig"
Dim di As DirectoryInfo = New DirectoryInfo(ppath)
Me.cbboxPrinterConfig.Items.Clear()
Me.cbboxPrinterConfig.Items.Add("")
For Each fi In di.GetFiles()
Me.cbboxPrinterConfig.Items.Add(fi.Name)
Next
End Sub End Sub
Function check_db_connection() As Boolean Function check_db_connection() As Boolean
@@ -168,6 +228,16 @@ Public Class frmMain
Dim f As New frmLogin Dim f As New frmLogin
f.ShowDialog() f.ShowDialog()
End While End While
Me.FinanzenToolStripMenuItem.Visible = True
Me.AuswertungenToolStripMenuItem.Visible = True
Me.StammdatenToolStripMenuItem.Visible = True
Select Case Globals.Funktionsstufe
Case 2
Me.FinanzenToolStripMenuItem.Visible = False
Me.AuswertungenToolStripMenuItem.Visible = False
Me.StammdatenToolStripMenuItem.Visible = False
End Select
@@ -200,4 +270,79 @@ Public Class frmMain
Private Sub SepaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SepaToolStripMenuItem.Click Private Sub SepaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SepaToolStripMenuItem.Click
End Sub End Sub
Private Sub cbboxPrinterConfig_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxPrinterConfig.SelectedIndexChanged
If MsgBox("Druckereinstellungen anpassen?", vbYesNo + vbQuestion) = vbYes Then
Dim ppath As String
ppath = Application.StartupPath + "\" + Globals.Auswertungsverzeicnis + "\PrinterConfig\" + Me.cbboxPrinterConfig.Text
Dim f As New frmAuswertung
frmAuswertungen.Chenge_Profile(ppath)
End If
End Sub
Private Sub evh_Refresh_PrinterConfig() Handles evh.Refresh_PrinterConfig
Refresh_Printerconfig()
End Sub
Private Sub SecurityObjekgeToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub MahnungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MahnungenToolStripMenuItem.Click
End Sub
Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width - 20 - Me.Label1.Width
End Sub
Private Sub SuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchenToolStripMenuItem.Click
Dim f As New frmSuche
f.MdiParent = Me
f.Show()
End Sub
'Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
' Dim formselector As New frmFormSelector
' formselector.ListForms.Items.Clear()
' formselector.ListForms.Items.Add(Me.Name)
' For Each x As Form In Me.MdiChildren
' formselector.ListForms.Items.Add(x.Name)
' Next
' formselector.ShowDialog()
' For Each it As Object In formselector.ListForms.SelectedItems
' If it = Me.Name Then
' Select Case formselector.DialogResult
' Case Windows.Forms.DialogResult.Retry
' sec.Check_Obsoloet(Me)
' Case Windows.Forms.DialogResult.OK
' sec.List_Form_Controls(Me)
' Case Windows.Forms.DialogResult.Ignore
' sec.Delete_Obsoloet(Me)
' End Select
' Else
' For Each x As Form In Me.MdiChildren
' If x.Name = it Then
' Select Case formselector.DialogResult
' Case Windows.Forms.DialogResult.Retry
' sec.Check_Obsoloet(x)
' Case Windows.Forms.DialogResult.OK
' sec.List_Form_Controls(x)
' Case Windows.Forms.DialogResult.Ignore
' sec.Delete_Obsoloet(x)
' End Select
' End If
' Next
' End If
' Next
' Exit Sub
'End Sub
End Class End Class

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

@@ -1 +1 @@
5a6f41365c32419caba70dfcf71a6d6eaa80359d 64c5099c96a810c8f544c19925ae2126164beae2

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.clsStammdaten_flat.resources
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

@@ -1,3 +1,36 @@
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\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\bin\Debug\Aga.Controls.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.dll
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.C1TrueDBGrid.2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Charts.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.dll
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\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\Aga.Controls.pdb
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Data.2.xml
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\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.frmAuswertung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmreport.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Behandlung.resources 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.Benhandungdetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetail.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLeistungDetail.resources
@@ -24,53 +57,33 @@ E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_Bez.res
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.clsStammdaten_flat.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.Resources.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSysadminTableSelector.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.frmTarifDetail.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.Cache E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDBConnection.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1.mdf E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmDentotarDetails.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Database1_log.ldf E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFortschritt.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Aga.Controls.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLogin.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.DotNetBar.Schedule.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\DevComponents.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\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\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.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.frmSplash.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.SplashForm.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.frmZahlung.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmLogin.resources E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.GenerateResource.Cache
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.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.licenses
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.exe 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.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2018.pdb 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\obj\Debug\DPM2016.frmKalender.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\TCDev.SEPA.dll E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Compression.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Pdf.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Compression.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.Pdf.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocIO.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocToPDFConverter.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.OfficeChart.Base.dll
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocIO.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.DocToPDFConverter.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Syncfusion.OfficeChart.Base.xml
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbproj.CopyComplete
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmFormSelector.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.Mahnungen.resources
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\DPM\DPM2016\DPM2016\obj\Debug\DPM2016.frmSuche.resources

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

BIN
Dentotar/Dentotar.xlsx
View File

Binary file not shown.

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

Binary file not shown.

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

Binary file not shown.

32
_FRReporting/bin/Debug/_FRReporting.xml
View File

@@ -6,6 +6,22 @@ _FRReporting
</name> </name>
</assembly> </assembly>
<members> <members>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.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="T:_FRReporting.DB.clsAuswertung"> <member name="T:_FRReporting.DB.clsAuswertung">
<summary> <summary>
Purpose: Data Access class for the table 'Auswertung'. Purpose: Data Access class for the table 'Auswertung'.
@@ -1307,21 +1323,5 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
<returns></returns> <returns></returns>
<remarks></remarks> <remarks></remarks>
</member> </member>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members> </members>
</doc> </doc>

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

Binary file not shown.

BIN
_FRReporting/obj/Debug/_FRReporting.dll
View File

Binary file not shown.

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

Binary file not shown.

2
_FRReporting/obj/Debug/_FRReporting.vbproj.FileListAbsolute.txt
View File

@@ -43,3 +43,5 @@ E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.dl
E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml E:\Software-Projekte\DPM\DPM2016\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.dll E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.dll
E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.pdb E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.pdb
E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\DPM\DPM2016\_FRReporting\obj\Debug\_FRReporting.vbproj.CopyComplete

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

Binary file not shown.

32
_FRReporting/obj/Debug/_FRReporting.xml
View File

@@ -6,6 +6,22 @@ _FRReporting
</name> </name>
</assembly> </assembly>
<members> <members>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.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="T:_FRReporting.DB.clsAuswertung"> <member name="T:_FRReporting.DB.clsAuswertung">
<summary> <summary>
Purpose: Data Access class for the table 'Auswertung'. Purpose: Data Access class for the table 'Auswertung'.
@@ -1307,21 +1323,5 @@ Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
<returns></returns> <returns></returns>
<remarks></remarks> <remarks></remarks>
</member> </member>
<member name="T:_FRReporting.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:_FRReporting.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members> </members>
</doc> </doc>

BIN
_FRReporting/obj/Debug/_frreporting.dll.licenses
View File

Binary file not shown.