This commit is contained in:
2018-09-20 21:50:15 +02:00
parent a98929c82a
commit b593e1f082
161 changed files with 2183 additions and 330736 deletions

Binary file not shown.

View File

@@ -5,8 +5,6 @@ VisualStudioVersion = 15.0.26228.4
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CryptoEditor", "CryptoEditor\CryptoEditor.vbproj", "{966835BD-32B9-468C-8A54-E5FB934FC910}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CryptoEditor", "CryptoEditor\CryptoEditor.vbproj", "{966835BD-32B9-468C-8A54-E5FB934FC910}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPMLizenzmanagement", "DPMLizenzmanagement\DPMLizenzmanagement\DPMLizenzmanagement.vbproj", "{D59BF43B-C82B-4D40-84B0-95A556371D99}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPMLizenzmanagement", "DPMLizenzmanagement\DPMLizenzmanagement\DPMLizenzmanagement.vbproj", "{D59BF43B-C82B-4D40-84B0-95A556371D99}"
@@ -23,10 +21,6 @@ Global
{C78BA301-98A0-41B2-B1C9-553567634286}.Debug|Any CPU.Build.0 = Debug|Any CPU {C78BA301-98A0-41B2-B1C9-553567634286}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.ActiveCfg = Release|Any CPU {C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.Build.0 = Release|Any CPU {C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.Build.0 = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.Build.0 = Release|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.Build.0 = Debug|Any CPU {966835BD-32B9-468C-8A54-E5FB934FC910}.Debug|Any CPU.Build.0 = Debug|Any CPU
{966835BD-32B9-468C-8A54-E5FB934FC910}.Release|Any CPU.ActiveCfg = Release|Any CPU {966835BD-32B9-468C-8A54-E5FB934FC910}.Release|Any CPU.ActiveCfg = Release|Any CPU

View File

@@ -40,7 +40,12 @@ Partial Class Behandlung
Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator()
Me.AlsPdfToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AlsMailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KopieErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDruckerToolStripMenuItem = 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.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
@@ -58,19 +63,17 @@ Partial Class Behandlung
Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl() Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem() Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton() Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip() Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail() Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.Leistungen1 = New DPM2016.Leistungen() Me.Leistungen1 = New DPM2016.Leistungen()
Me.tsbtndelete.SuspendLayout() Me.tsbtndelete.SuspendLayout()
@@ -79,10 +82,10 @@ Partial Class Behandlung
Me.ctxmenubehandlung.SuspendLayout() Me.ctxmenubehandlung.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout() Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.tsbtnbehandlungdelete.SuspendLayout() Me.tsbtnbehandlungdelete.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@@ -167,7 +170,7 @@ Partial Class Behandlung
' '
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.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(212, 248) Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 226)
' '
'NeueBehandlungToolStripMenuItem1 'NeueBehandlungToolStripMenuItem1
' '
@@ -205,7 +208,7 @@ Partial Class Behandlung
' '
'SofortRechnungDruckenToolStripMenuItem 'SofortRechnungDruckenToolStripMenuItem
' '
Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem}) Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem, Me.ToolStripMenuItem6, Me.AlsPdfToolStripMenuItem1, Me.AlsMailToolStripMenuItem})
Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem" Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken" Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
@@ -213,15 +216,32 @@ Partial Class Behandlung
'VorschauToolStripMenuItem 'VorschauToolStripMenuItem
' '
Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem" Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
Me.VorschauToolStripMenuItem.Text = "Vorschau" Me.VorschauToolStripMenuItem.Text = "Vorschau"
' '
'EntwurfToolStripMenuItem 'EntwurfToolStripMenuItem
' '
Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem" Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
Me.EntwurfToolStripMenuItem.Text = "Entwurf" Me.EntwurfToolStripMenuItem.Text = "Entwurf"
' '
'ToolStripMenuItem6
'
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(199, 6)
'
'AlsPdfToolStripMenuItem1
'
Me.AlsPdfToolStripMenuItem1.Name = "AlsPdfToolStripMenuItem1"
Me.AlsPdfToolStripMenuItem1.Size = New System.Drawing.Size(202, 22)
Me.AlsPdfToolStripMenuItem1.Text = "als PDF"
'
'AlsMailToolStripMenuItem
'
Me.AlsMailToolStripMenuItem.Name = "AlsMailToolStripMenuItem"
Me.AlsMailToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
Me.AlsMailToolStripMenuItem.Text = "als PDF an Outlook-Mail"
'
'KopieErstellenToolStripMenuItem 'KopieErstellenToolStripMenuItem
' '
Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem}) Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem})
@@ -229,6 +249,18 @@ Partial Class Behandlung
Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22) Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen" Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
' '
'AlsPDFToolStripMenuItem
'
Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem"
Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AlsPDFToolStripMenuItem.Text = "als PDF"
'
'ÜberDruckerToolStripMenuItem
'
Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem"
Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker"
'
'ToolStripMenuItem3 'ToolStripMenuItem3
' '
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
@@ -352,6 +384,31 @@ Partial Class Behandlung
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
Me.SuperTabControl1.Text = "Rechnungstext" Me.SuperTabControl1.Text = "Rechnungstext"
' '
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1065, 788)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1062, 788)
Me.Panel2.TabIndex = 9
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
Me.STBehandlung.GlobalItem = False
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel2 'SuperTabControlPanel2
' '
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1) Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
@@ -378,31 +435,6 @@ Partial Class Behandlung
Me.STLeistung.Name = "STLeistung" Me.STLeistung.Name = "STLeistung"
Me.STLeistung.Text = "Leistungen" Me.STLeistung.Text = "Leistungen"
' '
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1065, 788)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Behandungdetail1)
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1062, 788)
Me.Panel2.TabIndex = 9
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
Me.STBehandlung.GlobalItem = False
Me.STBehandlung.Name = "STBehandlung"
Me.STBehandlung.Text = "Behandlung"
'
'SuperTabControlPanel3 'SuperTabControlPanel3
' '
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -444,18 +476,6 @@ 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)
' '
'AlsPDFToolStripMenuItem
'
Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem"
Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AlsPDFToolStripMenuItem.Text = "als PDF"
'
'ÜberDruckerToolStripMenuItem
'
Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem"
Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker"
'
'Behandungdetail1 'Behandungdetail1
' '
Me.Behandungdetail1.Behandlungsnr = 0 Me.Behandungdetail1.Behandlungsnr = 0
@@ -496,10 +516,10 @@ Partial Class Behandlung
Me.ctxmenubehandlung.ResumeLayout(False) Me.ctxmenubehandlung.ResumeLayout(False)
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False) Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.tsbtnbehandlungdelete.ResumeLayout(False) Me.tsbtnbehandlungdelete.ResumeLayout(False)
Me.tsbtnbehandlungdelete.PerformLayout() Me.tsbtnbehandlungdelete.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
@@ -556,4 +576,7 @@ Partial Class Behandlung
Friend WithEvents RechnungKVEntwurfToolStripMenuItem As ToolStripMenuItem Friend WithEvents RechnungKVEntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AlsPDFToolStripMenuItem As ToolStripMenuItem Friend WithEvents AlsPDFToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ÜberDruckerToolStripMenuItem As ToolStripMenuItem Friend WithEvents ÜberDruckerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator
Friend WithEvents AlsPdfToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AlsMailToolStripMenuItem As ToolStripMenuItem
End Class End Class

View File

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

View File

@@ -282,8 +282,10 @@ Public Class Behandlung
End If End If
Globals.OnLoad = True Globals.OnLoad = True
If Me.treebehandlungen.SelectedNode.Tag > 0 Then If Me.treebehandlungen.SelectedNode.Tag > 0 Then
Me.Behandungdetail1.SuspendLayout()
Me.Behandungdetail1.Patientnr = Me.PatientNr Me.Behandungdetail1.Patientnr = Me.PatientNr
Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungnr = Me.treebehandlungen.SelectedNode.Tag Me.Leistungen1.Behandlungnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungsstatus = Behandungdetail1.Behandlungsstatus Me.Leistungen1.Behandlungsstatus = Behandungdetail1.Behandlungsstatus
Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar" Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
@@ -293,6 +295,8 @@ Public Class Behandlung
End Try End Try
enable_disable_tabs(True) enable_disable_tabs(True)
refresh_tabs() refresh_tabs()
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.ResumeLayout()
Else Else
enable_disable_tabs(False) enable_disable_tabs(False)
End If End If
@@ -632,6 +636,11 @@ Public Class Behandlung
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)
If Globals.License.DMS = True Then
Dim dok As New clsDok
dok.delete_doks(Me.treebehandlungen.SelectedNode.Tag)
dok = Nothing
End If
End If End If
Case 2 Case 2
MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation) MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
@@ -754,11 +763,11 @@ Public Class Behandlung
End Sub End Sub
Private Sub evh_Behandlung_Zurücksetzen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Zurücksetzen Private Sub evh_Behandlung_Zurücksetzen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Zurücksetzen
Behandlung_Zurücksetzen(behandlungsnummer) If Me.PatientNr = patient Then Behandlung_Zurücksetzen(behandlungsnummer)
End Sub End Sub
Private Sub evh_Behandlung_Abschliessen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Abschliessen Private Sub evh_Behandlung_Abschliessen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Abschliessen
Behandlung_Abschliessen(behandlungsnummer) If Me.PatientNr = patient Then Behandlung_Abschliessen(behandlungsnummer)
End Sub End Sub
Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs) Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs)
@@ -851,7 +860,8 @@ Public Class Behandlung
End Sub End Sub
Private Sub SofortRechnungDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SofortRechnungDruckenToolStripMenuItem.Click Private Sub SofortRechnungDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SofortRechnungDruckenToolStripMenuItem.Click
Behandungdetail1.ToolStripDropDownButton1_Click(sender, e) Behandungdetail1.Sofortrechung_normal()
' Behandungdetail1.ToolStripDropDownButton1_Click(sender, e)
End Sub End Sub
Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
@@ -871,7 +881,7 @@ Public Class Behandlung
End Sub End Sub
Private Sub treebehandlungen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles treebehandlungen.AfterNodeSelect Private Sub treebehandlungen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles treebehandlungen.AfterNodeSelect
Me.treebehandlungen_Click(sender, e) ' Me.treebehandlungen_Click(sender, e)
End Sub End Sub
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Handles evh.Refresh_Behandlung Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Handles evh.Refresh_Behandlung
@@ -893,6 +903,7 @@ Public Class Behandlung
End Sub End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
Try Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Dim s As String Dim s As String
@@ -911,6 +922,14 @@ Public Class Behandlung
End Try End Try
End Sub End Sub
Private Sub AlsPdfToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AlsPdfToolStripMenuItem1.Click
Behandungdetail1.Sofortrechnung_als_pdf()
End Sub
Private Sub AlsMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsMailToolStripMenuItem.Click
Behandungdetail1.Sofortrechnung_als_pdf(True)
End Sub

View File

@@ -24,9 +24,7 @@ Partial Class Benhandungdetail
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()
Me.cbboxNRESTyp = New DPM2016.MyCombobox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.grpZusammenfassugn = New System.Windows.Forms.GroupBox() Me.grpZusammenfassugn = New System.Windows.Forms.GroupBox()
Me.txtcTotal = New System.Windows.Forms.Label() Me.txtcTotal = New System.Windows.Forms.Label()
@@ -44,8 +42,6 @@ Partial Class Benhandungdetail
Me.GrpGaramt = New System.Windows.Forms.GroupBox() Me.GrpGaramt = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button() 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.cbboxNrZuweiser = New DPM2016.MyCombobox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.btnDeleteKogudatum = New System.Windows.Forms.Button() Me.btnDeleteKogudatum = New System.Windows.Forms.Button()
Me.btnDeleteUnfalldatum = New System.Windows.Forms.Button() Me.btnDeleteUnfalldatum = New System.Windows.Forms.Button()
@@ -56,10 +52,8 @@ Partial Class Benhandungdetail
Me.DDTUnfalldatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput() Me.DDTUnfalldatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.lblUnfalldatum = New System.Windows.Forms.Label() Me.lblUnfalldatum = New System.Windows.Forms.Label()
Me.lblFallNummer = New System.Windows.Forms.Label() Me.lblFallNummer = New System.Windows.Forms.Label()
Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.lblAnsprechpartner = New System.Windows.Forms.Label() Me.lblAnsprechpartner = New System.Windows.Forms.Label()
Me.txtFallnummer = New System.Windows.Forms.TextBox() Me.txtFallnummer = New System.Windows.Forms.TextBox()
Me.cbboxNrGarant = New DPM2016.MyCombobox()
Me.lblgarant = New System.Windows.Forms.Label() Me.lblgarant = New System.Windows.Forms.Label()
Me.rbPrivatPersonen = New System.Windows.Forms.RadioButton() Me.rbPrivatPersonen = New System.Windows.Forms.RadioButton()
Me.rbkk = New System.Windows.Forms.RadioButton() Me.rbkk = New System.Windows.Forms.RadioButton()
@@ -94,12 +88,8 @@ Partial Class Benhandungdetail
Me.chkMitdatum = New System.Windows.Forms.CheckBox() Me.chkMitdatum = New System.Windows.Forms.CheckBox()
Me.chkAndrucken_Taxpunkte = New System.Windows.Forms.CheckBox() Me.chkAndrucken_Taxpunkte = New System.Windows.Forms.CheckBox()
Me.chkRabattGesamt = New System.Windows.Forms.CheckBox() Me.chkRabattGesamt = New System.Windows.Forms.CheckBox()
Me.cbboxNrtaxpunkt = New DPM2016.MyCombobox()
Me.cbboxNrAnsatz = New DPM2016.MyCombobox()
Me.lblAnsatz = New System.Windows.Forms.Label() Me.lblAnsatz = New System.Windows.Forms.Label()
Me.cbboxNrAbrechnungstyp = New DPM2016.MyCombobox()
Me.lblAbrechnungstyp = New System.Windows.Forms.Label() Me.lblAbrechnungstyp = New System.Windows.Forms.Label()
Me.cbboxNRRGtyp = New DPM2016.MyCombobox()
Me.lblRechnungstyp = New System.Windows.Forms.Label() Me.lblRechnungstyp = New System.Windows.Forms.Label()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton() Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
@@ -109,7 +99,6 @@ Partial Class Benhandungdetail
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnGarantAnzeigen = New System.Windows.Forms.ToolStripButton() 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.txtRechnungsbemerkung = New System.Windows.Forms.TextBox() Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
Me.lblDiagnose = New System.Windows.Forms.Label() Me.lblDiagnose = New System.Windows.Forms.Label()
Me.txtDiagnose = New System.Windows.Forms.TextBox() Me.txtDiagnose = New System.Windows.Forms.TextBox()
@@ -118,8 +107,27 @@ Partial Class Benhandungdetail
Me.grpglndiagnose = New System.Windows.Forms.GroupBox() Me.grpglndiagnose = New System.Windows.Forms.GroupBox()
Me.lblBehandlungsart = New System.Windows.Forms.Label() Me.lblBehandlungsart = New System.Windows.Forms.Label()
Me.txtBehandlungsgrund = New System.Windows.Forms.TextBox() Me.txtBehandlungsgrund = New System.Windows.Forms.TextBox()
Me.cbboxNrBehandlungsart = New DPM2016.MyCombobox()
Me.lblBehandlungsgrund = New System.Windows.Forms.Label() Me.lblBehandlungsgrund = New System.Windows.Forms.Label()
Me.grpEmpfaenger = New System.Windows.Forms.GroupBox()
Me.btnSucheFirma = New System.Windows.Forms.Button()
Me.btnSuchePrivat = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtSucheFirma = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtSuchePrivat = New System.Windows.Forms.TextBox()
Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
Me.cbboxNrBehandlungsart = New DPM2016.MyCombobox()
Me.cbboxrgtext = New DPM2016.MyCombobox()
Me.cbboxNRESTyp = New DPM2016.MyCombobox()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.cbboxNrGesetz = New DPM2016.MyCombobox()
Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.cbboxNrGarant = New DPM2016.MyCombobox()
Me.cbboxNrtaxpunkt = New DPM2016.MyCombobox()
Me.cbboxNrAnsatz = New DPM2016.MyCombobox()
Me.cbboxNrAbrechnungstyp = New DPM2016.MyCombobox()
Me.cbboxNRRGtyp = New DPM2016.MyCombobox()
Me.GrpPatient.SuspendLayout() Me.GrpPatient.SuspendLayout()
Me.grpZusammenfassugn.SuspendLayout() Me.grpZusammenfassugn.SuspendLayout()
Me.GrpGaramt.SuspendLayout() Me.GrpGaramt.SuspendLayout()
@@ -139,6 +147,7 @@ Partial Class Benhandungdetail
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.GrpRechnungstext.SuspendLayout() Me.GrpRechnungstext.SuspendLayout()
Me.grpglndiagnose.SuspendLayout() Me.grpglndiagnose.SuspendLayout()
Me.grpEmpfaenger.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GrpPatient 'GrpPatient
@@ -154,18 +163,6 @@ Partial Class Benhandungdetail
Me.GrpPatient.TabStop = False Me.GrpPatient.TabStop = False
Me.GrpPatient.Text = "Patient / Behandler" Me.GrpPatient.Text = "Patient / Behandler"
' '
'cbboxNRESTyp
'
Me.cbboxNRESTyp.Dataselection = Nothing
Me.cbboxNRESTyp.Displaymember = Nothing
Me.cbboxNRESTyp.Location = New System.Drawing.Point(72, 52)
Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
Me.cbboxNRESTyp.Size = New System.Drawing.Size(216, 21)
Me.cbboxNRESTyp.TabIndex = 1
Me.cbboxNRESTyp.Table = Nothing
Me.cbboxNRESTyp.TableAlias = ""
Me.cbboxNRESTyp.Valuemember = Nothing
'
'Label6 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
@@ -175,18 +172,6 @@ Partial Class Benhandungdetail
Me.Label6.TabIndex = 21 Me.Label6.TabIndex = 21
Me.Label6.Text = "Formulartyp" Me.Label6.Text = "Formulartyp"
' '
'cbboxnrbehandler
'
Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(72, 24)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(216, 21)
Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
'
'Label7 'Label7
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
@@ -385,32 +370,6 @@ Partial Class Benhandungdetail
Me.lblGesetz.TabIndex = 223 Me.lblGesetz.TabIndex = 223
Me.lblGesetz.Text = "Gesetz" Me.lblGesetz.Text = "Gesetz"
' '
'cbboxNrGesetz
'
Me.cbboxNrGesetz.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbboxNrGesetz.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxNrGesetz.Dataselection = Nothing
Me.cbboxNrGesetz.Displaymember = Nothing
Me.cbboxNrGesetz.Location = New System.Drawing.Point(94, 136)
Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
Me.cbboxNrGesetz.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrGesetz.TabIndex = 9
Me.cbboxNrGesetz.Table = Nothing
Me.cbboxNrGesetz.TableAlias = ""
Me.cbboxNrGesetz.Valuemember = Nothing
'
'cbboxNrZuweiser
'
Me.cbboxNrZuweiser.Dataselection = Nothing
Me.cbboxNrZuweiser.Displaymember = Nothing
Me.cbboxNrZuweiser.Location = New System.Drawing.Point(94, 239)
Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
Me.cbboxNrZuweiser.Size = New System.Drawing.Size(169, 21)
Me.cbboxNrZuweiser.TabIndex = 13
Me.cbboxNrZuweiser.Table = Nothing
Me.cbboxNrZuweiser.TableAlias = ""
Me.cbboxNrZuweiser.Valuemember = Nothing
'
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
@@ -571,18 +530,6 @@ Partial Class Benhandungdetail
Me.lblFallNummer.TabIndex = 32 Me.lblFallNummer.TabIndex = 32
Me.lblFallNummer.Text = "FallNummer" Me.lblFallNummer.Text = "FallNummer"
' '
'cbboxNrAnsprechpartner
'
Me.cbboxNrAnsprechpartner.Dataselection = Nothing
Me.cbboxNrAnsprechpartner.Displaymember = Nothing
Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 84)
Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrAnsprechpartner.TabIndex = 7
Me.cbboxNrAnsprechpartner.Table = Nothing
Me.cbboxNrAnsprechpartner.TableAlias = ""
Me.cbboxNrAnsprechpartner.Valuemember = Nothing
'
'lblAnsprechpartner 'lblAnsprechpartner
' '
Me.lblAnsprechpartner.AutoSize = True Me.lblAnsprechpartner.AutoSize = True
@@ -599,18 +546,6 @@ Partial Class Benhandungdetail
Me.txtFallnummer.Size = New System.Drawing.Size(151, 20) Me.txtFallnummer.Size = New System.Drawing.Size(151, 20)
Me.txtFallnummer.TabIndex = 8 Me.txtFallnummer.TabIndex = 8
' '
'cbboxNrGarant
'
Me.cbboxNrGarant.Dataselection = Nothing
Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 61)
Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.Size = New System.Drawing.Size(277, 21)
Me.cbboxNrGarant.TabIndex = 6
Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing
'
'lblgarant 'lblgarant
' '
Me.lblgarant.AutoSize = True Me.lblgarant.AutoSize = True
@@ -743,6 +678,7 @@ Partial Class Benhandungdetail
Me.xxtxtAnzahlraten.Size = New System.Drawing.Size(61, 20) Me.xxtxtAnzahlraten.Size = New System.Drawing.Size(61, 20)
Me.xxtxtAnzahlraten.TabIndex = 3 Me.xxtxtAnzahlraten.TabIndex = 3
Me.xxtxtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.xxtxtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.xxtxtAnzahlraten.Visible = False
' '
'chkUngeraterateamstart 'chkUngeraterateamstart
' '
@@ -1105,30 +1041,6 @@ Partial Class Benhandungdetail
Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag" Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag"
Me.chkRabattGesamt.UseVisualStyleBackColor = True Me.chkRabattGesamt.UseVisualStyleBackColor = True
' '
'cbboxNrtaxpunkt
'
Me.cbboxNrtaxpunkt.Dataselection = Nothing
Me.cbboxNrtaxpunkt.Displaymember = Nothing
Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(97, 138)
Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrtaxpunkt.TabIndex = 4
Me.cbboxNrtaxpunkt.Table = Nothing
Me.cbboxNrtaxpunkt.TableAlias = ""
Me.cbboxNrtaxpunkt.Valuemember = Nothing
'
'cbboxNrAnsatz
'
Me.cbboxNrAnsatz.Dataselection = Nothing
Me.cbboxNrAnsatz.Displaymember = Nothing
Me.cbboxNrAnsatz.Location = New System.Drawing.Point(94, 81)
Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
Me.cbboxNrAnsatz.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsatz.TabIndex = 2
Me.cbboxNrAnsatz.Table = Nothing
Me.cbboxNrAnsatz.TableAlias = ""
Me.cbboxNrAnsatz.Valuemember = Nothing
'
'lblAnsatz 'lblAnsatz
' '
Me.lblAnsatz.AutoSize = True Me.lblAnsatz.AutoSize = True
@@ -1138,18 +1050,6 @@ Partial Class Benhandungdetail
Me.lblAnsatz.TabIndex = 27 Me.lblAnsatz.TabIndex = 27
Me.lblAnsatz.Text = "Ansatz" Me.lblAnsatz.Text = "Ansatz"
' '
'cbboxNrAbrechnungstyp
'
Me.cbboxNrAbrechnungstyp.Dataselection = Nothing
Me.cbboxNrAbrechnungstyp.Displaymember = Nothing
Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(94, 53)
Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAbrechnungstyp.TabIndex = 1
Me.cbboxNrAbrechnungstyp.Table = Nothing
Me.cbboxNrAbrechnungstyp.TableAlias = ""
Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
'
'lblAbrechnungstyp 'lblAbrechnungstyp
' '
Me.lblAbrechnungstyp.AutoSize = True Me.lblAbrechnungstyp.AutoSize = True
@@ -1159,18 +1059,6 @@ Partial Class Benhandungdetail
Me.lblAbrechnungstyp.TabIndex = 25 Me.lblAbrechnungstyp.TabIndex = 25
Me.lblAbrechnungstyp.Text = "Abrechnungstyp" Me.lblAbrechnungstyp.Text = "Abrechnungstyp"
' '
'cbboxNRRGtyp
'
Me.cbboxNRRGtyp.Dataselection = Nothing
Me.cbboxNRRGtyp.Displaymember = Nothing
Me.cbboxNRRGtyp.Location = New System.Drawing.Point(94, 25)
Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
Me.cbboxNRRGtyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNRRGtyp.TabIndex = 0
Me.cbboxNRRGtyp.Table = Nothing
Me.cbboxNRRGtyp.TableAlias = ""
Me.cbboxNRRGtyp.Valuemember = Nothing
'
'lblRechnungstyp 'lblRechnungstyp
' '
Me.lblRechnungstyp.AutoSize = True Me.lblRechnungstyp.AutoSize = True
@@ -1248,18 +1136,6 @@ Partial Class Benhandungdetail
Me.GrpRechnungstext.TabStop = False Me.GrpRechnungstext.TabStop = False
Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung" Me.GrpRechnungstext.Text = "Rechnungstext / Bemerkung"
' '
'cbboxrgtext
'
Me.cbboxrgtext.Dataselection = Nothing
Me.cbboxrgtext.Displaymember = Nothing
Me.cbboxrgtext.Location = New System.Drawing.Point(5, 20)
Me.cbboxrgtext.Name = "cbboxrgtext"
Me.cbboxrgtext.Size = New System.Drawing.Size(419, 21)
Me.cbboxrgtext.TabIndex = 0
Me.cbboxrgtext.Table = Nothing
Me.cbboxrgtext.TableAlias = ""
Me.cbboxrgtext.Valuemember = Nothing
'
'txtRechnungsbemerkung 'txtRechnungsbemerkung
' '
Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Bottom Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -1334,6 +1210,90 @@ Partial Class Benhandungdetail
Me.txtBehandlungsgrund.Size = New System.Drawing.Size(329, 20) Me.txtBehandlungsgrund.Size = New System.Drawing.Size(329, 20)
Me.txtBehandlungsgrund.TabIndex = 222 Me.txtBehandlungsgrund.TabIndex = 222
' '
'lblBehandlungsgrund
'
Me.lblBehandlungsgrund.AutoSize = True
Me.lblBehandlungsgrund.Location = New System.Drawing.Point(9, 108)
Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund"
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(61, 13)
Me.lblBehandlungsgrund.TabIndex = 223
Me.lblBehandlungsgrund.Text = "Beh.-Grund"
'
'grpEmpfaenger
'
Me.grpEmpfaenger.Controls.Add(Me.btnSucheFirma)
Me.grpEmpfaenger.Controls.Add(Me.btnSuchePrivat)
Me.grpEmpfaenger.Controls.Add(Me.Label9)
Me.grpEmpfaenger.Controls.Add(Me.txtSucheFirma)
Me.grpEmpfaenger.Controls.Add(Me.Label8)
Me.grpEmpfaenger.Controls.Add(Me.txtSuchePrivat)
Me.grpEmpfaenger.Controls.Add(Me.txtEmpfaenger)
Me.grpEmpfaenger.Location = New System.Drawing.Point(712, 288)
Me.grpEmpfaenger.Name = "grpEmpfaenger"
Me.grpEmpfaenger.Size = New System.Drawing.Size(332, 160)
Me.grpEmpfaenger.TabIndex = 223
Me.grpEmpfaenger.TabStop = False
Me.grpEmpfaenger.Text = "Empfänger"
'
'btnSucheFirma
'
Me.btnSucheFirma.Image = CType(resources.GetObject("btnSucheFirma.Image"), System.Drawing.Image)
Me.btnSucheFirma.Location = New System.Drawing.Point(226, 36)
Me.btnSucheFirma.Name = "btnSucheFirma"
Me.btnSucheFirma.Size = New System.Drawing.Size(22, 23)
Me.btnSucheFirma.TabIndex = 8
Me.btnSucheFirma.UseVisualStyleBackColor = True
'
'btnSuchePrivat
'
Me.btnSuchePrivat.Image = CType(resources.GetObject("btnSuchePrivat.Image"), System.Drawing.Image)
Me.btnSuchePrivat.Location = New System.Drawing.Point(104, 35)
Me.btnSuchePrivat.Name = "btnSuchePrivat"
Me.btnSuchePrivat.Size = New System.Drawing.Size(22, 23)
Me.btnSuchePrivat.TabIndex = 7
Me.btnSuchePrivat.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(131, 20)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(75, 13)
Me.Label9.TabIndex = 6
Me.Label9.Text = "Firmenadresse"
'
'txtSucheFirma
'
Me.txtSucheFirma.Location = New System.Drawing.Point(132, 36)
Me.txtSucheFirma.Name = "txtSucheFirma"
Me.txtSucheFirma.Size = New System.Drawing.Size(100, 20)
Me.txtSucheFirma.TabIndex = 5
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(6, 20)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(71, 13)
Me.Label8.TabIndex = 4
Me.Label8.Text = "Privatadresse"
'
'txtSuchePrivat
'
Me.txtSuchePrivat.Location = New System.Drawing.Point(3, 36)
Me.txtSuchePrivat.Name = "txtSuchePrivat"
Me.txtSuchePrivat.Size = New System.Drawing.Size(100, 20)
Me.txtSuchePrivat.TabIndex = 3
'
'txtEmpfaenger
'
Me.txtEmpfaenger.Dock = System.Windows.Forms.DockStyle.Bottom
Me.txtEmpfaenger.Location = New System.Drawing.Point(3, 62)
Me.txtEmpfaenger.Multiline = True
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Size = New System.Drawing.Size(326, 95)
Me.txtEmpfaenger.TabIndex = 2
'
'cbboxNrBehandlungsart 'cbboxNrBehandlungsart
' '
Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -1348,19 +1308,145 @@ Partial Class Benhandungdetail
Me.cbboxNrBehandlungsart.TableAlias = "" Me.cbboxNrBehandlungsart.TableAlias = ""
Me.cbboxNrBehandlungsart.Valuemember = Nothing Me.cbboxNrBehandlungsart.Valuemember = Nothing
' '
'lblBehandlungsgrund 'cbboxrgtext
' '
Me.lblBehandlungsgrund.AutoSize = True Me.cbboxrgtext.Dataselection = Nothing
Me.lblBehandlungsgrund.Location = New System.Drawing.Point(9, 108) Me.cbboxrgtext.Displaymember = Nothing
Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund" Me.cbboxrgtext.Location = New System.Drawing.Point(3, 20)
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(61, 13) Me.cbboxrgtext.Name = "cbboxrgtext"
Me.lblBehandlungsgrund.TabIndex = 223 Me.cbboxrgtext.Size = New System.Drawing.Size(424, 21)
Me.lblBehandlungsgrund.Text = "Beh.-Grund" Me.cbboxrgtext.TabIndex = 0
Me.cbboxrgtext.Table = Nothing
Me.cbboxrgtext.TableAlias = ""
Me.cbboxrgtext.Valuemember = Nothing
'
'cbboxNRESTyp
'
Me.cbboxNRESTyp.Dataselection = Nothing
Me.cbboxNRESTyp.Displaymember = Nothing
Me.cbboxNRESTyp.Location = New System.Drawing.Point(72, 52)
Me.cbboxNRESTyp.Name = "cbboxNRESTyp"
Me.cbboxNRESTyp.Size = New System.Drawing.Size(216, 21)
Me.cbboxNRESTyp.TabIndex = 1
Me.cbboxNRESTyp.Table = Nothing
Me.cbboxNRESTyp.TableAlias = ""
Me.cbboxNRESTyp.Valuemember = Nothing
'
'cbboxnrbehandler
'
Me.cbboxnrbehandler.Dataselection = Nothing
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(72, 24)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.Size = New System.Drawing.Size(216, 21)
Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
'
'cbboxNrGesetz
'
Me.cbboxNrGesetz.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbboxNrGesetz.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxNrGesetz.Dataselection = Nothing
Me.cbboxNrGesetz.Displaymember = Nothing
Me.cbboxNrGesetz.Location = New System.Drawing.Point(94, 136)
Me.cbboxNrGesetz.Name = "cbboxNrGesetz"
Me.cbboxNrGesetz.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrGesetz.TabIndex = 9
Me.cbboxNrGesetz.Table = Nothing
Me.cbboxNrGesetz.TableAlias = ""
Me.cbboxNrGesetz.Valuemember = Nothing
'
'cbboxNrZuweiser
'
Me.cbboxNrZuweiser.Dataselection = Nothing
Me.cbboxNrZuweiser.Displaymember = Nothing
Me.cbboxNrZuweiser.Location = New System.Drawing.Point(94, 239)
Me.cbboxNrZuweiser.Name = "cbboxNrZuweiser"
Me.cbboxNrZuweiser.Size = New System.Drawing.Size(169, 21)
Me.cbboxNrZuweiser.TabIndex = 13
Me.cbboxNrZuweiser.Table = Nothing
Me.cbboxNrZuweiser.TableAlias = ""
Me.cbboxNrZuweiser.Valuemember = Nothing
'
'cbboxNrAnsprechpartner
'
Me.cbboxNrAnsprechpartner.Dataselection = Nothing
Me.cbboxNrAnsprechpartner.Displaymember = Nothing
Me.cbboxNrAnsprechpartner.Location = New System.Drawing.Point(94, 84)
Me.cbboxNrAnsprechpartner.Name = "cbboxNrAnsprechpartner"
Me.cbboxNrAnsprechpartner.Size = New System.Drawing.Size(151, 21)
Me.cbboxNrAnsprechpartner.TabIndex = 7
Me.cbboxNrAnsprechpartner.Table = Nothing
Me.cbboxNrAnsprechpartner.TableAlias = ""
Me.cbboxNrAnsprechpartner.Valuemember = Nothing
'
'cbboxNrGarant
'
Me.cbboxNrGarant.Dataselection = Nothing
Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(94, 61)
Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.Size = New System.Drawing.Size(277, 21)
Me.cbboxNrGarant.TabIndex = 6
Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing
'
'cbboxNrtaxpunkt
'
Me.cbboxNrtaxpunkt.Dataselection = Nothing
Me.cbboxNrtaxpunkt.Displaymember = Nothing
Me.cbboxNrtaxpunkt.Location = New System.Drawing.Point(97, 138)
Me.cbboxNrtaxpunkt.Name = "cbboxNrtaxpunkt"
Me.cbboxNrtaxpunkt.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrtaxpunkt.TabIndex = 4
Me.cbboxNrtaxpunkt.Table = Nothing
Me.cbboxNrtaxpunkt.TableAlias = ""
Me.cbboxNrtaxpunkt.Valuemember = Nothing
'
'cbboxNrAnsatz
'
Me.cbboxNrAnsatz.Dataselection = Nothing
Me.cbboxNrAnsatz.Displaymember = Nothing
Me.cbboxNrAnsatz.Location = New System.Drawing.Point(94, 81)
Me.cbboxNrAnsatz.Name = "cbboxNrAnsatz"
Me.cbboxNrAnsatz.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAnsatz.TabIndex = 2
Me.cbboxNrAnsatz.Table = Nothing
Me.cbboxNrAnsatz.TableAlias = ""
Me.cbboxNrAnsatz.Valuemember = Nothing
'
'cbboxNrAbrechnungstyp
'
Me.cbboxNrAbrechnungstyp.Dataselection = Nothing
Me.cbboxNrAbrechnungstyp.Displaymember = Nothing
Me.cbboxNrAbrechnungstyp.Location = New System.Drawing.Point(94, 53)
Me.cbboxNrAbrechnungstyp.Name = "cbboxNrAbrechnungstyp"
Me.cbboxNrAbrechnungstyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNrAbrechnungstyp.TabIndex = 1
Me.cbboxNrAbrechnungstyp.Table = Nothing
Me.cbboxNrAbrechnungstyp.TableAlias = ""
Me.cbboxNrAbrechnungstyp.Valuemember = Nothing
'
'cbboxNRRGtyp
'
Me.cbboxNRRGtyp.Dataselection = Nothing
Me.cbboxNRRGtyp.Displaymember = Nothing
Me.cbboxNRRGtyp.Location = New System.Drawing.Point(94, 25)
Me.cbboxNRRGtyp.Name = "cbboxNRRGtyp"
Me.cbboxNRRGtyp.Size = New System.Drawing.Size(196, 21)
Me.cbboxNRRGtyp.TabIndex = 0
Me.cbboxNRRGtyp.Table = Nothing
Me.cbboxNRRGtyp.TableAlias = ""
Me.cbboxNRRGtyp.Valuemember = Nothing
' '
'Benhandungdetail 'Benhandungdetail
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.grpEmpfaenger)
Me.Controls.Add(Me.grpglndiagnose) Me.Controls.Add(Me.grpglndiagnose)
Me.Controls.Add(Me.GrpRechnungstext) Me.Controls.Add(Me.GrpRechnungstext)
Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.ToolStrip1)
@@ -1400,6 +1486,8 @@ Partial Class Benhandungdetail
Me.GrpRechnungstext.PerformLayout() Me.GrpRechnungstext.PerformLayout()
Me.grpglndiagnose.ResumeLayout(False) Me.grpglndiagnose.ResumeLayout(False)
Me.grpglndiagnose.PerformLayout() Me.grpglndiagnose.PerformLayout()
Me.grpEmpfaenger.ResumeLayout(False)
Me.grpEmpfaenger.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1501,4 +1589,12 @@ Partial Class Benhandungdetail
Friend WithEvents tsbtnGarantAnzeigen As ToolStripButton Friend WithEvents tsbtnGarantAnzeigen As ToolStripButton
Friend WithEvents lblBehandlungsart As Label Friend WithEvents lblBehandlungsart As Label
Friend WithEvents cbboxNrBehandlungsart As MyCombobox Friend WithEvents cbboxNrBehandlungsart As MyCombobox
Friend WithEvents grpEmpfaenger As GroupBox
Friend WithEvents btnSucheFirma As Button
Friend WithEvents btnSuchePrivat As Button
Friend WithEvents Label9 As Label
Friend WithEvents txtSucheFirma As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents txtSuchePrivat As TextBox
Friend WithEvents txtEmpfaenger As TextBox
End Class End Class

View File

@@ -153,6 +153,50 @@
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg== TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnSucheFirma.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAAQABADASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD91v8Ago3/AMF3/Bv7A3/BRP8AYu/Zd17Q/tXwD+IfiT4p+DP2
uviLH8MPHHjzxt4L8ZzfDT4Z+Kfgb4V+C+j+B/FkfibXtYstS+LPw98SfF5YvhH8Q7PU/A3j3w7onwtv
NY+JOkeN/DnhrS/4I4/8FzvA/wDwU1+On7XH7O2vnwjpfxJ+GvjLxV8ZP2cofh9oOot4e8c/sJapfeB9
J+HWu+O/EsHxC+JWk2X7R3gjWfGGk6N8ePCU9x4F0+w1Txb4atPA3hzV30H4hnwtpfGv/ggp8J/2iv8A
gqroH/BRf40+IvgR8S/hzp3iDxTrnir9l/x1+yJ4a8aN8U4te/ZP+H/7NugaL8Uvip4s+KGtaF4y0f4b
eI/h9Y/F/wCHNpqPwUK+FtZ1TVNIssX0kPiyLa/YA/4IdeDf2A/2+/jL+2f4A+JPwth8H/En4e/tH/DT
wz8Cfhl+zLafBmLwf4Z+O37V2lftLeGrTWfGmk/F7xNoPiqH4N6DpGn/AAS8G2mjfC3wHZt4D0fw1FBB
o9n4es9EcA//2Q==
</value>
</data>
<data name="btnSuchePrivat.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAAQABADASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD91v8Ago3/AMF3/Bv7A3/BRP8AYu/Zd17Q/tXwD+IfiT4p+DP2
uviLH8MPHHjzxt4L8ZzfDT4Z+Kfgb4V+C+j+B/FkfibXtYstS+LPw98SfF5YvhH8Q7PU/A3j3w7onwtv
NY+JOkeN/DnhrS/4I4/8FzvA/wDwU1+On7XH7O2vnwjpfxJ+GvjLxV8ZP2cofh9oOot4e8c/sJapfeB9
J+HWu+O/EsHxC+JWk2X7R3gjWfGGk6N8ePCU9x4F0+w1Txb4atPA3hzV30H4hnwtpfGv/ggp8J/2iv8A
gqroH/BRf40+IvgR8S/hzp3iDxTrnir9l/x1+yJ4a8aN8U4te/ZP+H/7NugaL8Uvip4s+KGtaF4y0f4b
eI/h9Y/F/wCHNpqPwUK+FtZ1TVNIssX0kPiyLa/YA/4IdeDf2A/2+/jL+2f4A+JPwth8H/En4e/tH/DT
wz8Cfhl+zLafBmLwf4Z+O37V2lftLeGrTWfGmk/F7xNoPiqH4N6DpGn/AAS8G2mjfC3wHZt4D0fw1FBB
o9n4es9EcA//2Q==
</value> </value>
</data> </data>
</root> </root>

View File

@@ -14,14 +14,20 @@
m_behandlungsnr = value m_behandlungsnr = value
If value <> 0 Then If value <> 0 Then
Me.OnLoad = True Me.OnLoad = True
'Me.Enabled = False
Globals.OnLoad = True
Get_Stammdaten() Get_Stammdaten()
Globals.OnLoad = True Globals.OnLoad = True
OnGetData = True OnGetData = True
Get_Data() Get_Data()
OnGetData = False OnGetData = False
Globals.OnLoad = False Globals.OnLoad = False
Recalc_Totale()
Me.OnLoad = False Me.OnLoad = False
Me.HasChanges = False
'Me.Enabled = True
Recalc_Totale()
End If End If
End Set End Set
End Property End Property
@@ -518,6 +524,7 @@
End Sub End Sub
Public Sub Recalc_Totale() Public Sub Recalc_Totale()
If OnLoad Then Exit Sub
Dim zdb As New clsDB Dim zdb As New clsDB
Dim vz As Double = 0 Dim vz As Double = 0
zdb.Get_Tabledata("Zahlung", "where aktiv=1 And vorauszahlung=1 And nrbehandlung=" + Me.Behandlungsnr.ToString) zdb.Get_Tabledata("Zahlung", "where aktiv=1 And vorauszahlung=1 And nrbehandlung=" + Me.Behandlungsnr.ToString)
@@ -546,7 +553,10 @@
Dim total As Double Dim total As Double
For Each r As DataRow In ldb.dsDaten.Tables(0).Rows For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
If r("aktiv") = True Then If r("aktiv") = True Then
If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total") If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then ssototal = ssototal + r("total")
If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then ssototal = ssototal + r("total")
'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
total = total + r("Total") total = total + r("Total")
End If End If
Next Next
@@ -642,6 +652,7 @@
Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedIndexChanged Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedIndexChanged
If OnLoad Then Exit Sub
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
@@ -655,6 +666,7 @@
End Sub End Sub
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedValueChanged Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedValueChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub If OnGetData Then Exit Sub
Update_cbboxnrtaxpunkt() Update_cbboxnrtaxpunkt()
End Sub End Sub
@@ -676,6 +688,7 @@
End Sub End Sub
Private Sub cbboxNrAnsatz_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedValueChanged Private Sub cbboxNrAnsatz_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedValueChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub If OnGetData Then Exit Sub
Try Try
For Each r As DataRow In IntTables.Inttables.Tables("ansatz").Rows For Each r As DataRow In IntTables.Inttables.Tables("ansatz").Rows
@@ -712,6 +725,7 @@
Me.tsbtnSave.Enabled = enable Me.tsbtnSave.Enabled = enable
Me.grpglndiagnose.Enabled = enable Me.grpglndiagnose.Enabled = enable
Me.GrpRechnungstext.Enabled = enable Me.GrpRechnungstext.Enabled = enable
Me.grpEmpfaenger.Enabled = enable
End Sub End Sub
@@ -854,12 +868,21 @@
End Sub End Sub
Public Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click Public Sub Sofortrechnung_als_pdf(Optional alsMail As Boolean = False)
Sofortrechnung(True, alsMail)
End Sub
Public Sub Sofortrechung_normal()
Sofortrechnung(False)
End Sub
'Public Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
Public Sub Sofortrechnung(ByVal alsPDF As Boolean, Optional alsMail As Boolean = False)
Globals.pdfCollection.Clear()
Me.Save_Data() 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
btnAbschliessen_Click(sender, e) 'btnAbschliessen_Click(sender, e)
Else Else
Exit Sub Exit Sub
End If End If
@@ -871,8 +894,10 @@
Dim buchen As Boolean = True Dim buchen As Boolean = True
If result = 5 Then buchen = False If result = 5 Then buchen = False
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
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")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1 If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer Dim reportnr As Integer
@@ -887,22 +912,38 @@
Globals.FakturaNr = 0 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) If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString, alsPDF)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, Me.Behandlungsnr, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString, alsPDF)
f.Visible = False f.Visible = False
f.Show() f.Show()
f.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen) f.Visible = False
'f.Print_Rechnung(False, False, i) f.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen)
f.Close() f.Close()
'If i = 1 Then If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
' Dim fakt As New clsFakturierung buchen = False
' fakt.Verbuchen(Me.Behandlungsnr, 1) reportnr = Folgeauswertung
' hauptfaktura = fakt.fakturanr db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
'Else Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
' Dim fakt As New clsFakturierung Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
' fakt.Verbuchen(Me.Behandlungsnr, i, hauptfaktura) Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString, alsPDF)
'End If f1.Visible = False
f1.Show()
f1.Visible = False
f1.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen)
f1.Close()
buchen = True
reportnr = db.Get_ReportNr(Me.cbboxNRESTyp.Text)
End If
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 And anzahlraten < 2 Then
buchen = False buchen = False
reportnr = Folgeauswertung reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString) db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
@@ -912,6 +953,18 @@
doloop = False doloop = False
End If End If
End While End While
Dim pdfh As New clspdfhelper
If result = 5 Then
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Kostenvoranschlag:")
Else
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Sofortrechnung:")
End If
pdfh.HandlePDF(alsPDF, alsMail)
pdfh = Nothing
evh.Refresh_Behandlungen(Me.Behandlungsnr, Me.Patientnr) evh.Refresh_Behandlungen(Me.Behandlungsnr, Me.Patientnr)
End If End If
@@ -1147,6 +1200,7 @@
End Function End Function
Private Sub cbboxNRESTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRESTyp.SelectedIndexChanged Private Sub cbboxNRESTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRESTyp.SelectedIndexChanged
If OnLoad Then Exit Sub
Try Try
For Each r As DataRow In IntTables.Inttables.Tables("estyp").Rows For Each r As DataRow In IntTables.Inttables.Tables("estyp").Rows
If r.Item("nrestyp") = cbboxNRESTyp.SelectedValue Then If r.Item("nrestyp") = cbboxNRESTyp.SelectedValue Then
@@ -1223,6 +1277,58 @@
End Sub End Sub
Private Sub txtSuchePrivat_TextChanged(sender As Object, e As EventArgs) Handles txtSuchePrivat.TextChanged
End Sub
Private Sub txtSuchePrivat_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuchePrivat.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrfirma As Integer = db.Search("Patient", Me.txtSuchePrivat.Text)
If nrfirma <> -1 Then
db.Get_Tabledata("Adr", "", "Select dbo.get_adresse_firmaprivat(" + nrfirma.ToString + ",0) as Adresse")
Me.txtEmpfaenger.Text = db.dsDaten.Tables(0).Rows(0).Item(0)
End If
db.Dispose()
End If
End Sub
Private Sub txtSucheFirma_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSucheFirma.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrfirma As Integer = db.Search("Firma", Me.txtSucheFirma.Text)
If nrfirma <> -1 Then
db.Get_Tabledata("Adr", "", "Select dbo.get_adresse_firmaprivat(" + nrfirma.ToString + ",0) as Adresse")
Me.txtEmpfaenger.Text = db.dsDaten.Tables(0).Rows(0).Item(0)
End If
db.Dispose()
End If
End Sub
Private Sub btnSucheFirma_Click(sender As Object, e As EventArgs) Handles btnSucheFirma.Click
Dim db As New clsDB
Dim nrfirma As Integer = db.Search("Firma", Me.txtSucheFirma.Text)
If nrfirma <> -1 Then
db.Get_Tabledata("Adr", "", "Select dbo.get_adresse_firmaprivat(" + nrfirma.ToString + ",0) as Adresse")
Me.txtEmpfaenger.Text = db.dsDaten.Tables(0).Rows(0).Item(0)
End If
db.Dispose()
End Sub
Private Sub btnSuchePrivat_Click(sender As Object, e As EventArgs) Handles btnSuchePrivat.Click
Dim db As New clsDB
Dim nrfirma As Integer = db.Search("Patient", Me.txtSuchePrivat.Text)
If nrfirma <> -1 Then
db.Get_Tabledata("Adr", "", "Select dbo.get_adresse_firmaprivat(" + nrfirma.ToString + ",0) as Adresse")
Me.txtEmpfaenger.Text = db.dsDaten.Tables(0).Rows(0).Item(0)
End If
db.Dispose()
End Sub
'Private Sub mtxtRatenzuschlag_TextChanged(sender As Object, e As EventArgs) Handles mtxtRatenzuschlag.TextChanged 'Private Sub mtxtRatenzuschlag_TextChanged(sender As Object, e As EventArgs) Handles mtxtRatenzuschlag.TextChanged

View File

@@ -24,9 +24,20 @@
f.Show() f.Show()
f.Print_Rechnung(True, False, i) f.Print_Rechnung(True, False, i)
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
f1.Show()
f1.Print_Rechnung(True, False, i)
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
End If
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 And anzahlraten < 2 Then
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")
@@ -38,17 +49,23 @@
End Sub End Sub
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False) Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB Dim db As New clsDB
Dim db1 As New clsDB Dim db1 As New clsDB
Globals.RGCollection.Clear() Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung") Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1 If anzahlraten = 0 Then anzahlraten = 1
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString) db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
Dim reportnr As Integer Dim reportnr As Integer
Dim ReportNrOriginal As Integer
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp")) reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
ReportNrOriginal = reportnr
Dim fakturanr As Integer Dim fakturanr As Integer
Try Try
@@ -68,8 +85,18 @@
Dim hauptfaktura As Integer Dim hauptfaktura As Integer
While doloop = True While doloop = True
For i As Integer = 1 To anzahlraten For i As Integer = 1 To anzahlraten
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung.ToString, nrbehandlung.ToString, asPDF)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, nrbehandlung, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF) Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
f.Show() f.Visible = False
If fakturanr = 0 Then If fakturanr = 0 Then
If preview Then If preview Then
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr) f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
@@ -84,8 +111,22 @@
End If End If
End If End If
If Not preview Then f.Close() If Not preview Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
f1.Visible = False
f1.Show()
f1.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
f1.Close()
reportnr = ReportNrOriginal
'fakturanr = fakturanr - 1
End If
fakturanr = fakturanr + 1
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 And anzahlraten < 2 Then
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")
@@ -94,12 +135,16 @@
doloop = False doloop = False
End If End If
End While End While
If preview = False Then
Dim pdfh As New clspdfhelper
pdfh.HandlePDF(asPDF, False)
End If
End Sub End Sub
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False) Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False)
Globals.pdfCollection.Clear()
Dim db As New clsDB Dim db As New clsDB
Dim db1 As New clsDB Dim db1 As New clsDB
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
@@ -131,13 +176,29 @@
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 = " + behandlungsnr.ToString, behandlungsnr.ToString) Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f.Visible = False
f.Show() f.Show()
If Not Preview And Not Design Then f.Visible = False
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design) f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
If Not Preview Then f.Close() If Not Preview Then f.Close()
If Design Then f.Close() If Design Then f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Behandlungsnr.ToString, Behandlungsnr.ToString)
f1.Visible = False
f1.Show()
If Not Preview And Not Design Then f1.Visible = False
f1.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
f1.Close()
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
End If
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 And anzahlraten < 2 Then
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")
@@ -146,6 +207,15 @@
doloop = False doloop = False
End If End If
End While End While
If Preview = False And Design = False Then
Dim pdfh As New clspdfhelper
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromFaktura, Fakturanr, "Mahnung:")
pdfh = Nothing
End If
Globals.pdfCollection.Clear()
End Sub End Sub
End Class End Class

View File

@@ -119,6 +119,24 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath> <HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
</Reference> </Reference>
<Reference Include="Gnostice.Core">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Gnostice.Core.dll</HintPath>
</Reference>
<Reference Include="Gnostice.Free.Documents">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Gnostice.Free.Documents.dll</HintPath>
</Reference>
<Reference Include="Gnostice.Free.Documents.Controls.WinForms">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Gnostice.Free.Documents.Controls.WinForms.dll</HintPath>
</Reference>
<Reference Include="Gnostice.XtremeFontEngine.4.0">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Gnostice.XtremeFontEngine.4.0.dll</HintPath>
</Reference>
<Reference Include="Gnostice.XtremeImageEngine">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Gnostice.XtremeImageEngine.dll</HintPath>
</Reference>
<Reference Include="Ionic.Zlib">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Ionic.Zlib.dll</HintPath>
</Reference>
<Reference Include="MySql.Data, Version=6.7.4.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL"> <Reference Include="MySql.Data, Version=6.7.4.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll</HintPath> <HintPath>..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll</HintPath>
@@ -134,37 +152,11 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath> <HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath>
</Reference> </Reference>
<Reference Include="Syncfusion.Compression.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL"> <Reference Include="Syncfusion.Compression.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Private>True</Private> <Reference Include="Syncfusion.Pdf.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
</Reference> <Reference Include="Syncfusion.PdfViewer.Windows, Version=16.2350.0.41, 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.Shared.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Private>True</Private> <Reference Include="Syncfusion.Shared.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
</Reference>
<Reference Include="Syncfusion.DocToPDFConverter.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Grid.Base, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Grid.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Pdf.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Schedule.Base, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Schedule.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Shared.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Shared.Windows, Version=15.4460.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.Tools.Windows, Version=16.2460.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
@@ -267,6 +259,38 @@
<Compile Include="Diverses\frmprogress.vb"> <Compile Include="Diverses\frmprogress.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Dokumente\clsDok.vb" />
<Compile Include="Dokumente\clsDokumente.Designer.vb">
<DependentUpon>clsDokumente.vb</DependentUpon>
</Compile>
<Compile Include="Dokumente\clsDokumente.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Dokumente\clsfilewatcher.vb" />
<Compile Include="Dokumente\dmstest.Designer.vb">
<DependentUpon>dmstest.vb</DependentUpon>
</Compile>
<Compile Include="Dokumente\dmstest.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Dokumente\DokumentDetail.Designer.vb">
<DependentUpon>DokumentDetail.vb</DependentUpon>
</Compile>
<Compile Include="Dokumente\DokumentDetail.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Dokumente\frmdokumentvorlagen.Designer.vb">
<DependentUpon>frmdokumentvorlagen.vb</DependentUpon>
</Compile>
<Compile Include="Dokumente\frmdokumentvorlagen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Dokumente\frmImportVorlage.Designer.vb">
<DependentUpon>frmImportVorlage.vb</DependentUpon>
</Compile>
<Compile Include="Dokumente\frmImportVorlage.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="EventHandler\Generic_Event_Handler.vb" /> <Compile Include="EventHandler\Generic_Event_Handler.vb" />
<Compile Include="Fakturierung\clsFakturierung.vb" /> <Compile Include="Fakturierung\clsFakturierung.vb" />
<Compile Include="Fakturierung\frmFakturierung.Designer.vb"> <Compile Include="Fakturierung\frmFakturierung.Designer.vb">
@@ -330,7 +354,9 @@
<Compile Include="KG\Krankengeschichte.vb"> <Compile Include="KG\Krankengeschichte.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="Klassen\clsMailClient.vb" />
<Compile Include="Klassen\clsNullableDatetimePicker.vb" /> <Compile Include="Klassen\clsNullableDatetimePicker.vb" />
<Compile Include="Klassen\clspdfhelper.vb" />
<Compile Include="Klassen\clsPrinter.vb" /> <Compile Include="Klassen\clsPrinter.vb" />
<Compile Include="Klassen\MyCombobox.vb"> <Compile Include="Klassen\MyCombobox.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
@@ -533,6 +559,21 @@
<EmbeddedResource Include="Diverses\frmprogress.resx"> <EmbeddedResource Include="Diverses\frmprogress.resx">
<DependentUpon>frmprogress.vb</DependentUpon> <DependentUpon>frmprogress.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Dokumente\clsDokumente.resx">
<DependentUpon>clsDokumente.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Dokumente\dmstest.resx">
<DependentUpon>dmstest.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Dokumente\DokumentDetail.resx">
<DependentUpon>DokumentDetail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Dokumente\frmdokumentvorlagen.resx">
<DependentUpon>frmdokumentvorlagen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Dokumente\frmImportVorlage.resx">
<DependentUpon>frmImportVorlage.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\frmFakturierung.resx"> <EmbeddedResource Include="Fakturierung\frmFakturierung.resx">
<DependentUpon>frmFakturierung.vb</DependentUpon> <DependentUpon>frmFakturierung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

View File

@@ -13,4 +13,7 @@
<PropertyGroup> <PropertyGroup>
<EnableSecurityDebugging>false</EnableSecurityDebugging> <EnableSecurityDebugging>false</EnableSecurityDebugging>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<StartArguments>-dmstest</StartArguments>
</PropertyGroup>
</Project> </Project>

View File

@@ -512,7 +512,35 @@ Public Class clsDB
End Select End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0) Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function End Function
Public Sub SaveDatabase(ByVal path As String)
Try
Dim conn As New SqlConnection(My.Settings.ConnectionString)
Dim cmd As New SqlCommand("Backup database " + conn.Database + " to disk='" + path + "'", conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("Datensicherung wurde erfolgreich erstellt.", vbInformation)
Catch ex As Exception
MsgBox("Datensicherung konnte nicht erstellt werden: " + ex.Message, vbExclamation)
End Try
End Sub
#End Region #End Region
Public Sub RestoreDatabase(ByVal path As String)
Try
Dim conn As New SqlConnection(My.Settings.ConnectionString)
Dim cmd As New SqlCommand("restore database " + conn.Database + " from disk='" + path + "'", conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("Restore wurde erfolgreich durchgeführt.", vbInformation)
Catch ex As Exception
MsgBox("Restore konnte nicht durchgeführt werden: " + ex.Message, vbExclamation)
End Try
End Sub
#Region "Tarife / Leistungen" #Region "Tarife / Leistungen"
Public Function Get_Tarife() As DataTable Public Function Get_Tarife() As DataTable

View File

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

View File

@@ -54,14 +54,19 @@
End Sub End Sub
Sub Faktura_Aufbereiten(ByVal r As DataRow) Sub Faktura_Aufbereiten(ByVal r As DataRow)
Globals.pdfCollection.Clear()
Dim buchen As Boolean = True Dim buchen As Boolean = True
Dim anzahlraten As Integer = 0 Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString) db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten") anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1 If anzahlraten = 0 Then anzahlraten = 1
Globals.FakturaNr = 0 Globals.FakturaNr = 0
Dim reportnr As Integer Dim reportnr As Integer
reportnr = db.Get_ReportNr_by_ESTypnr(r.Item("nrestyp")) reportnr = db.Get_ReportNr_by_ESTypnr(r.Item("nrestyp"))
Dim OriginalReportnr As Integer
OriginalReportnr = reportnr
Dim Folgeauswertung As Integer Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean Dim Separater_Druckjob As Boolean
@@ -72,13 +77,35 @@
Dim hauptfaktura As Integer Dim hauptfaktura As Integer
While doloop = True While doloop = True
For i As Integer = 1 To anzahlraten For i As Integer = 1 To anzahlraten
If i = 1 And Empfaenger <> "" Then
Dim f0 As New frmReportView(9999, False, "Vorschau Rechung", " where nrbehandlung = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString)
f0.Visible = False
f0.Show()
f0.Visible = False
f0.Fakturierung(9999, r.Item("nrbehandlung").ToString, "", i, buchen:=False)
f0.Close()
Globals.FakturaNr = 0
End If
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString) Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString)
f.Visible = False
f.Show() f.Show()
f.Visible = False
f.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen) f.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen)
'f.Print_Rechnung(False, False, i)
f.Close() f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString)
f1.Visible = False
f1.Show()
f1.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen)
f1.Close()
reportnr = OriginalReportnr
End If
Next i Next i
If Folgeauswertung > 0 Then If Folgeauswertung > 0 And anzahlraten < 2 Then
buchen = False buchen = False
reportnr = Folgeauswertung reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString) db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
@@ -88,9 +115,17 @@
doloop = False doloop = False
End If End If
End While End While
Dim pdfh As New clspdfhelper
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Rechnung:")
pdfh = Nothing
Globals.pdfCollection.Clear()
Globals.FakturaNr = 0 Globals.FakturaNr = 0
End Sub 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

View File

@@ -220,19 +220,19 @@
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK6SURBVEhLtZRNTxNRFIbnH7hAV240MSayox9TFujGRaNr YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK8SURBVEhLtZRNTxNRFIbnH7hAV240MSayK22nLNCNC6Jr
cWFcdNOkCxISGmxFYESktNSCRoMfwbAlkLC1LJp0wYKV/QPGaGMTF2L5aJk7N4Tre27vhZlmWmTRmzyZ cWFcdEPCgoSEBosIDIgthVrQaPAjGLYEEra2iyYsWLCyf8AYbSRxIS20A3PnhnB9z+29MNNMW1lwkyfz
j3PO+8ydaWr4LZENXmJ58wF/FRnji6Z1xuAZr9VxyRx3CuFHJ2+GrqjxzuskE+5jOXO5mY84CBd8ESwR cc55n7kzTY2gJTLhKyxrPuKvY6N8ybTO6T3njToum2NuLvrk9G3fNTXeep2mo11swVyxszEX4YIvgWWi
gwKB/lANNHOBY14w1+z5yDUV511szuzns+ZPnjUFz4EFkEc4iYiCgqT6XEN16l2ICDszsMvnzNsqtrWE VyAwGKoBOxM64Tlz3ZmP3VBx/sVSZjefM3/xjCn4AlgEWYSTiMgpSKrPNVSn3sWYcNKhfZ4y76rYxhJW
FbzMrfAP/jIs+BzIIHweuGUY9kf1ENSPOXsm9Ne2Bm6oeDz9dOg9fx4SfAbhs+BU5JJpoZbqc12jPpqh +Cq3oj/5q6jgKZBG+DzwyjAcjOohqB9zzkyk4lihWyoeTz8d+cBnIoLPInwOnIk8Mi3UUn2ua9RHMzSL
WWQ4M8EvMvwkc7evkQ46znRIOBYkUgRetBrlgBb6oevUS9AcZQCWvXPLcLL3HzoTQeE8A1OgXSRRg1rq DHc2/FWGn6bvd9WTYdedjgjXgkSKwMtGoxzQwiB0nXoJmqMMwDL37hhu5uFjdyIs3BdgCjSLJGpQS71h
DiOorkJpVmZMQZC/lzTY4nDaSQeE8xThWjRJMtWohRoVpK9lIKFC5UPSPHLYROCDwd7FLGccghRoF2mZ BNVVKM3KjCkIsg8SBlsaGHfHe4T7HOFaNEky1aiFGhWkr2UgoULlQ9I8cthEz0eDvY9b7hgESdAs0jKN
Rga4cdV0P81SBrLYk8Bng33/ajHGRI+A4Ne3Hgv+/O6t4KjROFewsbHhud7c3BSrq6uSYrHoqbUBwdFR DPDiqel+mqUMZLFnPV8M9uObxRgTlwQEv79fsuDvn8sVHNt2R8Hm5qbvemtrS6ytrUny+byv1gQEx8dt
V0EqlRIjIyOee7FYTDSbTc+9DpwvIOLxuOe6XdiFiwtqtZqIRqNidHRUrK+ve/rawS6lYMKv6KZ9B5pk BclkUgwPD/vuxeNxcXR05LvXgs4CYnBw0HfdLGzDxQV7e3uiv79fjIyMiI2NDV9fM9ilFEwEFb0070CT
MinK5bJvjUD2JxI8tm3bt0HTSVAqleSH9qtRJrInDWzj6v7+/rFfk8YtqFarotFoSOhbVCoVT68G4fSK SCTE9vZ2YI1A9mcSPHUcJ7BB00pQLBblhw6qUSayJw1s4/rBwcFJUJPGKyiXy8K2bQl9i1Kp5OvVIJxe
QvIfFc1r3XaxsrJyer69vS0SiYRka2vL06ehrMPDwx0ZTgs3rkOyS1a/gYtA4fV6neHpwyq+tQ4ODoZg UUT+o6J5vd0uVldXz853dnbE0NCQpFAo+Po0lFWv13dlOC3cuAnJPlmDBi4ChVcqFYanj6r4xqrVan2w
rdPvu9tuOkEz9IAIt5EzrGK9C9/iJkRFIN8xyf4H6kWowNzO3t6eqeI6LzT2Y2AMx7eQfjyHZfSlIWp9 Vun33W43raAZesBqteogZ0DF+tfh4eFtiPJAvmOS/Q/Ui1CBuV18T1PFtV5o7MbAKI7vIP3UgRX0jUPU
UM8yjH9Lp9JJz3wFnQAAAABJRU5ErkJggg== +KC+ZRj/AAl60jwf5aZUAAAAAElFTkSuQmCC
</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">
@@ -352,7 +352,7 @@
</value> </value>
</data> </data>
<data name="C1Rechnungen.PropBag" xml:space="preserve"> <data name="C1Rechnungen.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, 792, 379&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, 792, 379&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, 792, 379&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, 792, 379&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>

View File

@@ -297,6 +297,7 @@ Partial Class Mahnungen
' '
'C1Mahnungen2 'C1Mahnungen2
' '
Me.C1Mahnungen2.AllowUpdate = False
Me.C1Mahnungen2.AlternatingRows = True Me.C1Mahnungen2.AlternatingRows = True
Me.C1Mahnungen2.ContextMenuStrip = Me.ContextMenuMahnung2 Me.C1Mahnungen2.ContextMenuStrip = Me.ContextMenuMahnung2
Me.C1Mahnungen2.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Mahnungen2.Dock = System.Windows.Forms.DockStyle.Fill
@@ -410,6 +411,7 @@ Partial Class Mahnungen
' '
'C1Mahnungen1 'C1Mahnungen1
' '
Me.C1Mahnungen1.AllowUpdate = False
Me.C1Mahnungen1.AlternatingRows = True Me.C1Mahnungen1.AlternatingRows = True
Me.C1Mahnungen1.ContextMenuStrip = Me.ContextMenuMahnungen1 Me.C1Mahnungen1.ContextMenuStrip = Me.ContextMenuMahnungen1
Me.C1Mahnungen1.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Mahnungen1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -525,6 +527,7 @@ Partial Class Mahnungen
' '
'C1Mahnungen3 'C1Mahnungen3
' '
Me.C1Mahnungen3.AllowUpdate = False
Me.C1Mahnungen3.AlternatingRows = True Me.C1Mahnungen3.AlternatingRows = True
Me.C1Mahnungen3.ContextMenuStrip = Me.ContextMenuMahnung3 Me.C1Mahnungen3.ContextMenuStrip = Me.ContextMenuMahnung3
Me.C1Mahnungen3.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Mahnungen3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -637,6 +640,7 @@ Partial Class Mahnungen
' '
'C1Mahnungen4 'C1Mahnungen4
' '
Me.C1Mahnungen4.AllowUpdate = False
Me.C1Mahnungen4.AlternatingRows = True Me.C1Mahnungen4.AlternatingRows = True
Me.C1Mahnungen4.ContextMenuStrip = Me.ContextMenuMahnungen4 Me.C1Mahnungen4.ContextMenuStrip = Me.ContextMenuMahnungen4
Me.C1Mahnungen4.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Mahnungen4.Dock = System.Windows.Forms.DockStyle.Fill

View File

@@ -437,7 +437,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen2.PropBag" xml:space="preserve"> <data name="C1Mahnungen2.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, 792, 123&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, 792, 123&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" 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, 792, 123&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, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value> <value>560, 17</value>
@@ -497,7 +497,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen1.PropBag" xml:space="preserve"> <data name="C1Mahnungen1.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" 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, 792, 168&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, 792, 168&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" 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, 792, 168&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, 792, 168&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>453, 17</value> <value>453, 17</value>
@@ -557,7 +557,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen3.PropBag" xml:space="preserve"> <data name="C1Mahnungen3.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{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" 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, 792, 123&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, 792, 123&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, 792, 123&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, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>667, 17</value> <value>667, 17</value>
@@ -617,7 +617,7 @@
</value> </value>
</data> </data>
<data name="C1Mahnungen4.PropBag" xml:space="preserve"> <data name="C1Mahnungen4.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, 792, 138&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, 792, 138&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, 792, 138&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, 792, 138&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>108</value> <value>108</value>

View File

@@ -9,28 +9,36 @@ Public Class Mahnungen
Private Sub Mahnungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Mahnungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_data Refresh_data
End Sub End Sub
Sub refresh_data() Sub refresh_data(Optional type As Integer = 0)
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Me.C1Mahnungen1.DataSource = Nothing If type = 0 Or type = 1 Then
Me.C1Mahnungen2.DataSource = Nothing Me.C1Mahnungen1.DataSource = Nothing
Me.C1Mahnungen3.DataSource = Nothing db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen4.DataSource = Nothing Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
End If
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'") If type = 0 Or type = 2 Then
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0) Me.C1Mahnungen2.DataSource = Nothing
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'")
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
End If
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'") If type = 0 Or type = 3 Then
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0) Me.C1Mahnungen3.DataSource = Nothing
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'")
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
End If
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'") If type = 0 Or type = 4 Then
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0) Me.C1Mahnungen4.DataSource = Nothing
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null") db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0) Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
End If
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
@@ -74,12 +82,15 @@ Public Class Mahnungen
Case "DruckenToolStripMenuItem" Case "DruckenToolStripMenuItem"
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 1, False, False) Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
refresh_data(1)
Case "DruckenToolStrip2MenuItem" Case "DruckenToolStrip2MenuItem"
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 2, False, False) Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
refresh_data(2)
Case "DruckenToolStrip3MenuItem" Case "DruckenToolStrip3MenuItem"
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 3, False, False) Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
refresh_data(3)
End Select End Select
Catch ex As Exception Catch ex As Exception

View File

@@ -102,6 +102,9 @@ Partial Class frmFirma
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem() Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.ClsDokumente1 = New DPM2016.clsDokumente()
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem() Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
@@ -113,6 +116,7 @@ Partial Class frmFirma
Me.SuperTabControl1.SuspendLayout() Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout() Me.SuperTabControlPanel2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -808,6 +812,7 @@ Partial Class frmFirma
Me.SuperTabControl1.ControlBox.Name = "" Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox}) Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.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)
@@ -818,8 +823,8 @@ Partial Class frmFirma
Me.SuperTabControl1.Size = New System.Drawing.Size(1003, 608) 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.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.TabIndex = 223
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Finanzen}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Finanzen, Me.Dokumente})
Me.SuperTabControl1.Text = "SuperTabControl1" Me.SuperTabControl1.Text = "Dokumente"
' '
'SuperTabControlPanel1 'SuperTabControlPanel1
' '
@@ -889,6 +894,32 @@ Partial Class frmFirma
Me.Stammdaten.Name = "Stammdaten" Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten" Me.Stammdaten.Text = "Stammdaten"
' '
'SuperTabControlPanel3
'
Me.SuperTabControlPanel3.Controls.Add(Me.ClsDokumente1)
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1003, 583)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Dokumente
'
'ClsDokumente1
'
Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
Me.ClsDokumente1.Name = "ClsDokumente1"
Me.ClsDokumente1.Patientnr = 0
Me.ClsDokumente1.Size = New System.Drawing.Size(1003, 583)
Me.ClsDokumente1.TabIndex = 0
'
'Dokumente
'
Me.Dokumente.AttachedControl = Me.SuperTabControlPanel3
Me.Dokumente.GlobalItem = False
Me.Dokumente.Name = "Dokumente"
Me.Dokumente.Text = "Dokumente"
'
'SuperTabControlPanel2 'SuperTabControlPanel2
' '
Me.SuperTabControlPanel2.Controls.Add(Me.Finanzen1) Me.SuperTabControlPanel2.Controls.Add(Me.Finanzen1)
@@ -931,6 +962,7 @@ Partial Class frmFirma
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False) Me.SuperTabControlPanel2.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1018,4 +1050,7 @@ Partial Class frmFirma
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents SuperTabControlPanel3 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents ClsDokumente1 As clsDokumente
End Class End Class

View File

@@ -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;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> <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, 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>

View File

@@ -207,6 +207,9 @@ Public Class frmFirma
Me.Finanzen.Visible = False Me.Finanzen.Visible = False
End Select End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
Dim db As New clsDB Dim db As New clsDB
If Firmanr = 0 Then If Firmanr = 0 Then
db.Get_Tabledata("Firma", "Select * from firma order by name1, ort", "", "", False) db.Get_Tabledata("Firma", "Select * from firma order by name1, ort", "", "", False)
@@ -555,6 +558,12 @@ Public Class frmFirma
Dim db As New clsDB Dim db As New clsDB
Dim nrfirma As Integer = db.Search("Firma", Me.tstxtsuche.Text) Dim nrfirma As Integer = db.Search("Firma", Me.tstxtsuche.Text)
If nrfirma <> -1 Then Me.Firmanr = nrfirma If nrfirma <> -1 Then Me.Firmanr = nrfirma
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.Firmanr
Me.ClsDokumente1.Refresh_Grid()
End If
db.Dispose()
db.Dispose() db.Dispose()
End If End If
End Sub End Sub
@@ -580,6 +589,13 @@ Public Class frmFirma
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
End Sub End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.Firmanr
Me.ClsDokumente1.refreshdata()
End If
End Sub
#End Region #End Region

View File

@@ -3,7 +3,7 @@
Dim db As New clsDB Dim db As New clsDB
Dim tbl As New DataTable
Dim m_sql As String Dim m_sql As String
Property Dataselection As String Property Dataselection As String
@@ -59,9 +59,13 @@
IntTables.Inttables.Tables.Add(db.dsDaten.Tables(0).Copy) IntTables.Inttables.Tables.Add(db.dsDaten.Tables(0).Copy)
End If End If
If Me.TableAlias <> "" Then If Me.TableAlias <> "" Then
MyBase.DataSource = IntTables.Inttables.Tables(Me.TableAlias) tbl = IntTables.Inttables.Tables(Me.TableAlias).Copy
MyBase.DataSource = tbl
'MyBase.DataSource = IntTables.Inttables.Tables(Me.TableAlias)
Else Else
MyBase.DataSource = IntTables.Inttables.Tables(value) tbl = IntTables.Inttables.Tables(value).Copy
MyBase.DataSource = tbl
'MyBase.DataSource = IntTables.Inttables.Tables(value)
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try

View File

@@ -25,8 +25,8 @@ Partial Class Patient
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Patient)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Patient))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton() Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton() Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
@@ -43,6 +43,15 @@ Partial Class Patient
Me.btnVTX = New System.Windows.Forms.Button() Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails() Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem() Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.ClsDokumente1 = New DPM2016.clsDokumente()
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung() Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem() Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
@@ -52,12 +61,6 @@ Partial Class Patient
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen() Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem() Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.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()
@@ -66,18 +69,19 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout() Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel7.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout() Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout() Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout() Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.AllowDrop = True Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1278, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1278, 25)
@@ -93,15 +97,6 @@ Partial Class Patient
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22) Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnquit.Text = "Schliessen" Me.tsbtnquit.Text = "Schliessen"
' '
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
'
'tsbtnnew 'tsbtnnew
' '
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -111,6 +106,15 @@ Partial Class Patient
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22) Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz" Me.tsbtnnew.Text = "Neuer Datensatz"
' '
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
'
'ToolStripButton4 'ToolStripButton4
' '
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -218,11 +222,12 @@ Partial Class Patient
Me.SuperTabControl1.ControlBox.Name = "" Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox}) Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
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.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
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"
@@ -232,7 +237,7 @@ Partial Class Patient
Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 637) Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 637)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 18 Me.SuperTabControl1.TabIndex = 18
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Krankengeschichte}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
Me.SuperTabControl1.Text = "SuperTabControl1" Me.SuperTabControl1.Text = "SuperTabControl1"
' '
'SuperTabControlPanel1 'SuperTabControlPanel1
@@ -273,6 +278,85 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten" Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten" Me.Stammdaten.Text = "Stammdaten"
' '
'SuperTabControlPanel7
'
Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel7.TabIndex = 0
Me.SuperTabControlPanel7.TabItem = Me.Dokumente
'
'ClsDokumente1
'
Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
Me.ClsDokumente1.Name = "ClsDokumente1"
Me.ClsDokumente1.Patientnr = 0
Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 612)
Me.ClsDokumente1.TabIndex = 0
'
'Dokumente
'
Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
Me.Dokumente.GlobalItem = False
Me.Dokumente.Name = "Dokumente"
Me.Dokumente.Text = "Dokumente"
'
'SuperTabControlPanel6
'
Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel6.TabIndex = 0
Me.SuperTabControlPanel6.TabItem = Me.Recall
'
'Recall1
'
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Recall1.Location = New System.Drawing.Point(0, 0)
Me.Recall1.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1278, 612)
Me.Recall1.TabIndex = 0
'
'Recall
'
Me.Recall.AttachedControl = Me.SuperTabControlPanel6
Me.Recall.GlobalItem = False
Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall"
'
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
'
'Krankengeschichte1
'
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte
'
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.Enabled = False
Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "Krankengeschichte"
Me.Krankengeschichte.Text = "Krankengeschichte"
'
'SuperTabControlPanel3 'SuperTabControlPanel3
' '
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1) Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
@@ -353,59 +437,6 @@ Partial Class Patient
Me.Finanzen.Name = "Finanzen" Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen" Me.Finanzen.Text = "Finanzen"
' '
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
'
'Krankengeschichte1
'
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte
'
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.Enabled = False
Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "Krankengeschichte"
Me.Krankengeschichte.Text = "Krankengeschichte"
'
'SuperTabControlPanel6
'
Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel6.TabIndex = 0
Me.SuperTabControlPanel6.TabItem = Me.Recall
'
'Recall1
'
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Recall1.Location = New System.Drawing.Point(0, 0)
Me.Recall1.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1278, 612)
Me.Recall1.TabIndex = 0
'
'Recall
'
Me.Recall.AttachedControl = Me.SuperTabControlPanel6
Me.Recall.GlobalItem = False
Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall"
'
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.AllowMerge = False Me.MenuStrip1.AllowMerge = False
@@ -459,11 +490,12 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False) Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel7.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False) Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False) Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False) Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -509,4 +541,7 @@ Partial Class Patient
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 Friend WithEvents Label1 As Label
Friend WithEvents SuperTabControlPanel7 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents ClsDokumente1 As clsDokumente
End Class End Class

View File

@@ -137,14 +137,6 @@
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value> </value>
</data> </data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -160,6 +152,14 @@
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII= 7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value> </value>
</data> </data>
<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">

View File

@@ -60,6 +60,10 @@
Me.Behandlungen.Visible = False Me.Behandlungen.Visible = False
Me.Finanzen.Visible = False Me.Finanzen.Visible = False
End Select End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
' 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 +89,10 @@
Dim db As New clsDB Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text) Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat If nrprivat <> -1 Then Me.PatientNr = nrprivat
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refresh_Grid()
End If
db.Dispose() db.Dispose()
End If End If
End Sub End Sub
@@ -104,8 +112,11 @@
End Sub End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
Me.Text = PatientDetails1.Patientname If Me.PatientNr = Nr Then
Me.Label1.Text = PatientDetails1.Patientname Me.Text = PatientDetails1.Patientname
Me.Label1.Text = PatientDetails1.Patientname
End If
End Sub End Sub
@@ -204,6 +215,10 @@
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data() Me.Finanzen1.Refresh_Data()
End If End If
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refreshdata()
End If
End Sub End Sub
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen

View File

@@ -47,7 +47,7 @@ Public Class frmReportView
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 If kopie = 0 And 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 If buchen = False Then Exit Sub
@@ -82,6 +82,11 @@ Public Class frmReportView
db.Get_RptDatei((Me.ReportNr), FILENAME) db.Get_RptDatei((Me.ReportNr), FILENAME)
Me.freport.Preview = Me.previewControl1 Me.freport.Preview = Me.previewControl1
If vorschau = True Or design = True Then
Me.freport.Preview.Visible = True
Else
Me.freport.Preview.Visible = False
End If
Try Try
freport.Load(FILENAME) freport.Load(FILENAME)
Catch ex As Exception Catch ex As Exception
@@ -239,25 +244,26 @@ Public Class frmReportView
freport.PrintSettings.ShowDialog = False freport.PrintSettings.ShowDialog = False
freport.Print() freport.Print()
Exit Sub Try
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps" Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf" Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg" Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf" Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
pdfexport.ShowProgress = False
pdfexport.Subject = "Export"
pdfexport.Title = "Export"
pdfexport.Compressed = False
pdfexport.AllowPrint = True
pdfexport.EmbeddingFonts = False
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
Globals.pdfCollection.Add(s + ".pdf")
Catch ex As Exception
End Try
Dim XPSEXPORT As New FastReport.Export.OoXML.XPSExport
freport.Export(XPSEXPORT, xpsfilename)
Dim p As New ProcessStartInfo
p.Arguments = xpsfilename
p.FileName = Application.StartupPath + "\topdf.bat"
p.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(p)
Globals.RGCollection.Add(pdffilename)
End If End If
@@ -275,6 +281,12 @@ Public Class frmReportView
db.Get_RptDatei((Me.ReportNr), FILENAME) db.Get_RptDatei((Me.ReportNr), FILENAME)
Me.freport.Preview = Me.previewControl1 Me.freport.Preview = Me.previewControl1
If vorschaue = True Or design = True Then
Me.freport.Preview.Visible = True
Else
Me.freport.Preview.Visible = False
End If
' Me.freport.Preview.Visible = False
Try Try
freport.Load(FILENAME) freport.Load(FILENAME)
Catch ex As Exception Catch ex As Exception
@@ -383,10 +395,10 @@ Public Class frmReportView
daten.Tables.Add(db.dsDaten.Tables(0).Copy) daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar" daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar"
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") Globals.FakturaNr = db.dsDaten.Tables(0).Rows(0).Item("fakturanr")
If Rate < 2 Then Globals.HauptfakturaNr = Globals.FakturaNr
daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten" daten.Tables(daten.Tables.Count - 1).TableName = "ESDaten"
@@ -426,6 +438,7 @@ Public Class frmReportView
End If End If
If vorschaue = False And design = False Then If vorschaue = False And design = False Then
Dim printer As New clsPrinter Dim printer As New clsPrinter
Dim printername As String Dim printername As String
Dim papierschacht As String Dim papierschacht As String
@@ -437,7 +450,7 @@ Public Class frmReportView
Catch Catch
End Try End Try
If AsPDF = True Then If AsPDF Then
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps" Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf" Dim pdffilename As String = s + ".pdf"
@@ -453,67 +466,34 @@ Public Class frmReportView
pdfexport.EmbeddingFonts = False pdfexport.EmbeddingFonts = False
freport.Prepare() freport.Prepare()
freport.Export(pdfexport, s + ".PDF") freport.Export(pdfexport, s + ".PDF")
Process.Start(s + ".pdf") 'Process.Start(s + ".pdf")
Globals.pdfCollection.Add(s + ".pdf")
Exit Sub Exit Sub
End If End If
freport.PrintSettings.ShowDialog = False freport.PrintSettings.ShowDialog = False
freport.Print() freport.Print()
Exit Sub 'Export the printed Document
'Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString Try
'Dim xpsfilename As String = s + ".xps" Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
'Dim pdffilename As String = s + ".pdf" Dim xpsfilename As String = s + ".xps"
'Dim imagefilename As String = s + ".jpg" Dim pdffilename As String = s + ".pdf"
'Dim rtffilename As String = s + ".rtf" Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
'Dim pdfExport As New FastReport.Export.Pdf.PDFExport()
'pdfExport.ShowProgress = False
'pdfExport.Subject = "Export"
'pdfExport.Title = "Export"
'pdfExport.Compressed = False
'pdfExport.AllowPrint = True
'pdfExport.EmbeddingFonts = True
'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")
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
pdfexport.ShowProgress = False
pdfexport.Subject = "Export"
pdfexport.Title = "Export"
pdfexport.Compressed = False
pdfexport.AllowPrint = True
pdfexport.EmbeddingFonts = False
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
Globals.pdfCollection.Add(s + ".pdf")
Catch ex As Exception
End Try
End If End If
@@ -551,6 +531,11 @@ Public Class frmReportView
dbr(0) = "@iMahnstufe" dbr(0) = "@iMahnstufe"
dbr(1) = MahnStufe dbr(1) = MahnStufe
paramdaten.Rows.Add(dbr) paramdaten.Rows.Add(dbr)
dbr = paramdaten.NewRow
dbr(0) = "@iHauptfakturanr"
If ratenr = 0 Then dbr(1) = 0 Else dbr(1) = Globals.HauptfakturaNr
paramdaten.Rows.Add(dbr)
db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten) db.Get_Tabledata("sp_get_fakturadata", "", "", "", True, paramdaten)
Dim Referenznr As String Dim Referenznr As String
@@ -649,6 +634,7 @@ Public Class frmReportView
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter) Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei(Me.ReportNr, FILENAME) db.Get_RptDatei(Me.ReportNr, FILENAME)
Me.freport.Preview = Me.previewControl1 Me.freport.Preview = Me.previewControl1
Try Try
freport.Load(FILENAME) freport.Load(FILENAME)
Catch ex As Exception Catch ex As Exception

View File

@@ -49,21 +49,24 @@ Partial Class frmStammdaten
Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode22, TreeNode23}) Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode22, TreeNode23})
Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung") Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode25}) Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting", New System.Windows.Forms.TreeNode() {TreeNode25})
Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten") Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options") Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User") Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28})
Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28, TreeNode29}) Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode30, TreeNode31, TreeNode32})
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView() Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -154,15 +157,24 @@ Partial Class frmStammdaten
TreeNode25.Text = "Auswertung" TreeNode25.Text = "Auswertung"
TreeNode26.Name = "Reporting" TreeNode26.Name = "Reporting"
TreeNode26.Text = "Reporting" TreeNode26.Text = "Reporting"
TreeNode27.Name = "Spalten" TreeNode27.Name = "dms_settings"
TreeNode27.Text = "Spalten" TreeNode27.Tag = "DMS"
TreeNode28.Name = "Options" TreeNode27.Text = "Einstellungen"
TreeNode28.Text = "Options" TreeNode28.Name = "DMS_Struktur"
TreeNode29.Name = "User" TreeNode28.Tag = "DMS"
TreeNode29.Text = "User" TreeNode28.Text = "Struktur"
TreeNode30.Name = "Diverse" TreeNode29.Name = "DokumentManagement"
TreeNode30.Text = "Diverse" TreeNode29.Tag = "DMS"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode24, TreeNode26, TreeNode30}) TreeNode29.Text = "DokumentManagement"
TreeNode30.Name = "Spalten"
TreeNode30.Text = "Spalten"
TreeNode31.Name = "Options"
TreeNode31.Text = "Options"
TreeNode32.Name = "User"
TreeNode32.Text = "User"
TreeNode33.Name = "Diverse"
TreeNode33.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode24, TreeNode26, TreeNode29, TreeNode33})
Me.TreeView1.Size = New System.Drawing.Size(204, 425) Me.TreeView1.Size = New System.Drawing.Size(204, 425)
Me.TreeView1.TabIndex = 1 Me.TreeView1.TabIndex = 1
' '
@@ -182,6 +194,21 @@ Partial Class frmStammdaten
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1" Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag") Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
' '
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'ClsStammdaten_Bez1 'ClsStammdaten_Bez1
' '
Me.ClsStammdaten_Bez1.Connectionstring = Nothing Me.ClsStammdaten_Bez1.Connectionstring = Nothing
@@ -206,21 +233,6 @@ Partial Class frmStammdaten
Me.ClsStammdaten_flat1.TabIndex = 3 Me.ClsStammdaten_flat1.TabIndex = 3
Me.ClsStammdaten_flat1.Tablename = Nothing Me.ClsStammdaten_flat1.Tablename = Nothing
' '
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'frmStammdaten 'frmStammdaten
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

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{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&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{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style3{}Footer{}Style14{}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;}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>
</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>

View File

@@ -13,8 +13,28 @@ Public Class frmStammdaten
End Sub End Sub
Sub Refresh_Details() Sub Refresh_Details()
Try Try
Select Case UCase(TreeView1.SelectedNode.Tag)
If Me.TreeView1.SelectedNode.Tag <> "" Then Case "DEMO"
If Globals.License.DemoMode = True Then
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
Case "DMS"
If Globals.License.DMS = False Then
MsgBox("Für diese Funktion haben Sie keine entsprechende Lizenz.")
Me.ClsStammdaten_Bez1.Visible = False
Me.ClsStammdaten_flat1.Visible = False
'MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
Exit Sub
End If
End Select
Me.ClsStammdaten_Bez1.Visible = True
Me.ClsStammdaten_flat1.Visible = True
Dim t As String = Me.TreeView1.SelectedNode.Tag
t = UCase(t)
If t <> "" And t <> "DEMO" And t <> "DMS" Then
Dim splitter() Dim splitter()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";") splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
If splitter.Length > 1 Then If splitter.Length > 1 Then
@@ -49,12 +69,12 @@ Public Class frmStammdaten
If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
If Globals.License.DemoMode Then 'If Globals.License.DemoMode Then
If Me.TreeView1.SelectedNode.Tag = "Demo" Then ' If Me.TreeView1.SelectedNode.Tag = "Demo" Then
MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.") ' MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
Me.ClsStammdaten_flat1.get_data() Me.ClsStammdaten_flat1.get_data()
Try Try
@@ -67,7 +87,7 @@ Public Class frmStammdaten
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll() Me.TreeView1.ExpandAll()
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
End Sub End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
@@ -161,7 +181,7 @@ Public Class frmStammdaten
End Sub End Sub
Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
Refresh_Details() 'Refresh_Details()
End Sub End Sub
Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load

View File

@@ -18,6 +18,7 @@ Module Globals
Public Auswertungsverzeicnis As String = "\Default" Public Auswertungsverzeicnis As String = "\Default"
Public LogedIn As Boolean = False Public LogedIn As Boolean = False
Public FakturaNr As Integer = 0 Public FakturaNr As Integer = 0
Public HauptfakturaNr As Integer = 0
Public DefaultPrinter As String = "" Public DefaultPrinter As String = ""
Public Funktionsstufe As Integer = 0 Public Funktionsstufe As Integer = 0
Public encryptkey As String = "StefanHutterUnternehmensberatung2018" Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
@@ -26,6 +27,13 @@ Module Globals
Public Mainweindow As Windows.Forms.Form Public Mainweindow As Windows.Forms.Form
Public Databasename As String Public Databasename As String
Public Rg_Funktionen As New clsFakturaFunktionen Public Rg_Funktionen As New clsFakturaFunktionen
Public Filemanagement As New clsfilewatcher
Public PreViewDir As String = ""
Public SaveDir As String = ""
Public DokumentDir As String = ""
Public pdfCollection As New Collection
Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ") Public License As New SHUKeyGen.clsKeyGen("", "", "", "", "", ":DPMKEY:", "Steafn Hutter Unternehmensberatung, 8808 Pfäffikon SZ")
Public Enum Taxpunkttyp Public Enum Taxpunkttyp

View File

@@ -22,6 +22,7 @@ Partial Class frmSuche
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuche)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuche))
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()
@@ -29,36 +30,45 @@ Partial Class frmSuche
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton() Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl() Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.SuperTabItem4 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.SuperTabItem3 = New DevComponents.DotNetBar.SuperTabItem() Me.SuperTabItem3 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button1 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem() Me.SuperTabItem4 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel() Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.SuperTabItem2 = New DevComponents.DotNetBar.SuperTabItem() Me.SuperTabItem2 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DettailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
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.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout() Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout() Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout() Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'MenuStrip1 'MenuStrip1
@@ -118,10 +128,11 @@ Partial Class frmSuche
Me.SuperTabControl1.ControlBox.MenuBox.Name = "" Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = "" Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox}) Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4) Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
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.Dock = System.Windows.Forms.DockStyle.Top Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Top
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"
@@ -131,53 +142,9 @@ Partial Class frmSuche
Me.SuperTabControl1.Size = New System.Drawing.Size(800, 129) Me.SuperTabControl1.Size = New System.Drawing.Size(800, 129)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 22 Me.SuperTabControl1.TabIndex = 22
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4}) Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4, Me.Dokumente})
Me.SuperTabControl1.Text = "SuperTabControl1" Me.SuperTabControl1.Text = "SuperTabControl1"
' '
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.Button4)
Me.SuperTabControlPanel4.Controls.Add(Me.Label4)
Me.SuperTabControlPanel4.Controls.Add(Me.TextBox4)
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(800, 104)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.SuperTabItem4
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(12, 71)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 11
Me.Button4.Text = "Suchen"
Me.Button4.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 15)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(61, 13)
Me.Label4.TabIndex = 10
Me.Label4.Text = "Suchbegriff"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(79, 12)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(154, 20)
Me.TextBox4.TabIndex = 9
'
'SuperTabItem4
'
Me.SuperTabItem4.AttachedControl = Me.SuperTabControlPanel4
Me.SuperTabItem4.GlobalItem = False
Me.SuperTabItem4.Name = "SuperTabItem4"
Me.SuperTabItem4.Text = "Zahlung"
'
'SuperTabControlPanel3 'SuperTabControlPanel3
' '
Me.SuperTabControlPanel3.Controls.Add(Me.Button3) Me.SuperTabControlPanel3.Controls.Add(Me.Button3)
@@ -222,49 +189,49 @@ Partial Class frmSuche
Me.SuperTabItem3.Name = "SuperTabItem3" Me.SuperTabItem3.Name = "SuperTabItem3"
Me.SuperTabItem3.Text = "Rechnung" Me.SuperTabItem3.Text = "Rechnung"
' '
'SuperTabControlPanel1 'SuperTabControlPanel4
' '
Me.SuperTabControlPanel1.Controls.Add(Me.Button1) Me.SuperTabControlPanel4.Controls.Add(Me.Button4)
Me.SuperTabControlPanel1.Controls.Add(Me.Label1) Me.SuperTabControlPanel4.Controls.Add(Me.Label4)
Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1) Me.SuperTabControlPanel4.Controls.Add(Me.TextBox4)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25) Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1" Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(800, 104) Me.SuperTabControlPanel4.Size = New System.Drawing.Size(800, 104)
Me.SuperTabControlPanel1.TabIndex = 1 Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1 Me.SuperTabControlPanel4.TabItem = Me.SuperTabItem4
' '
'Button1 'Button4
' '
Me.Button1.Location = New System.Drawing.Point(12, 75) Me.Button4.Location = New System.Drawing.Point(12, 71)
Me.Button1.Name = "Button1" Me.Button4.Name = "Button4"
Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2 Me.Button4.TabIndex = 11
Me.Button1.Text = "Suchen" Me.Button4.Text = "Suchen"
Me.Button1.UseVisualStyleBackColor = True Me.Button4.UseVisualStyleBackColor = True
' '
'Label1 'Label4
' '
Me.Label1.AutoSize = True Me.Label4.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 18) Me.Label4.Location = New System.Drawing.Point(12, 15)
Me.Label1.Name = "Label1" Me.Label4.Name = "Label4"
Me.Label1.Size = New System.Drawing.Size(61, 13) Me.Label4.Size = New System.Drawing.Size(61, 13)
Me.Label1.TabIndex = 1 Me.Label4.TabIndex = 10
Me.Label1.Text = "Suchbegriff" Me.Label4.Text = "Suchbegriff"
' '
'TextBox1 'TextBox4
' '
Me.TextBox1.Location = New System.Drawing.Point(79, 15) Me.TextBox4.Location = New System.Drawing.Point(79, 12)
Me.TextBox1.Name = "TextBox1" Me.TextBox4.Name = "TextBox4"
Me.TextBox1.Size = New System.Drawing.Size(154, 20) Me.TextBox4.Size = New System.Drawing.Size(154, 20)
Me.TextBox1.TabIndex = 0 Me.TextBox4.TabIndex = 9
' '
'SuperTabItem1 'SuperTabItem4
' '
Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1 Me.SuperTabItem4.AttachedControl = Me.SuperTabControlPanel4
Me.SuperTabItem1.GlobalItem = False Me.SuperTabItem4.GlobalItem = False
Me.SuperTabItem1.Name = "SuperTabItem1" Me.SuperTabItem4.Name = "SuperTabItem4"
Me.SuperTabItem1.Text = "Patient" Me.SuperTabItem4.Text = "Zahlung"
' '
'SuperTabControlPanel2 'SuperTabControlPanel2
' '
@@ -310,9 +277,55 @@ Partial Class frmSuche
Me.SuperTabItem2.Name = "SuperTabItem2" Me.SuperTabItem2.Name = "SuperTabItem2"
Me.SuperTabItem2.Text = "Firma" Me.SuperTabItem2.Text = "Firma"
' '
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Button1)
Me.SuperTabControlPanel1.Controls.Add(Me.Label1)
Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1)
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(800, 104)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 75)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Suchen"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Suchbegriff"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(79, 15)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(154, 20)
Me.TextBox1.TabIndex = 0
'
'SuperTabItem1
'
Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
Me.SuperTabItem1.GlobalItem = False
Me.SuperTabItem1.Name = "SuperTabItem1"
Me.SuperTabItem1.Text = "Patient"
'
'C1Daten 'C1Daten
' '
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True Me.C1Daten.AlternatingRows = True
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column" Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
@@ -328,6 +341,62 @@ Partial Class frmSuche
Me.C1Daten.Text = "C1TrueDBGrid1" Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag") Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
' '
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DettailsAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(164, 26)
'
'DettailsAnzeigenToolStripMenuItem
'
Me.DettailsAnzeigenToolStripMenuItem.Name = "DettailsAnzeigenToolStripMenuItem"
Me.DettailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
Me.DettailsAnzeigenToolStripMenuItem.Text = "Dettails anzeigen"
'
'Dokumente
'
Me.Dokumente.AttachedControl = Me.SuperTabControlPanel5
Me.Dokumente.GlobalItem = False
Me.Dokumente.Name = "Dokumente"
Me.Dokumente.Text = "Dokumente"
'
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Button5)
Me.SuperTabControlPanel5.Controls.Add(Me.Label5)
Me.SuperTabControlPanel5.Controls.Add(Me.TextBox5)
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(800, 104)
Me.SuperTabControlPanel5.TabIndex = 0
Me.SuperTabControlPanel5.TabItem = Me.Dokumente
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(12, 70)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 23)
Me.Button5.TabIndex = 14
Me.Button5.Text = "Suchen"
Me.Button5.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 14)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(61, 13)
Me.Label5.TabIndex = 13
Me.Label5.Text = "Suchbegriff"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(79, 11)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(154, 20)
Me.TextBox5.TabIndex = 12
'
'frmSuche 'frmSuche
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -345,15 +414,18 @@ Partial Class frmSuche
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False) Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel4.PerformLayout()
Me.SuperTabControlPanel3.ResumeLayout(False) Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel3.PerformLayout() Me.SuperTabControlPanel3.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False) Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel1.PerformLayout() Me.SuperTabControlPanel4.PerformLayout()
Me.SuperTabControlPanel2.ResumeLayout(False) Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel2.PerformLayout() Me.SuperTabControlPanel2.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel5.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -386,4 +458,11 @@ Partial Class frmSuche
Friend WithEvents Button4 As Button Friend WithEvents Button4 As Button
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents TextBox4 As TextBox Friend WithEvents TextBox4 As TextBox
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents DettailsAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Button5 As Button
Friend WithEvents Label5 As Label
Friend WithEvents TextBox5 As TextBox
End Class End Class

View File

@@ -142,6 +142,9 @@
DzXbwlLPDlfpAAAAAElFTkSuQmCC DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -179,6 +182,6 @@
</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" 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, 798, 270&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, 798, 270&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, 798, 270&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, 798, 270&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data> </data>
</root> </root>

View File

@@ -1,4 +1,24 @@
Public Class frmSuche Public Class frmSuche
Dim m_dokumentsuche As Boolean
Property Dokumentsuche As Boolean
Get
Return m_dokumentsuche
End Get
Set(value As Boolean)
m_dokumentsuche = value
End Set
End Property
Dim m_key As Integer
Property Key As Integer
Get
Return m_key
End Get
Set(value As Integer)
m_key = value
End Set
End Property
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close() Me.Close()
End Sub End Sub
@@ -9,8 +29,20 @@
Private Sub C1Date_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick Private Sub C1Date_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Dim key As Integer
key = Me.C1Daten.Columns(0).Value Try
key = Me.C1Daten.Columns(0).Value
If Me.Dokumentsuche Then
Me.DialogResult = DialogResult.OK
Me.Close()
Exit Sub
End If
Catch
End Try
Try Try
key = Me.C1Daten.Columns(0).Value key = Me.C1Daten.Columns(0).Value
Select Case Me.SuperTabControl1.SelectedTab.Text Select Case Me.SuperTabControl1.SelectedTab.Text
@@ -63,6 +95,15 @@
End Sub End Sub
Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Me.Dokumentsuche Then
Me.SuperTabControl1.Tabs(2).Visible = False
Me.SuperTabControl1.Tabs(3).Visible = False
Me.SuperTabControl1.Tabs(4).Visible = False
Me.DettailsAnzeigenToolStripMenuItem.Text = "Auswählen"
End If
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs(4).Visible = False
End If
End Sub End Sub
@@ -117,4 +158,11 @@
Me.C1Daten.DataSource = db.dsDaten.Tables(0) Me.C1Daten.DataSource = db.dsDaten.Tables(0)
Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
End Sub End Sub
Private Sub DettailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DettailsAnzeigenToolStripMenuItem.Click
Me.C1Date_DoubleClick(sender, e)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
End Class End Class

View File

@@ -78,6 +78,7 @@ Public Class clscamt054
Public Sub Insert_Camt_Run(ByVal ifilename As String) Public Sub Insert_Camt_Run(ByVal ifilename As String)
Try Try
Dim db As New clsDB Dim db As New clsDB
db.Insert_New_Entry_autokey("Camt_Run", "nreintrag", False) db.Insert_New_Entry_autokey("Camt_Run", "nreintrag", False)
Dim dr As DataRow = db.dsDaten.Tables(0).Rows(0) Dim dr As DataRow = db.dsDaten.Tables(0).Rows(0)

View File

@@ -142,24 +142,24 @@
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP4SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP2SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb
dl2cOBMlThdHNCQmyId9MaiJUUdkCESqvATBdTFCV0ZSLNtcplN8iYBAqQ00KbLqattNNubGWtv19uXe dl2cOBMlThdnNCQmyId9MaiJUUdkCESqvATBdTFCO0bSWLexTKf4EgGBUhtoHHaSNm0394Ibay3r7cu9
+3jO7f2XSweM7J88OVtz7/M7zzm3t4vEGRgYeFCW5UukmWw2m4yOTyobT/8LafAvVRr6W7UORtSVh4a1 9/Gc2/svlztgZP/kydmae5/fec65vV0izsDAwIOyLF8kzeZyuXRsfErZdPpfSIPnVWkorkqDI+pqf1Rb
lYNjaDkU1mKjo6l4PH6ip6fnAUmSbmGRTVXJ7SrH7XY/DDqZTEYrqho+PBrHsj0BLN1+CktIXJe7z6O1 PTiGFv+fWmJ0NJNMJk/09PQ8IEnSLSyyqSq7XeV4vd6HQSebzWolVcNHR5NYsTeE5TtOYRmJ60pvFK2+
+xg8hwe0dDqNqakpRCIRxel0Sg6HY2l7e/tNht3c43K5HhWAydkiWntjuHdHCNXbzqD6kyCqnWdh9ybw Y/AFDmt0HaanpzEyMqK43W7J5XItb29vv8mwm388Hs+jAnBhroTW3gTu3RlB9fYzqP40jGr3WTj9KXyy
8c69mJ6eRrFY1JVMJhmidnV1vUuQZZTkdrKbk6Sqs7PzMQbwScoK1v+YxArXRTz0xQSW7x3HI19ewmve ax9mZmZQKpV0pdNphqhdXV3vEWQFJbmd7OYlqers7HyMAXzSsoINP6WxyjOFh76cxMp9E3jkq4t43Z+E
OJzbd0BVVV0M4CSpVArDw8MqebzNkKampjsr0+gATdNKNyoaOoMK7N0KLPuKeHp/EdaDwDrfKAF2lbtn e8dOqKqqiwGcJJPJIBqNquTxDkOamprutKbRAZqmlW9UNHSGFTh9Cmz7S3j6QAn2Q8D6wCgBdle6Z9G+
0b50gIC0tbW9bLfb72tsbLzNDCkDFEUB16//0PCCF7C6gfpuwMGA3gvY8tlu3bhQKCCRSCAcDiMYDCIU dICAtLW1vex0Ou9rbGy8zQypABRFAddv/tLwgh+we4F6H+BiQO84tn6+RzcuFotIpVIYHh5GOBxGJBLR
Cul/+/3+sbq6uifq6+vvaW5uvtnwvwwQ+n5Ew+peQNoPSgLYDgBr+mawZadLb0KId8DL5r1Eo1EEAgGF /w4Gg2N1dXVP1NfX39Pc3Hyz4X8ZIPRDTMNrvYB0AJQEcBwE1vbNYusuj96EEO+Al817icfjCIVCCiVY
Eqy12Wz3E+BWw//KBDymwAUV6wYpgQGweoAWXxpb97j17lkiCdd8Pq/DGELm6ynFipqamjsM/xJALI8V 53A47ifArYb/lQl4TKFxFesHKYEBsHcDLYEstu316t2zRBKuhUJBhzGEzDdQilU1NTV3GP5lgFgeK57R
TWn44FcaDxnbOAHVV/o0OF095fmbJaA8NhrPBkrxeENDw12GfwmQySnIZGXIuRzOjc1g0/E8nqXZ8x4Y 8OFvNB4ydnACqq/0aXB7eirzN0tAeWw0no2U4vGGhoa7DP8y4FJewaWcDDmfx7mxWWw+XsCzNHveA0Na
0vItsPsrr27EHbMxV/F/ju4zAB28hzmAlKzCn8jCOfQntv0whneO5PEiLVoyAKv6gM99R5GVc5iVybBA vgP2fO3XjbhjNuYq/s/TfQagg/cwD5CRVQRTObiHzmP7j2N490gBL9KiJQOwpg/4InAUOTmPOZkMi/QU
T1GuBGDzSgB9JxYb/pdHVCgq8E9o2HwKeOsI8OphA0BydGt445scNp9UsSuooT+cxsRMtjwe1nUBvGCO 5csANrcC6Dux1PC/PKJiSUFwUsOWU8DbR4BXvzUAJJdPw5uH89hyUsXusIb+4SwmZ3OV8bCuC+AFc2yu
zfX3fxR8dAx487vSY8oQHtVzlGjtz8D73jM4H7+od33DCdiYLxY1NF5AB+1hlQ+o2wc8Q/t4fQj41HcC f/yj4ONjwFvflx9ThvConqNE634BPvCfQTQ5pXd9wwnYmC8WNTJRRAftYU0AqNsPPEP7eGMI+CxwAhMX
45NTZWMxf3pRzg8QKYSOn43gvZ/+w0v0nVjTn0WvP1Humo0rdUMJxNMh9Mvpc9h0UsNv0XS5a9E5dy3q pivGYv70olwYIFIIHT/7N97/+T+8RN+Jtf059AZTla7Z2KobSiCeDqFfT5/D5pMafo9nK12LzrlrURdM
vAmEcSVgdra0yMonRhiLuiCAGEelqdmYP+eXHmteAJtdTQJoloCadV2AMOJqvok/q+za3Lmo8yYwdyxg IIytgLm58iKtT4wwFnVRADEOq6nZmD/nlx5rQQCbXU0CaJaAmnVdgDDiar6JP7N2be5c1AUTmDsWMKvM
lTKDzRLQawI8Hs/zZtNrmYhaKXMC+lXbSi+7J2tra5cY/ouq6D3eGovF9AsWqpGREV1kvtFqtT51BcBi YLME9JqA7u7u582m1zIR1SpzAvpV20Yvuydra2uXGf5Lqug93ppIJPQLFqtYLKaLzDfZ7fanrgDYbLa7
sdxNkSykDtJBuqB/gTpA928ojUha/D83lThHagRr+gAAAABJRU5ErkJggg== KZKN1EE6RBf0L1IH6f6N5RFJS/8HKpQ4Jwz2lUsAAAAASUVORK5CYII=
</value> </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">

View File

@@ -1,4 +1,6 @@
Public Class frmZahlung Imports System.IO
Imports System.IO.Compression
Public Class frmZahlung
Dim fname As String Dim fname As String
Dim lw As String Dim lw As String
@@ -32,6 +34,19 @@
Me.OpenFileDialog1.FilterIndex = 0 Me.OpenFileDialog1.FilterIndex = 0
Insert_Protokoll("Zahlungsdatei:" + Me.OpenFileDialog1.FileName) Insert_Protokoll("Zahlungsdatei:" + Me.OpenFileDialog1.FileName)
If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim checkdb As New clsDB
Dim fi As New FileInfo(OpenFileDialog1.FileName)
checkdb.Get_Tabledata("CMTFile", "", "Select * from CAMT_Run where sourcefilename='" + fi.Name + "'")
If checkdb.dsDaten.Tables(0).Rows.Count > 0 Then
If MsgBox("Die ausgewählte Zahlungsdatei wurde bereits verarbeitet. Möchten Sie die Verarbeitung wiederholen?", vbYesNo + vbQuestion) = vbNo Then
Insert_Protokoll("Zahlungsverarbeitung abgebrochen.")
Exit Sub
End If
End If
Dim s As String = System.IO.Path.GetExtension(OpenFileDialog1.FileName) Dim s As String = System.IO.Path.GetExtension(OpenFileDialog1.FileName)
s = UCase(s) s = UCase(s)
Select Case s Select Case s
@@ -82,7 +97,7 @@
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:", vbExclamation) MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:", vbExclamation)
Exit Sub Exit Sub
End If End If
Insert_Protokoll("Start Zahlungen verbudhen") Insert_Protokoll("Start Zahlungen verbuchen")
camt54.fehler = 0 camt54.fehler = 0
camt54.Daten_Verbuchen() camt54.Daten_Verbuchen()
If camt54.fehler <> 0 Then If camt54.fehler <> 0 Then

View File

@@ -4,3 +4,4 @@
˜ª´µ·»´ª¡¶¶ÂµeŽºº°ª„{w€rŠ|xii^mˆª³¯º²¬»n¶µ¹§­½¯˜¹³Æ¾ÁºÅ³·h¶©Æ£€Â¢ÇÈŶªœmbî¶w ˜ª´µ·»´ª¡¶¶ÂµeŽºº°ª„{w€rŠ|xii^mˆª³¯º²¬»n¶µ¹§­½¯˜¹³Æ¾ÁºÅ³·h¶©Æ£€Â¢ÇÈŶªœmbî¶w
¤·§¹·»´ª¡¶¶ÂµeŽºº°ª„{w€rŠ|xii^mˆª³¯º²¬»n¶µ¹§­½¯¤Æ¦Ê¾ÁºÅ³·h¶©Æ£€Â¢ÇÈŶªœmbî¶w ¤·§¹·»´ª¡¶¶ÂµeŽºº°ª„{w€rŠ|xii^mˆª³¯º²¬»n¶µ¹§­½¯¤Æ¦Ê¾ÁºÅ³·h¶©Æ£€Â¢ÇÈŶªœmbî¶w
˜ª´µ·»´¡Í˜£¡ˆÇªÄĪºŠ±½¶£±º°Çɉœ«¢X™ª~·µµ½†³¯Çµ§§´³…¹ÄÁw††³v¾¦»À¼½Å¦ÅºÇ¹°¨ ˜ª´µ·»´¡Í˜£¡ˆÇªÄĪºŠ±½¶£±º°Çɉœ«¢X™ª~·µµ½†³¯Çµ§§´³…¹ÄÁw††³v¾¦»À¼½Å¦ÅºÇ¹°¨
˜ª³°¥­·Àµ³¶²µ¹³n¸·Â·±¸²Å´ÅÁ„u¯¤±´¥s©®„´½·Ç½¦²a±©ÉµÀ´¹Á¼º´²¤¬½²²¸¯´±µ¸¹¬¬X£¡Ê«~yv†ÄÁ¸Æe¯¥»½É¶©±¹¾Á©·»´ƒ½¦Áƹ´Ä¥¨œbœ ¥´«®´x

View File

@@ -7,14 +7,14 @@
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" /> <framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks> </compatibleFrameworks>
<dependency> <dependency>
<dependentAssembly dependencyType="install" codebase="DPM2018.exe.manifest" size="31354"> <dependentAssembly dependencyType="install" codebase="DPM2018.exe.manifest" size="27539">
<assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" /> <assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>DBAtUtM4L1emWRZDuUVAhgEIDASYUJGNvTU/I3YRvOY=</dsig:DigestValue> <dsig:DigestValue>kT32j7oJA2WzlxmF/VEypk4fizSgLGc4YbzymxaX6nI=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@@ -52,56 +52,6 @@
<assemblyIdentity name="MySql.Data.Entity" version="6.7.4.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MySql.Data.Entity" version="6.7.4.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" />
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Windows.XmlSerializers" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.OfficeChart.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.SpellChecker.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Tools.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Tools.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Aga.Controls.dll" size="86016"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Aga.Controls.dll" size="86016">
<assemblyIdentity name="Aga.Controls" version="1.0.0.0" publicKeyToken="FCC90FBF924463A3" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Aga.Controls" version="1.0.0.0" publicKeyToken="FCC90FBF924463A3" language="neutral" processorArchitecture="msil" />
@@ -211,14 +161,14 @@
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="4913144"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="5638136">
<assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>jcdrlP4dTgZffcMrx1pXU1cNXuLl8CLKnR5j14rJ910=</dsig:DigestValue> <dsig:DigestValue>7Lkgjo5MqWHQrQ7iYtWFj4uBn0ID+3Ky2fmfOMUNXiw=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
@@ -270,6 +220,66 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Core.dll" size="110592">
<assemblyIdentity name="Gnostice.Core" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>VE7SaKOV+jNNS3Ni2H/rcTAIpaAXokUgU2HDgHPvgK0=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.dll" size="7866368">
<assemblyIdentity name="Gnostice.Free.Documents" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>Umg1wnzY1tccuofSRUUTKlIWU4wmWm8kthCUJ10aob0=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.Controls.WinForms.dll" size="176640">
<assemblyIdentity name="Gnostice.Free.Documents.Controls.WinForms" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>D72abgLC1I9PUZrhr3hJG+64Dwcl84cmJcLSCay6R6w=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeFontEngine.4.0.dll" size="712192">
<assemblyIdentity name="Gnostice.XtremeFontEngine.4.0" version="1.0.2021.425" publicKeyToken="461DE9DA64BE3A84" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6THuietrNIZBNBm2qkeLLqYZ35NLxe2l7Yfpuu4midY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeImageEngine.dll" size="594944">
<assemblyIdentity name="Gnostice.XtremeImageEngine" version="12.0.1696.132" publicKeyToken="67E9A3A7C22F1690" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>pNGJXV07g2oW2mw+nBq3OvOrARJybpbNxPebMJcYaOc=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400">
<assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" />
@@ -282,6 +292,30 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zip.Reduced.dll" size="199680">
<assemblyIdentity name="Ionic.Zip.Reduced" version="1.9.1.5" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>QZ6OokSECmSebDI3ZaIKe51fOypdw8/ELDms3ZYeYKY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zlib.dll" size="102400">
<assemblyIdentity name="Ionic.Zlib" version="1.9.1.8" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>841UdnZdwdshJzKABmmiJ5TarjvTh90GA2azhNNnjbE=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MySql.Data.dll" size="698368"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MySql.Data.dll" size="698368">
<assemblyIdentity name="MySql.Data" version="8.0.12.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MySql.Data" version="8.0.12.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" />
@@ -314,163 +348,67 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0kQ0ECE9Yssc8+VSB/OBR0wyAvrQohp9wU1XooeaAAk=</dsig:DigestValue> <dsig:DigestValue>geK4YQkCftVr3r0piMztFkKxuUV5k7IzQBSnapnZCEk=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Compression.Base.dll" size="77824"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Compression.Base.dll" size="77824">
<assemblyIdentity name="Syncfusion.Compression.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Compression.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>w7YDFs7JG9vsHL/9mcor2gJaXLMXWB51EBS3EuvmuTY=</dsig:DigestValue> <dsig:DigestValue>1ScUcT75tiLzlA5I53HBMuMTekq02JWjxr3wQOXFprI=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocIO.Base.dll" size="4878336"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="6098944">
<assemblyIdentity name="Syncfusion.DocIO.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Pdf.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>R9YpJ3C++XMKCh2vmWQTajUn3wmIc+JI1MQeitOkDH4=</dsig:DigestValue> <dsig:DigestValue>tWGgFCYEHEmx57z5BHjSmQg4wak3EfSKmXhAPC099TY=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocToPDFConverter.Base.dll" size="372736"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.PdfViewer.Windows.dll" size="1893888">
<assemblyIdentity name="Syncfusion.DocToPDFConverter.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.PdfViewer.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6scfFs8nXETuUezW4QqWamnLCsR5cz7QWK7QJ5i8zes=</dsig:DigestValue> <dsig:DigestValue>IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Base.dll" size="16384"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4308992">
<assemblyIdentity name="Syncfusion.Grid.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Shared.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>SWk9IKE+0SPRg3AWLfsjgP7f5btQ+NClbND+LFSilAI=</dsig:DigestValue> <dsig:DigestValue>THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Windows.dll" size="2031616"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="36864">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>mr/GGmbL1yJSDogYuXcB6KNK+SRKYKjJyrKFe9gNfpk=</dsig:DigestValue> <dsig:DigestValue>Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="5861376">
<assemblyIdentity name="Syncfusion.Pdf.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4naKSmLDTxXFDayCsIzQIEkZ/v6lDwMW4KCTHze4J/4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Schedule.Base.dll" size="73728">
<assemblyIdentity name="Syncfusion.Schedule.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>JlpTPCSUJ4ZVTC3ZhOOko8esU7863qTUqQVF5O+KC+c=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Schedule.Windows.dll" size="364544">
<assemblyIdentity name="Syncfusion.Schedule.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>qpMUG8ftEzEY6UOpg28s1ZUjJlHpm5N+hguI3BmgQaI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4214784">
<assemblyIdentity name="Syncfusion.Shared.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>aUAod78vI9kaA0nO9U+fhedzrU7f9i72rBX1Y09g1U4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="25600">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>1Qk23CEY4CjDovde+7WWRWUX8CFaEQo7LM1AIKxmEU8=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.SpellChecker.Base.dll" size="23552">
<assemblyIdentity name="Syncfusion.SpellChecker.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>qkv+B7s/bOgxmjNOJbDBbhBSayDuFlq+OVTmhHIowXI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Tools.Base.dll" size="16384">
<assemblyIdentity name="Syncfusion.Tools.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>RaMonFw25O7L9GS1aMA9TIYe4a57y/PKRGmyFShiL6A=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Tools.Windows.dll" size="12697600">
<assemblyIdentity name="Syncfusion.Tools.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4t88JDlFXeUQUQe9WNz6i9ZJ4rdHWRTwdrPtF7J5cWE=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@@ -94,6 +94,54 @@ DPM2018
</returns> </returns>
<remarks></remarks> <remarks></remarks>
</member> </member>
<member name="M:DPM2016.clsDok.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.clsDok.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.DokumentDetail.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.DokumentDetail.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmdokumentvorlagen.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmdokumentvorlagen.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.Check_Changes"> <member name="M:DPM2016.frmFirma.Check_Changes">
<summary> <summary>
Prüfung, ob Datenänderungen vorgenommen wurden. Prüfung, ob Datenänderungen vorgenommen wurden.

View File

@@ -18,3 +18,6 @@
41;40;Rechnungsstellung Jahr X und Abbuchung in Folgejahren;RG_Jahr_X_Abbuchung_Folgejahre.sql;RG_Jahr_X_Abbuchung_Folgejahre.frx 41;40;Rechnungsstellung Jahr X und Abbuchung in Folgejahren;RG_Jahr_X_Abbuchung_Folgejahre.sql;RG_Jahr_X_Abbuchung_Folgejahre.frx
42;40;Fakturierung nach Behandler;Fakturierungen_nach_behandler.sql;fakturierungen_nach_behandler.frx 42;40;Fakturierung nach Behandler;Fakturierungen_nach_behandler.sql;fakturierungen_nach_behandler.frx
43;40;Zahlungen nach Behandler;Zahlungen_nach_behandler.sql;Zahlungen_nach_behandler.frx 43;40;Zahlungen nach Behandler;Zahlungen_nach_behandler.sql;Zahlungen_nach_behandler.frx
40;0;Etiketten
41;40;KG-Etiketten;Labels_Privat.sql;KGEtiketten.frx
42;40;Adressettiketten;Labels_Privat.sql;Adressetiketten.frx

Binary file not shown.

Binary file not shown.

View File

@@ -1,169 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>Syncfusion.SpellChecker.Base</name>
</assembly>
<members>
<member name="T:Syncfusion.SpellChecker.Base.AccuracyLevels">
<summary>
Represents a list of accuracy levels based on which phonetic matching is executed for filtering suggestions
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.High">
<summary>
Represents a high level which filters maximum possible suggestions.
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.Medium">
<summary>
Represents a medium level which filters matching suggestions.
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.Low">
<summary>
Represents a most accurate level which filters accurate suggestions only.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.TransmutationHelper.GetTransmutations(System.Char[])">
<summary>
Returns a list of possible combinations for the given character array
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.VerbalProcessor.GetSimilarSounds(System.String,System.Collections.Generic.List{System.Object},Syncfusion.SpellChecker.Base.AccuracyLevels)">
<summary>
Returns a list of phonetic suggestions for the given word in specified accuracy level.
</summary>
</member>
<member name="T:ClassReferenceAttribute">
<summary>
Represents a class for the reference attributes
</summary>
</member>
<member name="P:ClassReferenceAttribute.IsReviewed">
<summary>
Returns a value when set
</summary>
<value>
<c>true</c> if instance is created ; otherwise, <c>false</c>.
</value>
</member>
<member name="P:ClassReferenceAttribute.ShouldInclude">
<summary>
Returns a value when set
</summary>
<value>
<c>true</c> if instance is created ; otherwise, <c>false</c>.
</value>
</member>
<member name="M:Syncfusion.SpellChecker.Base.Sorter.Compare(System.Object,System.Object)">
<summary>
Compares the two objects.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.Sorter.Compare(System.String,System.String)">
<summary>
Compares the two String values
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.ReverseSorter.Compare(System.String,System.String)">
<summary>
Compares the two object values.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.ReverseSorter.Reverse(System.String)">
<summary>
Returns reverse String of input String
</summary>
</member>
<member name="T:Syncfusion.SpellChecker.Base.SpellCheckerBase">
<summary>
SpellChecker base helps to find erroneous spelling in a word and provides suggestions for it.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.#ctor(System.IO.Stream)">
<summary>
Initializes the instance of SpellChecker base.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.#ctor">
<summary>
Initializes the instance of SpellChecker base.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.AddWordToDictionary(System.String)">
<summary>
Adds the word to dictionary word collection
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.HasError(System.String)">
<summary>
Checks whether the word exists in dictionary
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetSuggestions(System.String)">
<summary>
Returns the suggestions for error word
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetAnagrams(System.String)">
<summary>
Returns the anagrams for error word
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetPhoneticWords(System.String)">
<summary>
Returns the phonetic suggestions for error word in medium accuracy.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetPhoneticWords(System.String,Syncfusion.SpellChecker.Base.AccuracyLevels)">
<summary>
Returns the phonetic suggestions for error word in specified accuracy.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.IsPatternMatch(System.String)">
<summary>
Returns whether the word matches Email or File name or URL pattern.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.AddWordsInDictionaryStream(System.IO.Stream)">
<summary>
Adds the word from custom stream to dicitionary collection
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreAlphaNumericWords">
<summary>
Gets or Sets the boolean value to check AlphaNumericWords
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreFileNames">
<summary>
Gets or Sets the boolean value to check file names
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreHtmlTags">
<summary>
Gets or Sets the boolean value to check html tags
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreEmailAddress">
<summary>
Gets or Sets the boolean value to check Email addresses
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreMixedCaseWords">
<summary>
Gets or Sets the boolean value to check mixed case words
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreUpperCaseWords">
<summary>
Gets or Sets the boolean value to check upper case words
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreUrl">
<summary>
Gets or Sets the boolean value to check urls
</summary>
</member>
</members>
</doc>

View File

@@ -1,67 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>Syncfusion.Tools.Base</name>
</assembly>
<members>
<member name="T:Syncfusion.ToolsBaseAssembly">
<exclude/>
<summary>
This class holds the name of the Tools assembly and provides a helper
routine that helps with resolving types when loading a serialization stream and when the framework probes for assemblies by reflection.
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.Name">
<summary>
The full name of this assembly without version information, e.g. "Syncfusion.Tools".
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.Assembly">
<summary>
A reference to the <see cref="T:System.Reflection.Assembly"/> for the Tools assembly.
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.RootNamespace">
<summary>
The root namespace of this assembly. Used internally for locating resources within the assembly.
</summary>
</member>
<member name="M:Syncfusion.ToolsBaseAssembly.AssemblyResolver(System.Object,System.ResolveEventArgs)">
<summary>
This delegate helps with resolving types and can be used as an eventhandler
for a <see cref="E:System.AppDomain.AssemblyResolve"/> event.
</summary>
<param name="sender">The source of the event.</param>
<param name="e">The event data with information about the type.</param>
<returns>A reference to the assembly where the type is located.</returns>
<remarks>
<para>If the requested assembly is either Tools, Grid, or Shared, this method returns the reference
to the corresponding assembly, it is bound to.</para>
<para>It's mandatory that you distribute Syncfusion.Grid.dll and Syncfusion.Shared.dll when you use this
method in your application.</para>
<para>Use this handler when reading back types from a serialization stream
saved with an earlier version of this assembly.</para>
</remarks>
<example>
<code lang="C#">
public static AToolsType LoadSoap(Stream s)
{
try
{
AppDomain.CurrentDomain.AssemblyResolve += new ResolveEventHandler(ToolsAssembly.AssemblyResolver);
SoapFormatter b = new SoapFormatter();
b.AssemblyFormat = FormatterAssemblyStyle.Simple;
AToolsType t = b.Deserialize(s) as AToolsType;
return t;
}
finally
{
AppDomain.CurrentDomain.AssemblyResolve -= new ResolveEventHandler(ToolsAssembly.AssemblyResolver);
}
}
</code>
</example>
</member>
</members>
</doc>

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@@ -7,14 +7,14 @@
<framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" /> <framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks> </compatibleFrameworks>
<dependency> <dependency>
<dependentAssembly dependencyType="install" codebase="DPM2018.exe.manifest" size="31354"> <dependentAssembly dependencyType="install" codebase="DPM2018.exe.manifest" size="27539">
<assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" /> <assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>37LpAZycKU+gc52DQLZpCcqf1M1XpfSstUvAkIy1P40=</dsig:DigestValue> <dsig:DigestValue>XDzRIMQjIMnfi8LGcYc3Es59FQpWdnAKl1nNNB7k4yU=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@@ -52,56 +52,6 @@
<assemblyIdentity name="MySql.Data.Entity" version="6.7.4.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MySql.Data.Entity" version="6.7.4.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" />
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Grid.Windows.XmlSerializers" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.OfficeChart.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.SpellChecker.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Tools.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Syncfusion.Tools.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Aga.Controls.dll" size="86016"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Aga.Controls.dll" size="86016">
<assemblyIdentity name="Aga.Controls" version="1.0.0.0" publicKeyToken="FCC90FBF924463A3" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Aga.Controls" version="1.0.0.0" publicKeyToken="FCC90FBF924463A3" language="neutral" processorArchitecture="msil" />
@@ -211,14 +161,14 @@
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="4861432"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="5573112">
<assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>s3TO/BZxsTenr8m3MNgLlCWapDlTvKdGeleODxGYqy8=</dsig:DigestValue> <dsig:DigestValue>rPwG6TMSwXdQKqdmIt4MjEsGKyi7hL7HI3JBBJadKIA=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
@@ -270,6 +220,66 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Core.dll" size="110592">
<assemblyIdentity name="Gnostice.Core" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>VE7SaKOV+jNNS3Ni2H/rcTAIpaAXokUgU2HDgHPvgK0=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.dll" size="7866368">
<assemblyIdentity name="Gnostice.Free.Documents" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>Umg1wnzY1tccuofSRUUTKlIWU4wmWm8kthCUJ10aob0=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.Controls.WinForms.dll" size="176640">
<assemblyIdentity name="Gnostice.Free.Documents.Controls.WinForms" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>D72abgLC1I9PUZrhr3hJG+64Dwcl84cmJcLSCay6R6w=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeFontEngine.4.0.dll" size="712192">
<assemblyIdentity name="Gnostice.XtremeFontEngine.4.0" version="1.0.2021.425" publicKeyToken="461DE9DA64BE3A84" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6THuietrNIZBNBm2qkeLLqYZ35NLxe2l7Yfpuu4midY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeImageEngine.dll" size="594944">
<assemblyIdentity name="Gnostice.XtremeImageEngine" version="12.0.1696.132" publicKeyToken="67E9A3A7C22F1690" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>pNGJXV07g2oW2mw+nBq3OvOrARJybpbNxPebMJcYaOc=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Google.Protobuf.dll" size="294400">
<assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Google.Protobuf" version="3.5.1.0" publicKeyToken="A7D26565BAC4D604" language="neutral" processorArchitecture="msil" />
@@ -282,6 +292,30 @@
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zip.Reduced.dll" size="199680">
<assemblyIdentity name="Ionic.Zip.Reduced" version="1.9.1.5" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>QZ6OokSECmSebDI3ZaIKe51fOypdw8/ELDms3ZYeYKY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zlib.dll" size="102400">
<assemblyIdentity name="Ionic.Zlib" version="1.9.1.8" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>841UdnZdwdshJzKABmmiJ5TarjvTh90GA2azhNNnjbE=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MySql.Data.dll" size="698368"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MySql.Data.dll" size="698368">
<assemblyIdentity name="MySql.Data" version="8.0.12.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="MySql.Data" version="8.0.12.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" />
@@ -314,163 +348,67 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0kQ0ECE9Yssc8+VSB/OBR0wyAvrQohp9wU1XooeaAAk=</dsig:DigestValue> <dsig:DigestValue>geK4YQkCftVr3r0piMztFkKxuUV5k7IzQBSnapnZCEk=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Compression.Base.dll" size="77824"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Compression.Base.dll" size="77824">
<assemblyIdentity name="Syncfusion.Compression.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Compression.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>w7YDFs7JG9vsHL/9mcor2gJaXLMXWB51EBS3EuvmuTY=</dsig:DigestValue> <dsig:DigestValue>1ScUcT75tiLzlA5I53HBMuMTekq02JWjxr3wQOXFprI=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocIO.Base.dll" size="4878336"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="6098944">
<assemblyIdentity name="Syncfusion.DocIO.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Pdf.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>R9YpJ3C++XMKCh2vmWQTajUn3wmIc+JI1MQeitOkDH4=</dsig:DigestValue> <dsig:DigestValue>tWGgFCYEHEmx57z5BHjSmQg4wak3EfSKmXhAPC099TY=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocToPDFConverter.Base.dll" size="372736"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.PdfViewer.Windows.dll" size="1893888">
<assemblyIdentity name="Syncfusion.DocToPDFConverter.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.PdfViewer.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>6scfFs8nXETuUezW4QqWamnLCsR5cz7QWK7QJ5i8zes=</dsig:DigestValue> <dsig:DigestValue>IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Base.dll" size="16384"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4308992">
<assemblyIdentity name="Syncfusion.Grid.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Shared.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>SWk9IKE+0SPRg3AWLfsjgP7f5btQ+NClbND+LFSilAI=</dsig:DigestValue> <dsig:DigestValue>THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>
<dependency> <dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Windows.dll" size="2031616"> <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="36864">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" /> <assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash> <hash>
<dsig:Transforms> <dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" /> <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms> </dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" /> <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>mr/GGmbL1yJSDogYuXcB6KNK+SRKYKjJyrKFe9gNfpk=</dsig:DigestValue> <dsig:DigestValue>Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="5861376">
<assemblyIdentity name="Syncfusion.Pdf.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4naKSmLDTxXFDayCsIzQIEkZ/v6lDwMW4KCTHze4J/4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Schedule.Base.dll" size="73728">
<assemblyIdentity name="Syncfusion.Schedule.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>JlpTPCSUJ4ZVTC3ZhOOko8esU7863qTUqQVF5O+KC+c=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Schedule.Windows.dll" size="364544">
<assemblyIdentity name="Syncfusion.Schedule.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>qpMUG8ftEzEY6UOpg28s1ZUjJlHpm5N+hguI3BmgQaI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4214784">
<assemblyIdentity name="Syncfusion.Shared.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>aUAod78vI9kaA0nO9U+fhedzrU7f9i72rBX1Y09g1U4=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="25600">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>1Qk23CEY4CjDovde+7WWRWUX8CFaEQo7LM1AIKxmEU8=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.SpellChecker.Base.dll" size="23552">
<assemblyIdentity name="Syncfusion.SpellChecker.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>qkv+B7s/bOgxmjNOJbDBbhBSayDuFlq+OVTmhHIowXI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Tools.Base.dll" size="16384">
<assemblyIdentity name="Syncfusion.Tools.Base" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>RaMonFw25O7L9GS1aMA9TIYe4a57y/PKRGmyFShiL6A=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Tools.Windows.dll" size="12697600">
<assemblyIdentity name="Syncfusion.Tools.Windows" version="16.2460.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4t88JDlFXeUQUQe9WNz6i9ZJ4rdHWRTwdrPtF7J5cWE=</dsig:DigestValue>
</hash> </hash>
</dependentAssembly> </dependentAssembly>
</dependency> </dependency>

Binary file not shown.

View File

@@ -94,6 +94,54 @@ DPM2018
</returns> </returns>
<remarks></remarks> <remarks></remarks>
</member> </member>
<member name="M:DPM2016.clsDok.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.clsDok.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.DokumentDetail.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.DokumentDetail.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmdokumentvorlagen.LoadTreeView(System.Data.DataSet,DevComponents.AdvTree.AdvTree@)">
<summary>
Tree aufbauen
</summary>
<param name="oDS"></param>
<param name="oTreeview"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmdokumentvorlagen.RecursivelyLoadTree(System.Data.DataRow,DevComponents.AdvTree.Node@)">
<summary>
Child-Nodes hinzufügen
</summary>
<param name="oDataRow"></param>
<param name="oNode"></param>
<remarks></remarks>
</member>
<member name="M:DPM2016.frmFirma.Check_Changes"> <member name="M:DPM2016.frmFirma.Check_Changes">
<summary> <summary>
Prüfung, ob Datenänderungen vorgenommen wurden. Prüfung, ob Datenänderungen vorgenommen wurden.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -1,169 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>Syncfusion.SpellChecker.Base</name>
</assembly>
<members>
<member name="T:Syncfusion.SpellChecker.Base.AccuracyLevels">
<summary>
Represents a list of accuracy levels based on which phonetic matching is executed for filtering suggestions
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.High">
<summary>
Represents a high level which filters maximum possible suggestions.
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.Medium">
<summary>
Represents a medium level which filters matching suggestions.
</summary>
</member>
<member name="F:Syncfusion.SpellChecker.Base.AccuracyLevels.Low">
<summary>
Represents a most accurate level which filters accurate suggestions only.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.TransmutationHelper.GetTransmutations(System.Char[])">
<summary>
Returns a list of possible combinations for the given character array
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.VerbalProcessor.GetSimilarSounds(System.String,System.Collections.Generic.List{System.Object},Syncfusion.SpellChecker.Base.AccuracyLevels)">
<summary>
Returns a list of phonetic suggestions for the given word in specified accuracy level.
</summary>
</member>
<member name="T:ClassReferenceAttribute">
<summary>
Represents a class for the reference attributes
</summary>
</member>
<member name="P:ClassReferenceAttribute.IsReviewed">
<summary>
Returns a value when set
</summary>
<value>
<c>true</c> if instance is created ; otherwise, <c>false</c>.
</value>
</member>
<member name="P:ClassReferenceAttribute.ShouldInclude">
<summary>
Returns a value when set
</summary>
<value>
<c>true</c> if instance is created ; otherwise, <c>false</c>.
</value>
</member>
<member name="M:Syncfusion.SpellChecker.Base.Sorter.Compare(System.Object,System.Object)">
<summary>
Compares the two objects.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.Sorter.Compare(System.String,System.String)">
<summary>
Compares the two String values
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.ReverseSorter.Compare(System.String,System.String)">
<summary>
Compares the two object values.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.ReverseSorter.Reverse(System.String)">
<summary>
Returns reverse String of input String
</summary>
</member>
<member name="T:Syncfusion.SpellChecker.Base.SpellCheckerBase">
<summary>
SpellChecker base helps to find erroneous spelling in a word and provides suggestions for it.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.#ctor(System.IO.Stream)">
<summary>
Initializes the instance of SpellChecker base.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.#ctor">
<summary>
Initializes the instance of SpellChecker base.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.AddWordToDictionary(System.String)">
<summary>
Adds the word to dictionary word collection
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.HasError(System.String)">
<summary>
Checks whether the word exists in dictionary
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetSuggestions(System.String)">
<summary>
Returns the suggestions for error word
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetAnagrams(System.String)">
<summary>
Returns the anagrams for error word
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetPhoneticWords(System.String)">
<summary>
Returns the phonetic suggestions for error word in medium accuracy.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.GetPhoneticWords(System.String,Syncfusion.SpellChecker.Base.AccuracyLevels)">
<summary>
Returns the phonetic suggestions for error word in specified accuracy.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.IsPatternMatch(System.String)">
<summary>
Returns whether the word matches Email or File name or URL pattern.
</summary>
</member>
<member name="M:Syncfusion.SpellChecker.Base.SpellCheckerBase.AddWordsInDictionaryStream(System.IO.Stream)">
<summary>
Adds the word from custom stream to dicitionary collection
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreAlphaNumericWords">
<summary>
Gets or Sets the boolean value to check AlphaNumericWords
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreFileNames">
<summary>
Gets or Sets the boolean value to check file names
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreHtmlTags">
<summary>
Gets or Sets the boolean value to check html tags
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreEmailAddress">
<summary>
Gets or Sets the boolean value to check Email addresses
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreMixedCaseWords">
<summary>
Gets or Sets the boolean value to check mixed case words
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreUpperCaseWords">
<summary>
Gets or Sets the boolean value to check upper case words
</summary>
</member>
<member name="P:Syncfusion.SpellChecker.Base.SpellCheckerBase.IgnoreUrl">
<summary>
Gets or Sets the boolean value to check urls
</summary>
</member>
</members>
</doc>

View File

@@ -1,67 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>Syncfusion.Tools.Base</name>
</assembly>
<members>
<member name="T:Syncfusion.ToolsBaseAssembly">
<exclude/>
<summary>
This class holds the name of the Tools assembly and provides a helper
routine that helps with resolving types when loading a serialization stream and when the framework probes for assemblies by reflection.
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.Name">
<summary>
The full name of this assembly without version information, e.g. "Syncfusion.Tools".
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.Assembly">
<summary>
A reference to the <see cref="T:System.Reflection.Assembly"/> for the Tools assembly.
</summary>
</member>
<member name="F:Syncfusion.ToolsBaseAssembly.RootNamespace">
<summary>
The root namespace of this assembly. Used internally for locating resources within the assembly.
</summary>
</member>
<member name="M:Syncfusion.ToolsBaseAssembly.AssemblyResolver(System.Object,System.ResolveEventArgs)">
<summary>
This delegate helps with resolving types and can be used as an eventhandler
for a <see cref="E:System.AppDomain.AssemblyResolve"/> event.
</summary>
<param name="sender">The source of the event.</param>
<param name="e">The event data with information about the type.</param>
<returns>A reference to the assembly where the type is located.</returns>
<remarks>
<para>If the requested assembly is either Tools, Grid, or Shared, this method returns the reference
to the corresponding assembly, it is bound to.</para>
<para>It's mandatory that you distribute Syncfusion.Grid.dll and Syncfusion.Shared.dll when you use this
method in your application.</para>
<para>Use this handler when reading back types from a serialization stream
saved with an earlier version of this assembly.</para>
</remarks>
<example>
<code lang="C#">
public static AToolsType LoadSoap(Stream s)
{
try
{
AppDomain.CurrentDomain.AssemblyResolve += new ResolveEventHandler(ToolsAssembly.AssemblyResolver);
SoapFormatter b = new SoapFormatter();
b.AssemblyFormat = FormatterAssemblyStyle.Simple;
AToolsType t = b.Deserialize(s) as AToolsType;
return t;
}
finally
{
AppDomain.CurrentDomain.AssemblyResolve -= new ResolveEventHandler(ToolsAssembly.AssemblyResolver);
}
}
</code>
</example>
</member>
</members>
</doc>

File diff suppressed because it is too large Load Diff

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