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
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CryptoEditor", "CryptoEditor\CryptoEditor.vbproj", "{966835BD-32B9-468C-8A54-E5FB934FC910}"
EndProject
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}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C78BA301-98A0-41B2-B1C9-553567634286}.Release|Any CPU.Build.0 = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.Build.0 = Release|Any CPU
{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}.Release|Any CPU.ActiveCfg = Release|Any CPU

View File

@@ -40,7 +40,12 @@ Partial Class Behandlung
Me.SofortRechnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorschauToolStripMenuItem = 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.AlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.BehandlungLöschenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
@@ -58,19 +63,17 @@ Partial Class Behandlung
Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.Panel2 = New System.Windows.Forms.Panel()
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.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberDruckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.tsbtndelete.SuspendLayout()
@@ -79,10 +82,10 @@ Partial Class Behandlung
Me.ctxmenubehandlung.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.tsbtnbehandlungdelete.SuspendLayout()
Me.ContextMenuStrip1.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.Name = "ContextMenuStrip1"
Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 248)
Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 226)
'
'NeueBehandlungToolStripMenuItem1
'
@@ -205,7 +208,7 @@ Partial Class Behandlung
'
'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.Size = New System.Drawing.Size(211, 22)
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
@@ -213,15 +216,32 @@ Partial Class Behandlung
'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"
'
'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"
'
'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
'
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.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
'
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.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
'
Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
@@ -378,31 +435,6 @@ Partial Class Behandlung
Me.STLeistung.Name = "STLeistung"
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
'
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -444,18 +476,6 @@ Partial Class Behandlung
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
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
'
Me.Behandungdetail1.Behandlungsnr = 0
@@ -496,10 +516,10 @@ Partial Class Behandlung
Me.ctxmenubehandlung.ResumeLayout(False)
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.tsbtnbehandlungdelete.ResumeLayout(False)
Me.tsbtnbehandlungdelete.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
@@ -556,4 +576,7 @@ Partial Class Behandlung
Friend WithEvents RechnungKVEntwurfToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AlsPDFToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ÜberDruckerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator
Friend WithEvents AlsPdfToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AlsMailToolStripMenuItem As ToolStripMenuItem
End Class

View File

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

View File

@@ -282,8 +282,10 @@ Public Class Behandlung
End If
Globals.OnLoad = True
If Me.treebehandlungen.SelectedNode.Tag > 0 Then
Me.Behandungdetail1.SuspendLayout()
Me.Behandungdetail1.Patientnr = Me.PatientNr
Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungsstatus = Behandungdetail1.Behandlungsstatus
Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
@@ -293,6 +295,8 @@ Public Class Behandlung
End Try
enable_disable_tabs(True)
refresh_tabs()
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.ResumeLayout()
Else
enable_disable_tabs(False)
End If
@@ -632,6 +636,11 @@ Public Class Behandlung
If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then
fakt.Storno(Me.treebehandlungen.SelectedNode.Tag)
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
If Globals.License.DMS = True Then
Dim dok As New clsDok
dok.delete_doks(Me.treebehandlungen.SelectedNode.Tag)
dok = Nothing
End If
End If
Case 2
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
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
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
Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs)
@@ -851,7 +860,8 @@ Public Class Behandlung
End Sub
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
Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
@@ -871,7 +881,7 @@ Public Class Behandlung
End Sub
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
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Handles evh.Refresh_Behandlung
@@ -893,6 +903,7 @@ Public Class Behandlung
End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Dim s As String
@@ -911,6 +922,14 @@ Public Class Behandlung
End Try
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Benhandungdetail))
Me.GrpPatient = New System.Windows.Forms.GroupBox()
Me.cbboxNRESTyp = New DPM2016.MyCombobox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbboxnrbehandler = New DPM2016.MyCombobox()
Me.Label7 = New System.Windows.Forms.Label()
Me.grpZusammenfassugn = New System.Windows.Forms.GroupBox()
Me.txtcTotal = New System.Windows.Forms.Label()
@@ -44,8 +42,6 @@ Partial Class Benhandungdetail
Me.GrpGaramt = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblGesetz = New System.Windows.Forms.Label()
Me.cbboxNrGesetz = New DPM2016.MyCombobox()
Me.cbboxNrZuweiser = New DPM2016.MyCombobox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnDeleteKogudatum = New System.Windows.Forms.Button()
Me.btnDeleteUnfalldatum = New System.Windows.Forms.Button()
@@ -56,10 +52,8 @@ Partial Class Benhandungdetail
Me.DDTUnfalldatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.lblUnfalldatum = New System.Windows.Forms.Label()
Me.lblFallNummer = New System.Windows.Forms.Label()
Me.cbboxNrAnsprechpartner = New DPM2016.MyCombobox()
Me.lblAnsprechpartner = New System.Windows.Forms.Label()
Me.txtFallnummer = New System.Windows.Forms.TextBox()
Me.cbboxNrGarant = New DPM2016.MyCombobox()
Me.lblgarant = New System.Windows.Forms.Label()
Me.rbPrivatPersonen = 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.chkAndrucken_Taxpunkte = 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.cbboxNrAbrechnungstyp = New DPM2016.MyCombobox()
Me.lblAbrechnungstyp = New System.Windows.Forms.Label()
Me.cbboxNRRGtyp = New DPM2016.MyCombobox()
Me.lblRechnungstyp = New System.Windows.Forms.Label()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
@@ -109,7 +99,6 @@ Partial Class Benhandungdetail
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnGarantAnzeigen = New System.Windows.Forms.ToolStripButton()
Me.GrpRechnungstext = New System.Windows.Forms.GroupBox()
Me.cbboxrgtext = New DPM2016.MyCombobox()
Me.txtRechnungsbemerkung = New System.Windows.Forms.TextBox()
Me.lblDiagnose = New System.Windows.Forms.Label()
Me.txtDiagnose = New System.Windows.Forms.TextBox()
@@ -118,8 +107,27 @@ Partial Class Benhandungdetail
Me.grpglndiagnose = New System.Windows.Forms.GroupBox()
Me.lblBehandlungsart = New System.Windows.Forms.Label()
Me.txtBehandlungsgrund = New System.Windows.Forms.TextBox()
Me.cbboxNrBehandlungsart = New DPM2016.MyCombobox()
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.grpZusammenfassugn.SuspendLayout()
Me.GrpGaramt.SuspendLayout()
@@ -139,6 +147,7 @@ Partial Class Benhandungdetail
Me.ToolStrip1.SuspendLayout()
Me.GrpRechnungstext.SuspendLayout()
Me.grpglndiagnose.SuspendLayout()
Me.grpEmpfaenger.SuspendLayout()
Me.SuspendLayout()
'
'GrpPatient
@@ -154,18 +163,6 @@ Partial Class Benhandungdetail
Me.GrpPatient.TabStop = False
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
'
Me.Label6.AutoSize = True
@@ -175,18 +172,6 @@ Partial Class Benhandungdetail
Me.Label6.TabIndex = 21
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
'
Me.Label7.AutoSize = True
@@ -385,32 +370,6 @@ Partial Class Benhandungdetail
Me.lblGesetz.TabIndex = 223
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
'
Me.Label5.AutoSize = True
@@ -571,18 +530,6 @@ Partial Class Benhandungdetail
Me.lblFallNummer.TabIndex = 32
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
'
Me.lblAnsprechpartner.AutoSize = True
@@ -599,18 +546,6 @@ Partial Class Benhandungdetail
Me.txtFallnummer.Size = New System.Drawing.Size(151, 20)
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
'
Me.lblgarant.AutoSize = True
@@ -743,6 +678,7 @@ Partial Class Benhandungdetail
Me.xxtxtAnzahlraten.Size = New System.Drawing.Size(61, 20)
Me.xxtxtAnzahlraten.TabIndex = 3
Me.xxtxtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.xxtxtAnzahlraten.Visible = False
'
'chkUngeraterateamstart
'
@@ -1105,30 +1041,6 @@ Partial Class Benhandungdetail
Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag"
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
'
Me.lblAnsatz.AutoSize = True
@@ -1138,18 +1050,6 @@ Partial Class Benhandungdetail
Me.lblAnsatz.TabIndex = 27
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
'
Me.lblAbrechnungstyp.AutoSize = True
@@ -1159,18 +1059,6 @@ Partial Class Benhandungdetail
Me.lblAbrechnungstyp.TabIndex = 25
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
'
Me.lblRechnungstyp.AutoSize = True
@@ -1248,18 +1136,6 @@ Partial Class Benhandungdetail
Me.GrpRechnungstext.TabStop = False
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
'
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.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
'
Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -1348,19 +1308,145 @@ Partial Class Benhandungdetail
Me.cbboxNrBehandlungsart.TableAlias = ""
Me.cbboxNrBehandlungsart.Valuemember = Nothing
'
'lblBehandlungsgrund
'cbboxrgtext
'
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"
Me.cbboxrgtext.Dataselection = Nothing
Me.cbboxrgtext.Displaymember = Nothing
Me.cbboxrgtext.Location = New System.Drawing.Point(3, 20)
Me.cbboxrgtext.Name = "cbboxrgtext"
Me.cbboxrgtext.Size = New System.Drawing.Size(424, 21)
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.grpEmpfaenger)
Me.Controls.Add(Me.grpglndiagnose)
Me.Controls.Add(Me.GrpRechnungstext)
Me.Controls.Add(Me.ToolStrip1)
@@ -1400,6 +1486,8 @@ Partial Class Benhandungdetail
Me.GrpRechnungstext.PerformLayout()
Me.grpglndiagnose.ResumeLayout(False)
Me.grpglndiagnose.PerformLayout()
Me.grpEmpfaenger.ResumeLayout(False)
Me.grpEmpfaenger.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1501,4 +1589,12 @@ Partial Class Benhandungdetail
Friend WithEvents tsbtnGarantAnzeigen As ToolStripButton
Friend WithEvents lblBehandlungsart As Label
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

View File

@@ -153,6 +153,50 @@
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
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>
</data>
</root>

View File

@@ -14,14 +14,20 @@
m_behandlungsnr = value
If value <> 0 Then
Me.OnLoad = True
'Me.Enabled = False
Globals.OnLoad = True
Get_Stammdaten()
Globals.OnLoad = True
OnGetData = True
Get_Data()
OnGetData = False
Globals.OnLoad = False
Recalc_Totale()
Me.OnLoad = False
Me.HasChanges = False
'Me.Enabled = True
Recalc_Totale()
End If
End Set
End Property
@@ -518,6 +524,7 @@
End Sub
Public Sub Recalc_Totale()
If OnLoad Then Exit Sub
Dim zdb As New clsDB
Dim vz As Double = 0
zdb.Get_Tabledata("Zahlung", "where aktiv=1 And vorauszahlung=1 And nrbehandlung=" + Me.Behandlungsnr.ToString)
@@ -546,7 +553,10 @@
Dim total As Double
For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
If r("aktiv") = True Then
If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
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")
End If
Next
@@ -642,6 +652,7 @@
Private Sub cbboxNRRGtyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRRGtyp.SelectedIndexChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("rgtyp").Rows
@@ -655,6 +666,7 @@
End Sub
Private Sub cbboxNrAbrechnungstyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAbrechnungstyp.SelectedValueChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub
Update_cbboxnrtaxpunkt()
End Sub
@@ -676,6 +688,7 @@
End Sub
Private Sub cbboxNrAnsatz_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedValueChanged
If OnLoad Then Exit Sub
If OnGetData Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("ansatz").Rows
@@ -712,6 +725,7 @@
Me.tsbtnSave.Enabled = enable
Me.grpglndiagnose.Enabled = enable
Me.GrpRechnungstext.Enabled = enable
Me.grpEmpfaenger.Enabled = enable
End Sub
@@ -854,12 +868,21 @@
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()
Dim result As String = db.Get_Datavalue("Select status from behandlu where nrbehandlung=" + Me.Behandlungsnr.ToString, "")
If result <> 2 And result <> 5 Then
If MsgBox("Es können nur abgeschlossene Rechnungen/KV gedruckt und verbucht werden. Abschliessen und drucken/verbuchen?", vbYesNo + vbQuestion) = vbYes Then
btnAbschliessen_Click(sender, e)
'btnAbschliessen_Click(sender, e)
Else
Exit Sub
End If
@@ -871,8 +894,10 @@
Dim buchen As Boolean = True
If result = 5 Then buchen = False
Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
Dim reportnr As Integer
@@ -887,22 +912,38 @@
Globals.FakturaNr = 0
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
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.Show()
f.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen)
'f.Print_Rechnung(False, False, i)
f.Close()
'If i = 1 Then
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, 1)
' hauptfaktura = fakt.fakturanr
'Else
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, i, hauptfaktura)
'End If
f.Show()
f.Visible = False
f.Fakturierung(reportnr, Me.Behandlungsnr, "", i, buchen:=buchen)
f.Close()
If anzahlraten > 1 And i < 2 And Folgeauswertung > 0 Then
buchen = False
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim f1 As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString, alsPDF)
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
If Folgeauswertung > 0 Then
If Folgeauswertung > 0 And anzahlraten < 2 Then
buchen = False
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
@@ -912,6 +953,18 @@
doloop = False
End If
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)
End If
@@ -1147,6 +1200,7 @@
End Function
Private Sub cbboxNRESTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNRESTyp.SelectedIndexChanged
If OnLoad Then Exit Sub
Try
For Each r As DataRow In IntTables.Inttables.Tables("estyp").Rows
If r.Item("nrestyp") = cbboxNRESTyp.SelectedValue Then
@@ -1223,6 +1277,58 @@
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

View File

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

View File

@@ -119,6 +119,24 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ITSM\Vertragsverwaltung\bin\Debug\FlexCel.dll</HintPath>
</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">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll</HintPath>
@@ -134,37 +152,11 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Compression.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Syncfusion.DocIO.Base, Version=15.4350.0.20, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<Private>True</Private>
</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="Syncfusion.Compression.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Pdf.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.PdfViewer.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Shared.Base, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Shared.Windows, Version=16.2350.0.41, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
@@ -267,6 +259,38 @@
<Compile Include="Diverses\frmprogress.vb">
<SubType>Form</SubType>
</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="Fakturierung\clsFakturierung.vb" />
<Compile Include="Fakturierung\frmFakturierung.Designer.vb">
@@ -330,7 +354,9 @@
<Compile Include="KG\Krankengeschichte.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Klassen\clsMailClient.vb" />
<Compile Include="Klassen\clsNullableDatetimePicker.vb" />
<Compile Include="Klassen\clspdfhelper.vb" />
<Compile Include="Klassen\clsPrinter.vb" />
<Compile Include="Klassen\MyCombobox.vb">
<SubType>Component</SubType>
@@ -533,6 +559,21 @@
<EmbeddedResource Include="Diverses\frmprogress.resx">
<DependentUpon>frmprogress.vb</DependentUpon>
</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">
<DependentUpon>frmFakturierung.vb</DependentUpon>
</EmbeddedResource>

View File

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

View File

@@ -512,7 +512,35 @@ Public Class clsDB
End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
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
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"
Public Function Get_Tarife() As DataTable

View File

@@ -452,7 +452,7 @@
</value>
</data>
<data name="C1Abgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}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>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>
@@ -494,7 +494,7 @@
</value>
</data>
<data name="C1Ausgeschlossen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}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 name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@@ -54,14 +54,19 @@
End Sub
Sub Faktura_Aufbereiten(ByVal r As DataRow)
Globals.pdfCollection.Clear()
Dim buchen As Boolean = True
Dim anzahlraten As Integer = 0
Dim Empfaenger As String = ""
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString)
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
Empfaenger = db.dsDaten.Tables(0).Rows(0).Item("Empfaenger")
If anzahlraten = 0 Then anzahlraten = 1
Globals.FakturaNr = 0
Dim reportnr As Integer
reportnr = db.Get_ReportNr_by_ESTypnr(r.Item("nrestyp"))
Dim OriginalReportnr As Integer
OriginalReportnr = reportnr
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
@@ -72,13 +77,35 @@
Dim hauptfaktura As Integer
While doloop = True
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)
f.Visible = False
f.Show()
f.Visible = False
f.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen)
'f.Print_Rechnung(False, False, i)
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
If Folgeauswertung > 0 Then
If Folgeauswertung > 0 And anzahlraten < 2 Then
buchen = False
reportnr = Folgeauswertung
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
@@ -88,9 +115,17 @@
doloop = False
End If
End While
Dim pdfh As New clspdfhelper
pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Rechnung:")
pdfh = Nothing
Globals.pdfCollection.Clear()
Globals.FakturaNr = 0
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
Dim f As New frmPrinterselect
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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK6SURBVEhLtZRNTxNRFIbnH7hAV240MSayox9TFujGRaNr
cWFcdNOkCxISGmxFYESktNSCRoMfwbAlkLC1LJp0wYKV/QPGaGMTF2L5aJk7N4Tre27vhZlmWmTRmzyZ
j3PO+8ydaWr4LZENXmJ58wF/FRnji6Z1xuAZr9VxyRx3CuFHJ2+GrqjxzuskE+5jOXO5mY84CBd8ESwR
gwKB/lANNHOBY14w1+z5yDUV511szuzns+ZPnjUFz4EFkEc4iYiCgqT6XEN16l2ICDszsMvnzNsqtrWE
FbzMrfAP/jIs+BzIIHweuGUY9kf1ENSPOXsm9Ne2Bm6oeDz9dOg9fx4SfAbhs+BU5JJpoZbqc12jPpqh
WWQ4M8EvMvwkc7evkQ46znRIOBYkUgRetBrlgBb6oevUS9AcZQCWvXPLcLL3HzoTQeE8A1OgXSRRg1rq
DiOorkJpVmZMQZC/lzTY4nDaSQeE8xThWjRJMtWohRoVpK9lIKFC5UPSPHLYROCDwd7FLGccghRoF2mZ
Rga4cdV0P81SBrLYk8Bng33/ajHGRI+A4Ne3Hgv+/O6t4KjROFewsbHhud7c3BSrq6uSYrHoqbUBwdFR
V0EqlRIjIyOee7FYTDSbTc+9DpwvIOLxuOe6XdiFiwtqtZqIRqNidHRUrK+ve/rawS6lYMKv6KZ9B5pk
MinK5bJvjUD2JxI8tm3bt0HTSVAqleSH9qtRJrInDWzj6v7+/rFfk8YtqFarotFoSOhbVCoVT68G4fSK
QvIfFc1r3XaxsrJyer69vS0SiYRka2vL06ehrMPDwx0ZTgs3rkOyS1a/gYtA4fV6neHpwyq+tQ4ODoZg
rdPvu9tuOkEz9IAIt5EzrGK9C9/iJkRFIN8xyf4H6kWowNzO3t6eqeI6LzT2Y2AMx7eQfjyHZfSlIWp9
UM8yjH9Lp9JJz3wFnQAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK8SURBVEhLtZRNTxNRFIbnH7hAV240MSayK22nLNCNC6Jr
cWFcdEPCgoSEBosIDIgthVrQaPAjGLYEEra2iyYsWLCyf8AYbSRxIS20A3PnhnB9z+29MNNMW1lwkyfz
cc55n7kzTY2gJTLhKyxrPuKvY6N8ybTO6T3njToum2NuLvrk9G3fNTXeep2mo11swVyxszEX4YIvgWWi
VyAwGKoBOxM64Tlz3ZmP3VBx/sVSZjefM3/xjCn4AlgEWYSTiMgpSKrPNVSn3sWYcNKhfZ4y76rYxhJW
+Cq3oj/5q6jgKZBG+DzwyjAcjOohqB9zzkyk4lihWyoeTz8d+cBnIoLPInwOnIk8Mi3UUn2ua9RHMzSL
DHc2/FWGn6bvd9WTYdedjgjXgkSKwMtGoxzQwiB0nXoJmqMMwDL37hhu5uFjdyIs3BdgCjSLJGpQS71h
BNVVKM3KjCkIsg8SBlsaGHfHe4T7HOFaNEky1aiFGhWkr2UgoULlQ9I8cthEz0eDvY9b7hgESdAs0jKN
DPDiqel+mqUMZLFnPV8M9uObxRgTlwQEv79fsuDvn8sVHNt2R8Hm5qbvemtrS6ytrUny+byv1gQEx8dt
BclkUgwPD/vuxeNxcXR05LvXgs4CYnBw0HfdLGzDxQV7e3uiv79fjIyMiI2NDV9fM9ilFEwEFb0070CT
SCTE9vZ2YI1A9mcSPHUcJ7BB00pQLBblhw6qUSayJw1s4/rBwcFJUJPGKyiXy8K2bQl9i1Kp5OvVIJxe
UUT+o6J5vd0uVldXz853dnbE0NCQpFAo+Po0lFWv13dlOC3cuAnJPlmDBi4ChVcqFYanj6r4xqrVan2w
Vun33W43raAZesBqteogZ0DF+tfh4eFtiPJAvmOS/Q/Ui1CBuV18T1PFtV5o7MbAKI7vIP3UgRX0jUPU
+KC+ZRj/AAl60jwf5aZUAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -352,7 +352,7 @@
</value>
</data>
<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 name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

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

View File

@@ -437,7 +437,7 @@
</value>
</data>
<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>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
@@ -497,7 +497,7 @@
</value>
</data>
<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>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>453, 17</value>
@@ -557,7 +557,7 @@
</value>
</data>
<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>
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>667, 17</value>
@@ -617,7 +617,7 @@
</value>
</data>
<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>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<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
Refresh_data
End Sub
Sub refresh_data()
Sub refresh_data(Optional type As Integer = 0)
Cursor = Cursors.WaitCursor
Me.C1Mahnungen1.DataSource = Nothing
Me.C1Mahnungen2.DataSource = Nothing
Me.C1Mahnungen3.DataSource = Nothing
Me.C1Mahnungen4.DataSource = Nothing
If type = 0 Or type = 1 Then
Me.C1Mahnungen1.DataSource = Nothing
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'")
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) + "'")
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
If type = 0 Or type = 2 Then
Me.C1Mahnungen2.DataSource = Nothing
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) + "'")
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
If type = 0 Or type = 3 Then
Me.C1Mahnungen3.DataSource = Nothing
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) + "'")
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
If type = 0 Or type = 4 Then
Me.C1Mahnungen4.DataSource = Nothing
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
End If
Cursor = Cursors.Default
End Sub
@@ -74,12 +82,15 @@ Public Class Mahnungen
Case "DruckenToolStripMenuItem"
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
refresh_data(1)
Case "DruckenToolStrip2MenuItem"
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
refresh_data(2)
Case "DruckenToolStrip3MenuItem"
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
refresh_data(3)
End Select
Catch ex As Exception

View File

@@ -102,6 +102,9 @@ Partial Class frmFirma
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
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.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.MenuStrip1.SuspendLayout()
@@ -113,6 +116,7 @@ Partial Class frmFirma
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuspendLayout()
'
@@ -808,6 +812,7 @@ Partial Class frmFirma
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
@@ -818,8 +823,8 @@ Partial Class frmFirma
Me.SuperTabControl1.Size = New System.Drawing.Size(1003, 608)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 223
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Finanzen})
Me.SuperTabControl1.Text = "SuperTabControl1"
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Finanzen, Me.Dokumente})
Me.SuperTabControl1.Text = "Dokumente"
'
'SuperTabControlPanel1
'
@@ -889,6 +894,32 @@ Partial Class frmFirma
Me.Stammdaten.Name = "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
'
Me.SuperTabControlPanel2.Controls.Add(Me.Finanzen1)
@@ -931,6 +962,7 @@ Partial Class frmFirma
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1018,4 +1050,7 @@ Partial Class frmFirma
Friend WithEvents Panel1 As Panel
Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
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

View File

@@ -391,7 +391,7 @@
</value>
</data>
<data name="c1daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;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>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>231, 17</value>

View File

@@ -207,6 +207,9 @@ Public Class frmFirma
Me.Finanzen.Visible = False
End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
Dim db As New clsDB
If Firmanr = 0 Then
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 nrfirma As Integer = db.Search("Firma", Me.tstxtsuche.Text)
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()
End If
End Sub
@@ -580,6 +589,13 @@ Public Class frmFirma
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
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

View File

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

View File

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

View File

@@ -137,14 +137,6 @@
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -160,6 +152,14 @@
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
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>
</data>
<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.Finanzen.Visible = False
End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
' Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB
If db.Get_Option(9999) = "" Then
@@ -85,6 +89,10 @@
Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
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()
End If
End Sub
@@ -104,8 +112,11 @@
End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
Me.Text = PatientDetails1.Patientname
Me.Label1.Text = PatientDetails1.Patientname
If Me.PatientNr = Nr Then
Me.Text = PatientDetails1.Patientname
Me.Label1.Text = PatientDetails1.Patientname
End If
End Sub
@@ -204,6 +215,10 @@
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data()
End If
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refreshdata()
End If
End Sub
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.Parameter = Parameter
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)
If kopie = 1 Then Exit Sub
If buchen = False Then Exit Sub
@@ -82,6 +82,11 @@ Public Class frmReportView
db.Get_RptDatei((Me.ReportNr), FILENAME)
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
freport.Load(FILENAME)
Catch ex As Exception
@@ -239,25 +244,26 @@ Public Class frmReportView
freport.PrintSettings.ShowDialog = False
freport.Print()
Exit Sub
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Try
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
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
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 Try
End If
@@ -275,6 +281,12 @@ Public Class frmReportView
db.Get_RptDatei((Me.ReportNr), FILENAME)
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
freport.Load(FILENAME)
Catch ex As Exception
@@ -383,10 +395,10 @@ Public Class frmReportView
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
daten.Tables(daten.Tables.Count - 1).TableName = "Leistungen_Dentotar"
get_esdaten(Rate, kopie, Fakturanr)
daten.Tables.Add(db.dsDaten.Tables(0).Copy)
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"
@@ -426,6 +438,7 @@ Public Class frmReportView
End If
If vorschaue = False And design = False Then
Dim printer As New clsPrinter
Dim printername As String
Dim papierschacht As String
@@ -437,7 +450,7 @@ Public Class frmReportView
Catch
End Try
If AsPDF = True Then
If AsPDF Then
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
@@ -453,67 +466,34 @@ Public Class frmReportView
pdfexport.EmbeddingFonts = False
freport.Prepare()
freport.Export(pdfexport, s + ".PDF")
Process.Start(s + ".pdf")
'Process.Start(s + ".pdf")
Globals.pdfCollection.Add(s + ".pdf")
Exit Sub
End If
freport.PrintSettings.ShowDialog = False
freport.Print()
Exit Sub
'Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmss") + "_" + Me.NrBehandlung.ToString
'Dim xpsfilename As String = s + ".xps"
'Dim pdffilename As String = s + ".pdf"
'Dim imagefilename As String = s + ".jpg"
'Dim rtffilename As String = s + ".rtf"
'Dim pdfExport As New FastReport.Export.Pdf.PDFExport()
'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")
'Export the printed Document
Try
Dim s As String = My.Settings.DocArchivPath + "\" + Now.ToString("yyyyddMMhhmmssfff") + "_" + Me.NrBehandlung.ToString
Dim xpsfilename As String = s + ".xps"
Dim pdffilename As String = s + ".pdf"
Dim imagefilename As String = s + ".jpg"
Dim rtffilename As String = s + ".rtf"
Dim pdfexport As New FastReport.Export.Pdf.PDFExport
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
@@ -551,6 +531,11 @@ Public Class frmReportView
dbr(0) = "@iMahnstufe"
dbr(1) = MahnStufe
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)
Dim Referenznr As String
@@ -649,6 +634,7 @@ Public Class frmReportView
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei(Me.ReportNr, FILENAME)
Me.freport.Preview = Me.previewControl1
Try
freport.Load(FILENAME)
Catch ex As Exception

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 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 TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28, TreeNode29})
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("Struktur")
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("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))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.ContextMenuStrip1 = 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()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -154,15 +157,24 @@ Partial Class frmStammdaten
TreeNode25.Text = "Auswertung"
TreeNode26.Name = "Reporting"
TreeNode26.Text = "Reporting"
TreeNode27.Name = "Spalten"
TreeNode27.Text = "Spalten"
TreeNode28.Name = "Options"
TreeNode28.Text = "Options"
TreeNode29.Name = "User"
TreeNode29.Text = "User"
TreeNode30.Name = "Diverse"
TreeNode30.Text = "Diverse"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode16, TreeNode21, TreeNode24, TreeNode26, TreeNode30})
TreeNode27.Name = "dms_settings"
TreeNode27.Tag = "DMS"
TreeNode27.Text = "Einstellungen"
TreeNode28.Name = "DMS_Struktur"
TreeNode28.Tag = "DMS"
TreeNode28.Text = "Struktur"
TreeNode29.Name = "DokumentManagement"
TreeNode29.Tag = "DMS"
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.TabIndex = 1
'
@@ -182,6 +194,21 @@ Partial Class frmStammdaten
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
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
'
Me.ClsStammdaten_Bez1.Connectionstring = Nothing
@@ -206,21 +233,6 @@ Partial Class frmStammdaten
Me.ClsStammdaten_flat1.TabIndex = 3
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

View File

@@ -158,7 +158,7 @@
</value>
</data>
<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>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value>

View File

@@ -13,8 +13,28 @@ Public Class frmStammdaten
End Sub
Sub Refresh_Details()
Try
If Me.TreeView1.SelectedNode.Tag <> "" Then
Select Case UCase(TreeView1.SelectedNode.Tag)
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()
splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
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
Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
If Globals.License.DemoMode Then
If Me.TreeView1.SelectedNode.Tag = "Demo" Then
MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
Exit Sub
End If
End If
'If Globals.License.DemoMode Then
' If Me.TreeView1.SelectedNode.Tag = "Demo" Then
' MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
' Exit Sub
' End If
'End If
Me.ClsStammdaten_flat1.get_data()
Try
@@ -67,7 +87,7 @@ Public Class frmStammdaten
Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TreeView1.ExpandAll()
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
End Sub
Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
@@ -161,7 +181,7 @@ Public Class frmStammdaten
End Sub
Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
Refresh_Details()
'Refresh_Details()
End Sub
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 LogedIn As Boolean = False
Public FakturaNr As Integer = 0
Public HauptfakturaNr As Integer = 0
Public DefaultPrinter As String = ""
Public Funktionsstufe As Integer = 0
Public encryptkey As String = "StefanHutterUnternehmensberatung2018"
@@ -26,6 +27,13 @@ Module Globals
Public Mainweindow As Windows.Forms.Form
Public Databasename As String
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 Enum Taxpunkttyp

View File

@@ -22,6 +22,7 @@ Partial Class frmSuche
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuche))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -29,36 +30,45 @@ Partial Class frmSuche
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
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.Button3 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.SuperTabItem3 = 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.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.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
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.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.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
@@ -118,10 +128,11 @@ Partial Class frmSuche
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1"
@@ -131,53 +142,9 @@ Partial Class frmSuche
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.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"
'
'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
'
Me.SuperTabControlPanel3.Controls.Add(Me.Button3)
@@ -222,49 +189,49 @@ Partial Class frmSuche
Me.SuperTabItem3.Name = "SuperTabItem3"
Me.SuperTabItem3.Text = "Rechnung"
'
'SuperTabControlPanel1
'SuperTabControlPanel4
'
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
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
'
'Button1
'Button4
'
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
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
'
'Label1
'Label4
'
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"
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"
'
'TextBox1
'TextBox4
'
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
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
'
'SuperTabItem1
'SuperTabItem4
'
Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
Me.SuperTabItem1.GlobalItem = False
Me.SuperTabItem1.Name = "SuperTabItem1"
Me.SuperTabItem1.Text = "Patient"
Me.SuperTabItem4.AttachedControl = Me.SuperTabControlPanel4
Me.SuperTabItem4.GlobalItem = False
Me.SuperTabItem4.Name = "SuperTabItem4"
Me.SuperTabItem4.Text = "Zahlung"
'
'SuperTabControlPanel2
'
@@ -310,9 +277,55 @@ Partial Class frmSuche
Me.SuperTabItem2.Name = "SuperTabItem2"
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
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
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.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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -345,15 +414,18 @@ Partial Class frmSuche
Me.ToolStrip1.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel4.PerformLayout()
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel3.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel1.PerformLayout()
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel4.PerformLayout()
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel2.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel5.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -386,4 +458,11 @@ Partial Class frmSuche
Friend WithEvents Button4 As Button
Friend WithEvents Label4 As Label
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

View File

@@ -142,6 +142,9 @@
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</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">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -179,6 +182,6 @@
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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>
</root>

View File

@@ -1,4 +1,24 @@
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
Me.Close()
End Sub
@@ -9,8 +29,20 @@
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
key = Me.C1Daten.Columns(0).Value
Select Case Me.SuperTabControl1.SelectedTab.Text
@@ -63,6 +95,15 @@
End Sub
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
@@ -117,4 +158,11 @@
Me.C1Daten.DataSource = db.dsDaten.Tables(0)
Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
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

View File

@@ -78,6 +78,7 @@ Public Class clscamt054
Public Sub Insert_Camt_Run(ByVal ifilename As String)
Try
Dim db As New clsDB
db.Insert_New_Entry_autokey("Camt_Run", "nreintrag", False)
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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP4SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb
dl2cOBMlThdHNCQmyId9MaiJUUdkCESqvATBdTFCV0ZSLNtcplN8iYBAqQ00KbLqattNNubGWtv19uXe
+3jO7f2XSweM7J88OVtz7/M7zzm3t4vEGRgYeFCW5UukmWw2m4yOTyobT/8LafAvVRr6W7UORtSVh4a1
lYNjaDkU1mKjo6l4PH6ip6fnAUmSbmGRTVXJ7SrH7XY/DDqZTEYrqho+PBrHsj0BLN1+CktIXJe7z6O1
+xg8hwe0dDqNqakpRCIRxel0Sg6HY2l7e/tNht3c43K5HhWAydkiWntjuHdHCNXbzqD6kyCqnWdh9ybw
8c69mJ6eRrFY1JVMJhmidnV1vUuQZZTkdrKbk6Sqs7PzMQbwScoK1v+YxArXRTz0xQSW7x3HI19ewmve
OJzbd0BVVV0M4CSpVArDw8MqebzNkKampjsr0+gATdNKNyoaOoMK7N0KLPuKeHp/EdaDwDrfKAF2lbtn
0b50gIC0tbW9bLfb72tsbLzNDCkDFEUB16//0PCCF7C6gfpuwMGA3gvY8tlu3bhQKCCRSCAcDiMYDCIU
Cul/+/3+sbq6uifq6+vvaW5uvtnwvwwQ+n5Ew+peQNoPSgLYDgBr+mawZadLb0KId8DL5r1Eo1EEAgGF
Eqy12Wz3E+BWw//KBDymwAUV6wYpgQGweoAWXxpb97j17lkiCdd8Pq/DGELm6ynFipqamjsM/xJALI8V
TWn44FcaDxnbOAHVV/o0OF095fmbJaA8NhrPBkrxeENDw12GfwmQySnIZGXIuRzOjc1g0/E8nqXZ8x4Y
0vItsPsrr27EHbMxV/F/ju4zAB28hzmAlKzCn8jCOfQntv0whneO5PEiLVoyAKv6gM99R5GVc5iVybBA
T1GuBGDzSgB9JxYb/pdHVCgq8E9o2HwKeOsI8OphA0BydGt445scNp9UsSuooT+cxsRMtjwe1nUBvGCO
zfX3fxR8dAx487vSY8oQHtVzlGjtz8D73jM4H7+od33DCdiYLxY1NF5AB+1hlQ+o2wc8Q/t4fQj41HcC
45NTZWMxf3pRzg8QKYSOn43gvZ/+w0v0nVjTn0WvP1Humo0rdUMJxNMh9Mvpc9h0UsNv0XS5a9E5dy3q
vAmEcSVgdra0yMonRhiLuiCAGEelqdmYP+eXHmteAJtdTQJoloCadV2AMOJqvok/q+za3Lmo8yYwdyxg
lTKDzRLQawI8Hs/zZtNrmYhaKXMC+lXbSi+7J2tra5cY/ouq6D3eGovF9AsWqpGREV1kvtFqtT51BcBi
sdxNkSykDtJBuqB/gTpA928ojUha/D83lThHagRr+gAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP2SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRdlrrb
dl2cOBMlThdnNCQmyId9MaiJUUdkCESqvATBdTFCO0bSWLexTKf4EgGBUhtoHHaSNm0394Ibay3r7cu9
9/Gc2/svlztgZP/kydmae5/fec65vV0izsDAwIOyLF8kzeZyuXRsfErZdPpfSIPnVWkorkqDI+pqf1Rb
PTiGFv+fWmJ0NJNMJk/09PQ8IEnSLSyyqSq7XeV4vd6HQSebzWolVcNHR5NYsTeE5TtOYRmJ60pvFK2+
Y/AFDmt0HaanpzEyMqK43W7J5XItb29vv8mwm388Hs+jAnBhroTW3gTu3RlB9fYzqP40jGr3WTj9KXyy
ax9mZmZQKpV0pdNphqhdXV3vEWQFJbmd7OYlqers7HyMAXzSsoINP6WxyjOFh76cxMp9E3jkq4t43Z+E
e8dOqKqqiwGcJJPJIBqNquTxDkOamprutKbRAZqmlW9UNHSGFTh9Cmz7S3j6QAn2Q8D6wCgBdle6Z9G+
dICAtLW1vex0Ou9rbGy8zQypABRFAddv/tLwgh+we4F6H+BiQO84tn6+RzcuFotIpVIYHh5GOBxGJBLR
/w4Gg2N1dXVP1NfX39Pc3Hyz4X8ZIPRDTMNrvYB0AJQEcBwE1vbNYusuj96EEO+Al817icfjCIVCCiVY
53A47ifArYb/lQl4TKFxFesHKYEBsHcDLYEstu316t2zRBKuhUJBhzGEzDdQilU1NTV3GP5lgFgeK57R
8OFvNB4ydnACqq/0aXB7eirzN0tAeWw0no2U4vGGhoa7DP8y4FJewaWcDDmfx7mxWWw+XsCzNHveA0Na
vgP2fO3XjbhjNuYq/s/TfQagg/cwD5CRVQRTObiHzmP7j2N490gBL9KiJQOwpg/4InAUOTmPOZkMi/QU
5csANrcC6Dux1PC/PKJiSUFwUsOWU8DbR4BXvzUAJJdPw5uH89hyUsXusIb+4SwmZ3OV8bCuC+AFc2yu
f/yj4ONjwFvflx9ThvConqNE634BPvCfQTQ5pXd9wwnYmC8WNTJRRAftYU0AqNsPPEP7eGMI+CxwAhMX
pivGYv70olwYIFIIHT/7N97/+T+8RN+Jtf059AZTla7Z2KobSiCeDqFfT5/D5pMafo9nK12LzrlrURdM
IIytgLm58iKtT4wwFnVRADEOq6nZmD/nlx5rQQCbXU0CaJaAmnVdgDDiar6JP7N2be5c1AUTmDsWMKvM
YLME9JqA7u7u582m1zIR1SpzAvpV20Yvuydra2uXGf5Lqug93ppIJPQLFqtYLKaLzDfZ7fanrgDYbLa7
KZKN1EE6RBf0L1IH6f6N5RFJS/8HKpQ4Jwz2lUsAAAAASUVORK5CYII=
</value>
</data>
<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 lw As String
@@ -32,6 +34,19 @@
Me.OpenFileDialog1.FilterIndex = 0
Insert_Protokoll("Zahlungsdatei:" + Me.OpenFileDialog1.FileName)
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)
s = UCase(s)
Select Case s
@@ -82,7 +97,7 @@
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:", vbExclamation)
Exit Sub
End If
Insert_Protokoll("Start Zahlungen verbudhen")
Insert_Protokoll("Start Zahlungen verbuchen")
camt54.fehler = 0
camt54.Daten_Verbuchen()
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
˜ª´µ·»´¡Í˜£¡ˆÇªÄĪºŠ±½¶£±º°Çɉœ«¢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" />
</compatibleFrameworks>
<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" />
<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>DBAtUtM4L1emWRZDuUVAhgEIDASYUJGNvTU/I3YRvOY=</dsig:DigestValue>
<dsig:DigestValue>kT32j7oJA2WzlxmF/VEypk4fizSgLGc4YbzymxaX6nI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</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" />
</dependentAssembly>
</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>
<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" />
@@ -211,14 +161,14 @@
</dependentAssembly>
</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" />
<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>jcdrlP4dTgZffcMrx1pXU1cNXuLl8CLKnR5j14rJ910=</dsig:DigestValue>
<dsig:DigestValue>7Lkgjo5MqWHQrQ7iYtWFj4uBn0ID+3Ky2fmfOMUNXiw=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@@ -270,6 +220,66 @@
</hash>
</dependentAssembly>
</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>
<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" />
@@ -282,6 +292,30 @@
</hash>
</dependentAssembly>
</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>
<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" />
@@ -314,163 +348,67 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0kQ0ECE9Yssc8+VSB/OBR0wyAvrQohp9wU1XooeaAAk=</dsig:DigestValue>
<dsig:DigestValue>geK4YQkCftVr3r0piMztFkKxuUV5k7IzQBSnapnZCEk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<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>
<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>w7YDFs7JG9vsHL/9mcor2gJaXLMXWB51EBS3EuvmuTY=</dsig:DigestValue>
<dsig:DigestValue>1ScUcT75tiLzlA5I53HBMuMTekq02JWjxr3wQOXFprI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocIO.Base.dll" size="4878336">
<assemblyIdentity name="Syncfusion.DocIO.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="6098944">
<assemblyIdentity name="Syncfusion.Pdf.Base" version="16.2350.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>R9YpJ3C++XMKCh2vmWQTajUn3wmIc+JI1MQeitOkDH4=</dsig:DigestValue>
<dsig:DigestValue>tWGgFCYEHEmx57z5BHjSmQg4wak3EfSKmXhAPC099TY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocToPDFConverter.Base.dll" size="372736">
<assemblyIdentity name="Syncfusion.DocToPDFConverter.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.PdfViewer.Windows.dll" size="1893888">
<assemblyIdentity name="Syncfusion.PdfViewer.Windows" version="16.2350.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>6scfFs8nXETuUezW4QqWamnLCsR5cz7QWK7QJ5i8zes=</dsig:DigestValue>
<dsig:DigestValue>IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Base.dll" size="16384">
<assemblyIdentity name="Syncfusion.Grid.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4308992">
<assemblyIdentity name="Syncfusion.Shared.Base" version="16.2350.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>SWk9IKE+0SPRg3AWLfsjgP7f5btQ+NClbND+LFSilAI=</dsig:DigestValue>
<dsig:DigestValue>THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Windows.dll" size="2031616">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="36864">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2350.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>mr/GGmbL1yJSDogYuXcB6KNK+SRKYKjJyrKFe9gNfpk=</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>
<dsig:DigestValue>Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@@ -94,6 +94,54 @@ DPM2018
</returns>
<remarks></remarks>
</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">
<summary>
Prüfung, ob Datenänderungen vorgenommen wurden.

View File

@@ -17,4 +17,7 @@
40;0;Diverse;;;
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
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" />
</compatibleFrameworks>
<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" />
<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>37LpAZycKU+gc52DQLZpCcqf1M1XpfSstUvAkIy1P40=</dsig:DigestValue>
<dsig:DigestValue>XDzRIMQjIMnfi8LGcYc3Es59FQpWdnAKl1nNNB7k4yU=</dsig:DigestValue>
</hash>
</dependentAssembly>
</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" />
</dependentAssembly>
</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>
<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" />
@@ -211,14 +161,14 @@
</dependentAssembly>
</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" />
<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>s3TO/BZxsTenr8m3MNgLlCWapDlTvKdGeleODxGYqy8=</dsig:DigestValue>
<dsig:DigestValue>rPwG6TMSwXdQKqdmIt4MjEsGKyi7hL7HI3JBBJadKIA=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
@@ -270,6 +220,66 @@
</hash>
</dependentAssembly>
</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>
<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" />
@@ -282,6 +292,30 @@
</hash>
</dependentAssembly>
</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>
<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" />
@@ -314,163 +348,67 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>0kQ0ECE9Yssc8+VSB/OBR0wyAvrQohp9wU1XooeaAAk=</dsig:DigestValue>
<dsig:DigestValue>geK4YQkCftVr3r0piMztFkKxuUV5k7IzQBSnapnZCEk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<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>
<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>w7YDFs7JG9vsHL/9mcor2gJaXLMXWB51EBS3EuvmuTY=</dsig:DigestValue>
<dsig:DigestValue>1ScUcT75tiLzlA5I53HBMuMTekq02JWjxr3wQOXFprI=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocIO.Base.dll" size="4878336">
<assemblyIdentity name="Syncfusion.DocIO.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="6098944">
<assemblyIdentity name="Syncfusion.Pdf.Base" version="16.2350.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>R9YpJ3C++XMKCh2vmWQTajUn3wmIc+JI1MQeitOkDH4=</dsig:DigestValue>
<dsig:DigestValue>tWGgFCYEHEmx57z5BHjSmQg4wak3EfSKmXhAPC099TY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DocToPDFConverter.Base.dll" size="372736">
<assemblyIdentity name="Syncfusion.DocToPDFConverter.Base" version="15.4350.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.PdfViewer.Windows.dll" size="1893888">
<assemblyIdentity name="Syncfusion.PdfViewer.Windows" version="16.2350.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>6scfFs8nXETuUezW4QqWamnLCsR5cz7QWK7QJ5i8zes=</dsig:DigestValue>
<dsig:DigestValue>IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Base.dll" size="16384">
<assemblyIdentity name="Syncfusion.Grid.Base" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4308992">
<assemblyIdentity name="Syncfusion.Shared.Base" version="16.2350.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>SWk9IKE+0SPRg3AWLfsjgP7f5btQ+NClbND+LFSilAI=</dsig:DigestValue>
<dsig:DigestValue>THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Windows.dll" size="2031616">
<assemblyIdentity name="Syncfusion.Grid.Windows" version="15.4460.0.20" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="36864">
<assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2350.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>mr/GGmbL1yJSDogYuXcB6KNK+SRKYKjJyrKFe9gNfpk=</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>
<dsig:DigestValue>Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

View File

@@ -94,6 +94,54 @@ DPM2018
</returns>
<remarks></remarks>
</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">
<summary>
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