diff --git a/.vs/DPM2016/v15/.suo b/.vs/DPM2016/v15/.suo
index 91e502b..3fa5746 100644
Binary files a/.vs/DPM2016/v15/.suo and b/.vs/DPM2016/v15/.suo differ
diff --git a/.vs/DPM2016/v15/Server/sqlite3/storage.ide b/.vs/DPM2016/v15/Server/sqlite3/storage.ide
index 1e58789..be7d2ea 100644
Binary files a/.vs/DPM2016/v15/Server/sqlite3/storage.ide and b/.vs/DPM2016/v15/Server/sqlite3/storage.ide differ
diff --git a/CryptoEditor/bin/Debug/CryptoEditor.exe b/CryptoEditor/bin/Debug/CryptoEditor.exe
index d9cf340..de4e6e4 100644
Binary files a/CryptoEditor/bin/Debug/CryptoEditor.exe and b/CryptoEditor/bin/Debug/CryptoEditor.exe differ
diff --git a/CryptoEditor/bin/Debug/CryptoEditor.pdb b/CryptoEditor/bin/Debug/CryptoEditor.pdb
index 19792c3..a81a1d8 100644
Binary files a/CryptoEditor/bin/Debug/CryptoEditor.pdb and b/CryptoEditor/bin/Debug/CryptoEditor.pdb differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.exe b/CryptoEditor/obj/Debug/CryptoEditor.exe
index d9cf340..de4e6e4 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.exe and b/CryptoEditor/obj/Debug/CryptoEditor.exe differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.pdb b/CryptoEditor/obj/Debug/CryptoEditor.pdb
index 19792c3..a81a1d8 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.pdb and b/CryptoEditor/obj/Debug/CryptoEditor.pdb differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.CoreCompileInputs.cache b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.CoreCompileInputs.cache
index 4e2e280..97ada2f 100644
--- a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.CoreCompileInputs.cache
+++ b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.CoreCompileInputs.cache
@@ -1 +1 @@
-c25b68a472794d78e09340ae6530aa05beafcb9a
+01b4dd61334a40eedcfe46ace7c98025c17fecc6
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache
index 4cb815a..ced3a64 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache and b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache differ
diff --git a/CryptoEditor/obj/Release/CryptoEditor.vbproj.CoreCompileInputs.cache b/CryptoEditor/obj/Release/CryptoEditor.vbproj.CoreCompileInputs.cache
index 4e2e280..97ada2f 100644
--- a/CryptoEditor/obj/Release/CryptoEditor.vbproj.CoreCompileInputs.cache
+++ b/CryptoEditor/obj/Release/CryptoEditor.vbproj.CoreCompileInputs.cache
@@ -1 +1 @@
-c25b68a472794d78e09340ae6530aa05beafcb9a
+01b4dd61334a40eedcfe46ace7c98025c17fecc6
diff --git a/DPM2016.sln b/DPM2016.sln
index e46843e..f5a1406 100644
--- a/DPM2016.sln
+++ b/DPM2016.sln
@@ -11,6 +11,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPMLizenzmanagement", "DPML
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SHUKeyGen", "DPMLizenzmanagement\SHUKeyGen\SHUKeyGen.vbproj", "{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}"
EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SHU_Imagegal", "..\..\_Demos\PictureViewer\SHU_Imagegal\SHU_Imagegal\SHU_Imagegal.vbproj", "{45F09566-A07D-49BE-B538-311D3B7A3539}"
+EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -33,6 +35,10 @@ Global
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9C0E2055-23AC-4209-8C03-0364C5AF2BAB}.Release|Any CPU.Build.0 = Release|Any CPU
+ {45F09566-A07D-49BE-B538-311D3B7A3539}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {45F09566-A07D-49BE-B538-311D3B7A3539}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {45F09566-A07D-49BE-B538-311D3B7A3539}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {45F09566-A07D-49BE-B538-311D3B7A3539}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
diff --git a/DPM2016/Auswertungen/FremAuswertung.Designer.vb b/DPM2016/Auswertungen/FremAuswertung.Designer.vb
index ad4a71b..3a17460 100644
--- a/DPM2016/Auswertungen/FremAuswertung.Designer.vb
+++ b/DPM2016/Auswertungen/FremAuswertung.Designer.vb
@@ -42,12 +42,15 @@ Partial Class frmAuswertung
Me.TreeReporting = New System.Windows.Forms.TreeView()
Me.previewControl1 = New FastReport.Preview.PreviewControl()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+ Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+ Me.PatientenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
@@ -275,6 +278,7 @@ Partial Class frmAuswertung
Me.previewControl1.Name = "previewControl1"
Me.previewControl1.PageOffset = New System.Drawing.Point(10, 10)
Me.previewControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
+ Me.previewControl1.SaveInitialDirectory = Nothing
Me.previewControl1.Size = New System.Drawing.Size(780, 635)
Me.previewControl1.TabIndex = 25
Me.previewControl1.UIStyle = FastReport.Utils.UIStyle.VisualStudio2005
@@ -288,6 +292,18 @@ Partial Class frmAuswertung
Me.DataGridView1.Size = New System.Drawing.Size(780, 635)
Me.DataGridView1.TabIndex = 26
'
+ 'ContextMenuStrip1
+ '
+ Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PatientenAuswahlToolStripMenuItem})
+ Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+ Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
+ '
+ 'PatientenAuswahlToolStripMenuItem
+ '
+ Me.PatientenAuswahlToolStripMenuItem.Name = "PatientenAuswahlToolStripMenuItem"
+ Me.PatientenAuswahlToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.PatientenAuswahlToolStripMenuItem.Text = "Patienten-Auswahl"
+ '
'frmAuswertung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -311,6 +327,7 @@ Partial Class frmAuswertung
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -334,4 +351,6 @@ Partial Class frmAuswertung
Friend WithEvents Properties As PropertyGridEx.PropertyGridEx
Private WithEvents previewControl1 As FastReport.Preview.PreviewControl
Friend WithEvents DataGridView1 As DataGridView
+ Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+ Friend WithEvents PatientenAuswahlToolStripMenuItem As ToolStripMenuItem
End Class
diff --git a/DPM2016/Auswertungen/FremAuswertung.resx b/DPM2016/Auswertungen/FremAuswertung.resx
index d8db5e5..88a0035 100644
--- a/DPM2016/Auswertungen/FremAuswertung.resx
+++ b/DPM2016/Auswertungen/FremAuswertung.resx
@@ -145,24 +145,24 @@
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==
+ YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAP3SURBVEhLnZVtbFN1FMaZGl8hzPjJmKDxE2owxkRZlrrb
+ dl2cOBMlThdnNCQmyId9IaiJUUdkCESqvATBdVGhe8E01m0s0ykqkfdSK3QvTs2atqts4Na1lvX13vt4
+ zu39l8sdMLJ/8uRszb3P7zzn3N4uEqevr+/BTCYTJ82k0+nEaCQmbzrzL6T+EUUa+FOR+oeUVZ2D6qr+
+ GBo6f1fD4+PJSCRysqur6wFJkm5hkU1Z0e0qx+12Pww68XhcLSgqPjgawbK9fizdcRpLSFyXu0fR2H4M
+ X37tVVOpFKampjA0NCQ7nU7J4XAsbW5uvkm3m3tcLtejAnBxtoDG7jDu3RlE+fazKP84gHLnOdg9UXy0
+ ax+mp6dRKBQ0JRIJhihtbW3vEGQZJbmd7OYkKWttbX2MAXwSGRkbfkpghesCHvp8Esv3TeCRL+J4zROB
+ c8dOKIqiiQGcJJlMYnBwUCGPtxhSV1d3pzmNBlBVtXijrKI1IMPeLsOyv4CnDhRgPQis844TYHepexbt
+ SwMISFNT00t2u/2+2tra24yQEkCWZXD95g8Vz3sAqxuobgccDOg+j62f7tGM8/k8otEohoeHEQgEEAwG
+ tb99Pl+sqqrqierq6nvq6+tv1v0vA4R+GFPxajcgHQAlAWydwJqeGWzd5dKaEOId8LJ5L6FQCH6/X6YE
+ a2022/0EuFX3vzIBj8l/XsG6fkqgA6wdQIM3hW173Vr3LJGEay6X02AMIfMNlGJFRUXFHbp/ESCWxwol
+ Vbz/K42HjG2cgOrLPSqcrq7S/I0SUB4bjWcjpXi8pqbmLt2/CLiUlXEpnUEmm8VIbAabj+fwDM2e98CQ
+ hu+APV95NCPumI25iv+zdJ8OaOE9zAEkMwp80TScA39j+48xvH04hxdo0ZIOWN0DfOY9inQmi9kMGebp
+ KcoWAWxuBtB3YrHuf3lE+YIM36SKLaeB9YeBV77VASRHu4o3DmWx5ZSC3QEVvcMpTM6kS+NhXRfAC+bY
+ XH/7R8aHx4A3vy8+pgzhUT1Lidb+ArznOYvRyAWt6xtOwMZ8sajBiTxaaA+rvUDVfuBp2sfrA8An3pOY
+ uDhVMhbzpxfl/ACRQuj4ub/w7s//4UX6TqzpTaPbFy11zcZm3VAC8XQIHTkzgs2nVJwIpUpdi865a1Hn
+ TSCMzYDZ2eIizU+MMBZ1QQAxDrOp0Zg/55cea14Am11NAmiUgBp1XYAw4mq8iT8zd23sXNR5Exg7FjCz
+ jGCjBPSagI6OjueMptcyEdUsYwL6VdtGL7snKysrl+j+i8roPd4YDoe1CxaqsbExTWS+yWq1rrwCYLFY
+ 7qZIFlIL6SBd0LtAddL9G4sjkhb/DxY6N4wqNTW8AAAAAElFTkSuQmCC
@@ -329,8 +329,11 @@
KACiiigAooooAKKKKACiiigAooooAKKKKAP/2Q==
+
+ 231, 17
+
- 25
+ 91
diff --git a/DPM2016/Auswertungen/FremAuswertung.vb b/DPM2016/Auswertungen/FremAuswertung.vb
index 89ac40c..0cd30ea 100644
--- a/DPM2016/Auswertungen/FremAuswertung.vb
+++ b/DPM2016/Auswertungen/FremAuswertung.vb
@@ -41,7 +41,6 @@ Public Class frmAuswertung
' End If
'Next
-
Dim s As String
Me.TreeReporting.Nodes.Clear()
FileOpen(1, intdb.Get_Option(100) + "Reports.txt", Mode:=OpenMode.Input)
@@ -109,7 +108,7 @@ Public Class frmAuswertung
Properties.ShowCustomProperties = True
Properties.Item.Clear()
Dim defaultvalue As String
-
+ Me.Properties.ContextMenuStrip = Nothing
If ParameterColleation.Count > 0 Then
For i As Integer = 1 To ParameterColleation.Count
Dim param As Reportparameter = ParameterColleation(i)
@@ -162,7 +161,9 @@ Public Class frmAuswertung
defaultvalue = param.ParameterDefault
If IsNumeric(defaultvalue) Then
Properties.Item.Add(param.Parameterbezeichnung, defaultvalue, False, "Parameter", "Ganzzahl", True)
-
+ If param.Parameterbezeichnung = "Nummern (Komma-Getrennt)" Then
+ Me.Properties.ContextMenuStrip = ContextMenuStrip1
+ End If
Else
Select Case defaultvalue
Case "currentyear"
@@ -654,6 +655,23 @@ Public Class frmAuswertung
' f.Show()
'End Sub
End Sub
+
+ Private Sub Properties_DoubleClick(sender As Object, e As EventArgs) Handles Properties.DoubleClick
+
+ End Sub
+
+ Private Sub Properties_Click(sender As Object, e As EventArgs) Handles Properties.Click
+
+ End Sub
+
+ Private Sub PatientenAuswahlToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PatientenAuswahlToolStripMenuItem.Click
+ Dim f As New FrmSearchDialog
+ f.ShowDialog()
+ If f.DialogResult = DialogResult.OK Then
+ Me.Properties.Item(1).Value = f.TextBox1.Text
+ Me.Properties.Refresh()
+ End If
+ End Sub
End Class
Public Class Report
diff --git a/DPM2016/Behandlung/Behandlung.vb b/DPM2016/Behandlung/Behandlung.vb
index b0fd413..35349c4 100644
--- a/DPM2016/Behandlung/Behandlung.vb
+++ b/DPM2016/Behandlung/Behandlung.vb
@@ -453,6 +453,12 @@ Public Class Behandlung
r.Item("nrbehandlungsart") = dbgesetz.dsDaten.Tables(0).Rows(0).Item("nrbehandlungsart")
End If
+ Get_Standards(r.Item("nrbehandler"), "Behandler")
+ Get_Standards(r.Item("nrestyp"), "ESTyp")
+ Get_Standards(r.Item("nrrgtyp"), "RGTyp")
+ Get_Standards(r.Item("Nrabrechnungstyp"), "Abrechnungstyp")
+ Get_Standards(r.Item("nransatz"), "Ansatz")
+ Get_Standards(r.Item("taxpunktwert"), "Taxpunktwert")
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
@@ -465,6 +471,71 @@ Public Class Behandlung
Me.nodeselected()
Catch ex As Exception
End Try
+ End Sub
+
+ Sub Get_Standards(ByRef o As Object, feld As String)
+ Dim dbs As New clsDB
+ Try
+ Select Case UCase(feld)
+ Case "BEHANDLER"
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=1", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+ Case "ESTYP"
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=2", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+ Case "RGTYP"
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=3", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+ Case "ABRECHNUNGSTYP"
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=4", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+ Case "ANSATZ"
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=5", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+
+ Case "TAXPUNKTWERT"
+ Dim s As String = ""
+ dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=5", "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ s = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
+ End If
+ If s <> "" Then
+ dbs.Get_Tabledata("Ansatz", "", "Select taxpunktwert from ansatz where nransatz=" & s, "", False)
+ If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
+ o = dbs.dsDaten.Tables(0).Rows(0).Item(0)
+ End If
+ End If
+
+
+
+
+ Case Else
+ End Select
+ Catch ex As Exception
+ Dim i As Integer
+ i = 0
+ Finally
+ dbs.Dispose()
+
+
+
+ End Try
+
+
+
+
+
+
End Sub
Private Sub tsbtndeletebehandlung_Click(sender As Object, e As EventArgs) Handles tsbtndeletebehandlung.Click
diff --git a/DPM2016/Behandlung/Benhandungdetail.Designer.vb b/DPM2016/Behandlung/Benhandungdetail.Designer.vb
index 626cb16..82be2b0 100644
--- a/DPM2016/Behandlung/Benhandungdetail.Designer.vb
+++ b/DPM2016/Behandlung/Benhandungdetail.Designer.vb
@@ -24,7 +24,9 @@ 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()
@@ -40,8 +42,12 @@ Partial Class Benhandungdetail
Me.txtcKVTotal = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GrpGaramt = New System.Windows.Forms.GroupBox()
+ Me.lblahvnr = New System.Windows.Forms.Label()
+ Me.Label10 = New System.Windows.Forms.Label()
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()
@@ -52,8 +58,10 @@ 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()
@@ -71,6 +79,8 @@ Partial Class Benhandungdetail
Me.lblZuschlagRaten = New System.Windows.Forms.Label()
Me.lblAnzahlRaten = New System.Windows.Forms.Label()
Me.grpBehandlungsdaten = New System.Windows.Forms.GroupBox()
+ Me.DDTRGDatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
+ Me.lblRGDatum = New System.Windows.Forms.Label()
Me.DDTRGStellung = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.DDTBehandlungsende = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
Me.DDTBehandlungsbeginn = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
@@ -88,8 +98,12 @@ 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()
@@ -98,7 +112,11 @@ Partial Class Benhandungdetail
Me.DesignRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnGarantAnzeigen = New System.Windows.Forms.ToolStripButton()
+ Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+ Me.lblfakturanr = New System.Windows.Forms.ToolStripLabel()
+ Me.txtrgnummer = New System.Windows.Forms.ToolStripTextBox()
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()
@@ -107,6 +125,7 @@ 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()
@@ -116,18 +135,6 @@ Partial Class Benhandungdetail
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()
@@ -138,6 +145,7 @@ Partial Class Benhandungdetail
CType(Me.mtxtRatenzuschlag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.xxtxtAnzahlraten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpBehandlungsdaten.SuspendLayout()
+ CType(Me.DDTRGDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DDTRGStellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DDTBehandlungsende, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DDTBehandlungsbeginn, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -163,6 +171,18 @@ 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
@@ -172,6 +192,18 @@ 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
@@ -320,6 +352,8 @@ Partial Class Benhandungdetail
'
'GrpGaramt
'
+ Me.GrpGaramt.Controls.Add(Me.lblahvnr)
+ Me.GrpGaramt.Controls.Add(Me.Label10)
Me.GrpGaramt.Controls.Add(Me.Button1)
Me.GrpGaramt.Controls.Add(Me.lblGesetz)
Me.GrpGaramt.Controls.Add(Me.cbboxNrGesetz)
@@ -352,6 +386,23 @@ Partial Class Benhandungdetail
Me.GrpGaramt.TabStop = False
Me.GrpGaramt.Text = "Garant"
'
+ 'lblahvnr
+ '
+ Me.lblahvnr.AutoSize = True
+ Me.lblahvnr.Location = New System.Drawing.Point(284, 116)
+ Me.lblahvnr.Name = "lblahvnr"
+ Me.lblahvnr.Size = New System.Drawing.Size(0, 13)
+ Me.lblahvnr.TabIndex = 226
+ '
+ 'Label10
+ '
+ Me.Label10.AutoSize = True
+ Me.Label10.Location = New System.Drawing.Point(251, 116)
+ Me.Label10.Name = "Label10"
+ Me.Label10.Size = New System.Drawing.Size(32, 13)
+ Me.Label10.TabIndex = 225
+ Me.Label10.Text = "AHV:"
+ '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(373, 61)
@@ -370,6 +421,32 @@ 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
@@ -530,6 +607,18 @@ 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
@@ -546,6 +635,18 @@ 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
@@ -727,6 +828,8 @@ Partial Class Benhandungdetail
'
'grpBehandlungsdaten
'
+ Me.grpBehandlungsdaten.Controls.Add(Me.DDTRGDatum)
+ Me.grpBehandlungsdaten.Controls.Add(Me.lblRGDatum)
Me.grpBehandlungsdaten.Controls.Add(Me.DDTRGStellung)
Me.grpBehandlungsdaten.Controls.Add(Me.DDTBehandlungsende)
Me.grpBehandlungsdaten.Controls.Add(Me.DDTBehandlungsbeginn)
@@ -742,6 +845,61 @@ Partial Class Benhandungdetail
Me.grpBehandlungsdaten.TabStop = False
Me.grpBehandlungsdaten.Text = "Behandlung"
'
+ 'DDTRGDatum
+ '
+ '
+ '
+ '
+ Me.DDTRGDatum.BackgroundStyle.Class = "DateTimeInputBackground"
+ Me.DDTRGDatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+ Me.DDTRGDatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
+ Me.DDTRGDatum.ButtonDropDown.Visible = True
+ Me.DDTRGDatum.IsPopupCalendarOpen = False
+ Me.DDTRGDatum.Location = New System.Drawing.Point(129, 96)
+ '
+ '
+ '
+ '
+ '
+ '
+ Me.DDTRGDatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+ Me.DDTRGDatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
+ Me.DDTRGDatum.MonthCalendar.ClearButtonVisible = True
+ '
+ '
+ '
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
+ Me.DDTRGDatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+ Me.DDTRGDatum.MonthCalendar.DisplayMonth = New Date(2015, 5, 1, 0, 0, 0, 0)
+ Me.DDTRGDatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
+ '
+ '
+ '
+ Me.DDTRGDatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
+ Me.DDTRGDatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
+ Me.DDTRGDatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
+ Me.DDTRGDatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+ Me.DDTRGDatum.MonthCalendar.TodayButtonVisible = True
+ Me.DDTRGDatum.Name = "DDTRGDatum"
+ Me.DDTRGDatum.Size = New System.Drawing.Size(162, 20)
+ Me.DDTRGDatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+ Me.DDTRGDatum.TabIndex = 210
+ '
+ 'lblRGDatum
+ '
+ Me.lblRGDatum.AutoSize = True
+ Me.lblRGDatum.BackColor = System.Drawing.Color.Transparent
+ Me.lblRGDatum.Location = New System.Drawing.Point(9, 102)
+ Me.lblRGDatum.Name = "lblRGDatum"
+ Me.lblRGDatum.Size = New System.Drawing.Size(91, 13)
+ Me.lblRGDatum.TabIndex = 211
+ Me.lblRGDatum.Text = "Rechnungsdatum"
+ '
'DDTRGStellung
'
'
@@ -880,7 +1038,7 @@ Partial Class Benhandungdetail
'
'btnAbschliessen
'
- Me.btnAbschliessen.Location = New System.Drawing.Point(8, 100)
+ Me.btnAbschliessen.Location = New System.Drawing.Point(5, 117)
Me.btnAbschliessen.Name = "btnAbschliessen"
Me.btnAbschliessen.Size = New System.Drawing.Size(124, 23)
Me.btnAbschliessen.TabIndex = 209
@@ -890,7 +1048,7 @@ Partial Class Benhandungdetail
'
'btnZuruecksetzen
'
- Me.btnZuruecksetzen.Location = New System.Drawing.Point(173, 100)
+ Me.btnZuruecksetzen.Location = New System.Drawing.Point(170, 117)
Me.btnZuruecksetzen.Name = "btnZuruecksetzen"
Me.btnZuruecksetzen.Size = New System.Drawing.Size(124, 23)
Me.btnZuruecksetzen.TabIndex = 208
@@ -1041,6 +1199,30 @@ 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
@@ -1050,6 +1232,18 @@ 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
@@ -1059,6 +1253,18 @@ 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
@@ -1070,12 +1276,12 @@ Partial Class Benhandungdetail
'
'ToolStrip1
'
- Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1, Me.ToolStripSeparator1, Me.tsbtnGarantAnzeigen})
+ Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+ Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave, Me.ToolStripDropDownButton1, Me.ToolStripSeparator1, Me.tsbtnGarantAnzeigen, Me.ToolStripSeparator2, Me.lblfakturanr, Me.txtrgnummer})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
- Me.ToolStrip1.Size = New System.Drawing.Size(1062, 25)
+ Me.ToolStrip1.Size = New System.Drawing.Size(1062, 27)
Me.ToolStrip1.TabIndex = 15
- Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnSave
'
@@ -1083,7 +1289,7 @@ Partial Class Benhandungdetail
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.Size = New System.Drawing.Size(24, 24)
Me.tsbtnSave.Text = "Speichern"
'
'ToolStripDropDownButton1
@@ -1093,7 +1299,7 @@ Partial Class Benhandungdetail
Me.ToolStripDropDownButton1.Image = CType(resources.GetObject("ToolStripDropDownButton1.Image"), System.Drawing.Image)
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
- Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 22)
+ Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(33, 24)
Me.ToolStripDropDownButton1.Text = "Drucken / Vorschau / Design"
Me.ToolStripDropDownButton1.Visible = False
'
@@ -1112,7 +1318,7 @@ Partial Class Benhandungdetail
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
- Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 27)
'
'tsbtnGarantAnzeigen
'
@@ -1120,11 +1326,29 @@ Partial Class Benhandungdetail
Me.tsbtnGarantAnzeigen.Image = CType(resources.GetObject("tsbtnGarantAnzeigen.Image"), System.Drawing.Image)
Me.tsbtnGarantAnzeigen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnGarantAnzeigen.Name = "tsbtnGarantAnzeigen"
- Me.tsbtnGarantAnzeigen.Size = New System.Drawing.Size(96, 22)
+ Me.tsbtnGarantAnzeigen.Size = New System.Drawing.Size(96, 24)
Me.tsbtnGarantAnzeigen.Text = "Garant anzeigen"
Me.tsbtnGarantAnzeigen.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.tsbtnGarantAnzeigen.ToolTipText = "Garant anzeigen"
'
+ 'ToolStripSeparator2
+ '
+ Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+ Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
+ '
+ 'lblfakturanr
+ '
+ Me.lblfakturanr.Name = "lblfakturanr"
+ Me.lblfakturanr.Size = New System.Drawing.Size(25, 24)
+ Me.lblfakturanr.Text = "RG:"
+ '
+ 'txtrgnummer
+ '
+ Me.txtrgnummer.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+ Me.txtrgnummer.Name = "txtrgnummer"
+ Me.txtrgnummer.ReadOnly = True
+ Me.txtrgnummer.Size = New System.Drawing.Size(150, 27)
+ '
'GrpRechnungstext
'
Me.GrpRechnungstext.Controls.Add(Me.cbboxrgtext)
@@ -1136,6 +1360,18 @@ 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(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
+ '
'txtRechnungsbemerkung
'
Me.txtRechnungsbemerkung.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -1210,6 +1446,20 @@ Partial Class Benhandungdetail
Me.txtBehandlungsgrund.Size = New System.Drawing.Size(329, 20)
Me.txtBehandlungsgrund.TabIndex = 222
'
+ 'cbboxNrBehandlungsart
+ '
+ Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+ Me.cbboxNrBehandlungsart.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+ Me.cbboxNrBehandlungsart.Dataselection = Nothing
+ Me.cbboxNrBehandlungsart.Displaymember = Nothing
+ Me.cbboxNrBehandlungsart.Location = New System.Drawing.Point(95, 77)
+ Me.cbboxNrBehandlungsart.Name = "cbboxNrBehandlungsart"
+ Me.cbboxNrBehandlungsart.Size = New System.Drawing.Size(151, 21)
+ Me.cbboxNrBehandlungsart.TabIndex = 225
+ Me.cbboxNrBehandlungsart.Table = Nothing
+ Me.cbboxNrBehandlungsart.TableAlias = ""
+ Me.cbboxNrBehandlungsart.Valuemember = Nothing
+ '
'lblBehandlungsgrund
'
Me.lblBehandlungsgrund.AutoSize = True
@@ -1294,154 +1544,6 @@ Partial Class Benhandungdetail
Me.txtEmpfaenger.Size = New System.Drawing.Size(326, 95)
Me.txtEmpfaenger.TabIndex = 2
'
- 'cbboxNrBehandlungsart
- '
- Me.cbboxNrBehandlungsart.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
- Me.cbboxNrBehandlungsart.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
- Me.cbboxNrBehandlungsart.Dataselection = Nothing
- Me.cbboxNrBehandlungsart.Displaymember = Nothing
- Me.cbboxNrBehandlungsart.Location = New System.Drawing.Point(95, 77)
- Me.cbboxNrBehandlungsart.Name = "cbboxNrBehandlungsart"
- Me.cbboxNrBehandlungsart.Size = New System.Drawing.Size(151, 21)
- Me.cbboxNrBehandlungsart.TabIndex = 225
- Me.cbboxNrBehandlungsart.Table = Nothing
- Me.cbboxNrBehandlungsart.TableAlias = ""
- Me.cbboxNrBehandlungsart.Valuemember = Nothing
- '
- 'cbboxrgtext
- '
- 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!)
@@ -1473,6 +1575,7 @@ Partial Class Benhandungdetail
CType(Me.xxtxtAnzahlraten, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpBehandlungsdaten.ResumeLayout(False)
Me.grpBehandlungsdaten.PerformLayout()
+ CType(Me.DDTRGDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DDTRGStellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DDTBehandlungsende, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DDTBehandlungsbeginn, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1597,4 +1700,11 @@ Partial Class Benhandungdetail
Friend WithEvents Label8 As Label
Friend WithEvents txtSuchePrivat As TextBox
Friend WithEvents txtEmpfaenger As TextBox
+ Friend WithEvents lblfakturanr As ToolStripLabel
+ Friend WithEvents txtrgnummer As ToolStripTextBox
+ Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+ Friend WithEvents DDTRGDatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
+ Friend WithEvents lblRGDatum As Label
+ Friend WithEvents lblahvnr As Label
+ Friend WithEvents Label10 As Label
End Class
diff --git a/DPM2016/Behandlung/Benhandungdetail.vb b/DPM2016/Behandlung/Benhandungdetail.vb
index c93a537..bcbb7df 100644
--- a/DPM2016/Behandlung/Benhandungdetail.vb
+++ b/DPM2016/Behandlung/Benhandungdetail.vb
@@ -241,6 +241,30 @@
Catch ex As Exception
End Try
+
+ Try
+ If db.dsDaten.Tables(0).Rows(0).Item("Status") = 3 Then
+ Me.lblfakturanr.Visible = True
+ Me.txtrgnummer.Visible = True
+ Dim dbf As New clsDB
+ dbf.Get_Tabledata("Faktua", "", "Select nrfaktura, datum From faktura where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString + " and status<>9 and nrfaktura=nrhauptfaktura")
+ Me.txtrgnummer.Text = ""
+ Dim d As Date
+ d = dbf.dsDaten.Tables(0).Rows(0).Item(1)
+ Me.txtrgnummer.Text = dbf.dsDaten.Tables(0).Rows(0).Item(0).ToString + " / " + d.ToString("dd.MM.yyyy")
+ dbf.Dispose()
+
+ Else
+ Me.lblfakturanr.Visible = False
+ Me.txtrgnummer.Visible = False
+ End If
+ Catch
+ Me.lblfakturanr.Visible = False
+ Me.txtrgnummer.Visible = False
+
+ End Try
+
+
AddChanges(Me)
Me.HasChanges = False
End Sub
@@ -345,7 +369,7 @@
Dim db1 As New clsDB
Dim garantdatan As New DataTable
If Key > 49999 Then
- db1.Get_Tabledata("Firma", "", "Select nrfirma,name1+', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where aktiv=1 and nrfirma=" + Key.ToString + " order by name1")
+ db1.Get_Tabledata("Firma", "", "Select nrfirma, name1 +', '+ort +' ('+ltrim(rtrim(str(nrfirma)))+')' as Name1 from firma where aktiv=1 and nrfirma=" + Key.ToString + " order by name1")
'Me.lblGarantText.Text = db.dsDaten.Tables(0).Rows(0).Item("nrfirma").ToString + " - " + db.dsDaten.Tables(0).Rows(0).Item("name1")
@@ -522,6 +546,17 @@
Me.cbboxrgtext.Valuemember = "Nrrechnungstext"
' Me.OnLoad = False
+ Dim dbx As New clsDB
+ Try
+
+ Me.lblahvnr.Text = dbx.Get_Datavalue("Select ahvnr from privat where nrprivat=" + Me.Patientnr.ToString)
+ Catch
+ Me.lblahvnr.Text = ""
+ End Try
+ dbx.Dispose()
+
+
+
End Sub
Public Sub Recalc_Totale()
@@ -556,7 +591,6 @@
If r("aktiv") = True Then
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
@@ -580,10 +614,27 @@
If chkRabattGesamt.Checked Then
total = (100 - mtxtRabatt.Text) * total / 100
Else
- total = stotal - (ssototal / 100 * Me.mtxtRabatt.Text)
+ Dim xxtotal As Double
+ Dim xabs As String = db.Get_Option(10000)
+ If UCase(xabs) <> "TRUE" Then
+ total = stotal - (ssototal / 100 * Me.mtxtRabatt.Text)
+ Else
+ Dim xldb As New clsDB
+ xldb.Get_Tabledata("Leistung", "where absolut=0 and nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+
+ For Each r As DataRow In xldb.dsDaten.Tables(0).Rows
+ If r("aktiv") = True Then
+ If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then xxtotal = xxtotal + r("total")
+ If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then xxtotal = xxtotal + r("total")
+ 'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+ End If
+ Next
+ xldb.Dispose()
+ End If
+ total = stotal - (xxtotal / 100 * Me.mtxtRabatt.Text)
End If
- Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
+ Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
Me.txtcRabatt.Text = Globals.Round5(Me.txtcRabatt.Text)
Catch ex As Exception
total = 0
@@ -824,7 +875,7 @@
Private Sub rbPrivatPersonen_CheckedChanged(sender As Object, e As EventArgs) Handles rbPrivatPersonen.CheckedChanged
If rbPrivatPersonen.Checked Then
Dim garantdatan As New DataTable
- db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort +' ('+ltrim(rtrim(str(nrprivat)))+')' as Name1 from privat where aktiv=1 and (garant=1 or gesvertreter=1) order by name, vorname")
+ db.Get_Tabledata("Privat", "", "Select nrprivat,name+' '+vorname+', '+plz+' '+ort +' ('+ltrim(rtrim(str(nrprivat)))+')' as Name1 from privat where ltrim(name)<>'' and aktiv=1 and (garant=1 or gesvertreter=1) order by name, vorname")
Me.cbboxNrGarant.DataSource = Nothing
garantdatan = db.dsDaten.Tables(0).Copy
Me.cbboxNrGarant.DataSource = garantdatan
diff --git a/DPM2016/Behandlung/Leistungen.Designer.vb b/DPM2016/Behandlung/Leistungen.Designer.vb
index f215dcf..fac71d9 100644
--- a/DPM2016/Behandlung/Leistungen.Designer.vb
+++ b/DPM2016/Behandlung/Leistungen.Designer.vb
@@ -101,6 +101,7 @@ Partial Class Leistungen
'
'ToolStrip1
'
+ Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
@@ -111,7 +112,7 @@ Partial Class Leistungen
'tslabelbhtotal
'
Me.tslabelbhtotal.Name = "tslabelbhtotal"
- Me.tslabelbhtotal.Size = New System.Drawing.Size(88, 22)
+ Me.tslabelbhtotal.Size = New System.Drawing.Size(87, 22)
Me.tslabelbhtotal.Text = "ToolStripLabel1"
'
'GrpTarif
@@ -172,18 +173,20 @@ Partial Class Leistungen
'
'ContextMenuStrip1
'
+ Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifdetailsToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
- Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26)
+ Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26)
'
'TarifdetailsToolStripMenuItem
'
Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem"
- Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
+ Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails"
'
'ToolStrip2
'
+ Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter})
Me.ToolStrip2.Location = New System.Drawing.Point(196, 3)
Me.ToolStrip2.Name = "ToolStrip2"
@@ -197,7 +200,7 @@ Partial Class Leistungen
Me.tsDown.Image = CType(resources.GetObject("tsDown.Image"), System.Drawing.Image)
Me.tsDown.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsDown.Name = "tsDown"
- Me.tsDown.Size = New System.Drawing.Size(23, 22)
+ Me.tsDown.Size = New System.Drawing.Size(24, 24)
Me.tsDown.Text = "ToolStripButton2"
Me.tsDown.Visible = False
'
@@ -207,7 +210,7 @@ Partial Class Leistungen
Me.tsUp.Image = CType(resources.GetObject("tsUp.Image"), System.Drawing.Image)
Me.tsUp.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsUp.Name = "tsUp"
- Me.tsUp.Size = New System.Drawing.Size(23, 22)
+ Me.tsUp.Size = New System.Drawing.Size(24, 24)
Me.tsUp.Text = "ToolStripButton1"
Me.tsUp.Visible = False
'
@@ -219,6 +222,7 @@ Partial Class Leistungen
'
'txtfilter
'
+ Me.txtfilter.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.txtfilter.Name = "txtfilter"
Me.txtfilter.Size = New System.Drawing.Size(100, 25)
'
@@ -630,6 +634,7 @@ Partial Class Leistungen
'
'ctxMenuLeistung
'
+ Me.ctxMenuLeistung.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem, Me.LeistungsdatumÄndernToolStripMenuItem})
Me.ctxMenuLeistung.Name = "ctxMenuLeistung"
Me.ctxMenuLeistung.Size = New System.Drawing.Size(200, 92)
diff --git a/DPM2016/Behandlung/Leistungen.resx b/DPM2016/Behandlung/Leistungen.resx
index 0703ec3..44b73b7 100644
--- a/DPM2016/Behandlung/Leistungen.resx
+++ b/DPM2016/Behandlung/Leistungen.resx
@@ -120,9 +120,6 @@
17, 17
-
- 124, 17
-
524, 17
@@ -200,6 +197,6 @@
- <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1071, 137</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1071, 137</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob>
+ <?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}</Data></Styles><Splits><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"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1071, 137</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1071, 137</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob>
\ No newline at end of file
diff --git a/DPM2016/Behandlung/Leistungen.vb b/DPM2016/Behandlung/Leistungen.vb
index e3f1e64..fb12576 100644
--- a/DPM2016/Behandlung/Leistungen.vb
+++ b/DPM2016/Behandlung/Leistungen.vb
@@ -103,6 +103,7 @@ Public Class Leistungen
Select Case True
Case Trim(r("Bezeichnung")).Contains("UV_MV_IV") Or Trim(r("Bezeichnung")).Contains("Dentotar")
Dim tn As New DevComponents.AdvTree.Node
+ tn.DataKey = 222
tn.Text = r("Bezeichnung")
Me.TreeTarifGruppen.Nodes.Add(tn)
Dim sortstring As String = "KapitelNrNeu"
@@ -115,7 +116,21 @@ Public Class Leistungen
tn1.Tag = r2("KapitelLeistung")
tn.Nodes.Add(tn1)
Next
-
+ Case Trim(r("Bezeichnung")).Contains("Zahntechnik (VZLS)")
+ Dim tn As New DevComponents.AdvTree.Node
+ tn.Text = r("Bezeichnung")
+ tn.DataKey = 223
+ Me.TreeTarifGruppen.Nodes.Add(tn)
+ Dim sortstring As String = "KapitelNrNeu"
+ Dim dv As New DataView(IntTables.Inttables.Tables("dentotar_223"), "Level=1 and KapitelNrNeu<>'00' and KapitelNrNeu<>'000' ", sortstring, DataViewRowState.CurrentRows)
+ For Each rowView As DataRowView In dv
+ Dim r2 As DataRow = rowView.Row
+ Dim tn1 As New DevComponents.AdvTree.Node
+ tn1.Text = r2("Leistungd")
+ tn1.DataKey = r2("KapitelnrNeu")
+ tn1.Tag = r2("KapitelLeistung")
+ tn.Nodes.Add(tn1)
+ Next
Case Trim(r("Bezeichnung")).Contains("SSO")
Case Else
If UCase(r("bezeichnung")).ToString.IndexOf("DH") < 0 And UCase(r("bezeichnung")).ToString.IndexOf("9000") < 0 Then
@@ -190,21 +205,40 @@ Public Class Leistungen
Me.cbboxnrbehandler.Valuemember = "nrprivat"
Load_Tarif()
Catch ex As Exception
- 'MsgBox(ex.Message)
+ MsgBox(ex.Message)
End Try
End Sub
Sub Load_Tarif()
+ Dim isdentotar As Boolean = False
+ Dim isZahntechnik As Boolean = False
Dim dv As DataView
Dim dv1 As DataView
- If Dentotar = True And Len(Me.TreeTarifGruppen.SelectedNode.DataKeyString) < 3 Then
+ If Dentotar = True And Me.TreeTarifGruppen.SelectedNode.DataKey = 222 Then
+ isdentotar = True
+ End If
+ If Dentotar = True And Len(TreeTarifGruppen.SelectedNode.DataKeyString < 3) Then
+ Try
+ If TreeTarifGruppen.SelectedNode.Parent.DataKey = 222 Then
+ isdentotar = True
+ End If
+ Catch
+ End Try
+ End If
+ If isdentotar Then
Try
+ Dim Wherestring As String
Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"))
Dim sortstring As String = "leistungnrneu, leistungd"
- Dim Wherestring As String = "Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'"
+ If Me.TreeTarifGruppen.SelectedNode.DataKeyString = "222" Then
+ Wherestring = "Kapitelleistung='Lei' and KapitelNrNeu like '" + "" + "%'"
+ Else
+ wherestring = "Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'"
+
+ End If
dv = New DataView(IntTables.Inttables.Tables("dentotar"), Wherestring, sortstring, DataViewRowState.CurrentRows)
Me.lbtarif1.DataSource = Nothing
Me.lbtarif1.DataSource = dv
@@ -215,8 +249,44 @@ Public Class Leistungen
Catch ex As Exception
MsgBox(ex.Message)
End Try
+ End If
+ If Dentotar = True And Me.TreeTarifGruppen.SelectedNode.DataKey = 223 Then
+ isZahntechnik = True
+ End If
+ If Dentotar = True And Len(TreeTarifGruppen.SelectedNode.DataKeyString < 3) Then
+ Try
+ If TreeTarifGruppen.SelectedNode.Parent.DataKey = 223 Then
+ isZahntechnik = True
+ End If
+ Catch
+ End Try
End If
+
+ If isZahntechnik Then
+ Try
+ Dim wherestring As String
+ Dim db As New DataView(IntTables.Inttables.Tables("Dentotar_223"))
+ Dim sortstring As String = "leistungnrneu, leistungd"
+ If Me.TreeTarifGruppen.SelectedNode.DataKeyString = "223" Then
+ wherestring = "Kapitelleistung='Lei' and KapitelNrNeu like '" + "" + "%'"
+ Else
+ wherestring = "Kapitelleistung='Lei' and KapitelNrNeu like '" + Me.TreeTarifGruppen.SelectedNode.DataKeyString + "%'"
+
+ End If
+
+ dv = New DataView(IntTables.Inttables.Tables("dentotar_223"), Wherestring, sortstring, DataViewRowState.CurrentRows)
+ Me.lbtarif1.DataSource = Nothing
+ Me.lbtarif1.DataSource = dv
+ Me.lbtarif1.DisplayMember = "nr_bez"
+ Me.lbtarif1.ValueMember = "LeistungNrNeu"
+ Exit Sub
+
+ Catch ex As Exception
+ MsgBox(ex.Message)
+ End Try
+ End If
+
db.Get_Tarif()
Try
Dim SortString As String = ""
@@ -394,16 +464,35 @@ Public Class Leistungen
End Sub
Private Function Get_Tarifposition(ByVal value As String) As String
+
+ Dim wherestring As String = ""
Dim sortstring As String = ""
- Dim wherestring As String = "Leistungnrneu='" + value + "'"
- Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
- If db.Count > 0 Then
- For Each drv As DataRowView In db
- Return drv.Item("Leistungnrneu").ToString
- Next
- Exit Function
- End If
+ Try
+ wherestring = "Leistungnrneu='" + value + "'"
+ Dim db As New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ If db.Count > 0 Then
+ For Each drv As DataRowView In db
+ Return drv.Item("Leistungnrneu").ToString
+ Next
+
+ Exit Function
+ End If
+ Catch
+ End Try
+
+ Try
+ Dim db223 As New DataView(IntTables.Inttables.Tables("Dentotar_223"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ If db223.Count > 0 Then
+ For Each drv As DataRowView In db223
+ Return drv.Item("Leistungnrneu").ToString
+ Next
+
+ Exit Function
+ End If
+ Catch
+ End Try
+
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + value, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Return drv.Item("sso_nummer").ToString
@@ -434,18 +523,31 @@ Public Class Leistungen
End Sub
Private Sub lbtarif1_ItemDoubleClick(sender As Object, e As EventArgs) Handles lbtarif1.ItemDoubleClick
- If Dentotar = True And Me.txtPosition.Text.Substring(0, 1) = 4 Then
- Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows)
- For Each drv As DataRowView In dv1
- Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString
- txtPosition_TextChanged(sender, e)
- Me.BtnInsertLeistung_Click(sender, e)
+ If Dentotar = True Then
+ If Me.txtPosition.Text.Substring(0, 1) = 4 Then
+ Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows)
+ For Each drv As DataRowView In dv1
+ Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString
+ txtPosition_TextChanged(sender, e)
+ Me.BtnInsertLeistung_Click(sender, e)
+ Exit Sub
+ Next
+
Exit Sub
- Next
+ Else
+ Dim dv1 As New DataView(IntTables.Inttables.Tables("Dentotar_223"), "Leistungnrneu='" + Me.lbtarif1.SelectedValue.ToString + "'", "", DataViewRowState.CurrentRows)
+ For Each drv As DataRowView In dv1
+ Me.txtPosition.Text = drv.Item("Leistungnrneu").ToString
+ txtPosition_TextChanged(sender, e)
+ Me.BtnInsertLeistung_Click(sender, e)
+ Exit Sub
+ Next
- Exit Sub
+ Exit Sub
+ End If
End If
+
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + Me.lbtarif1.SelectedValue.ToString, "", DataViewRowState.CurrentRows)
For Each drv As DataRowView In dv
Me.txtPosition.Text = drv.Item("sso_nummer").ToString
@@ -499,10 +601,14 @@ Public Class Leistungen
Case Else
End Select
+ Me.diwert.Text = Me.Frankenwert
+ Me.DIPunkte.Enabled = True
+
+ Else
+ Me.diwert.Text = dr.Item("betraginchf")
+ Me.DIPunkte.Enabled = False
End If
Me.DIMenge.Text = 1
- Me.diwert.Text = Me.Frankenwert
- Me.DIPunkte.Enabled = True
Me.txtBezD.Text = dr.Item("LeistungD")
Exit Sub
Catch
@@ -518,38 +624,89 @@ Public Class Leistungen
End If
Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + Me.txtPosition.Text.ToString + "'", "", DataViewRowState.CurrentRows)
- For Each drv As DataRowView In dv
- If drv.Item("Frankenbetrag") < 0.1 Then
- Select Case Me.TaxPunkte
- Case Taxpunkttyp.Maximal
- Me.DIPunkte.Value = drv.Item("maximaltarif")
- Case Taxpunkttyp.Minmal
- Me.DIPunkte.Value = drv.Item("minimaltarif")
- Case Taxpunkttyp.Privat
- Me.DIPunkte.Value = drv.Item("privattarif")
- Case Taxpunkttyp.Suva
- Me.DIPunkte.Value = drv.Item("suvatarif")
- Case Taxpunkttyp.Dentotar
- Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
- Case Else
+ If dv.Count > 0 Then
+ For Each drv As DataRowView In dv
+ If drv.Item("Frankenbetrag") < 0.1 Then
+ Select Case Me.TaxPunkte
+ Case Taxpunkttyp.Maximal
+ Me.DIPunkte.Value = drv.Item("maximaltarif")
+ Case Taxpunkttyp.Minmal
+ Me.DIPunkte.Value = drv.Item("minimaltarif")
+ Case Taxpunkttyp.Privat
+ Me.DIPunkte.Value = drv.Item("privattarif")
+ Case Taxpunkttyp.Suva
+ Me.DIPunkte.Value = drv.Item("suvatarif")
+ Case Taxpunkttyp.Dentotar
+ Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
+ Case Else
- End Select
+ End Select
+ Me.DIMenge.Text = 1
+ Me.diwert.Text = Me.Frankenwert
+ Me.DIPunkte.Enabled = True
+ Me.txtBezD.Text = drv.Item("BezD")
+ Else
+ Me.DIPunkte.Value = 0
+ Me.DIPunkte.Enabled = False
+ Me.DIMenge.Value = 1
+ Dim b As Double
+
+ b = drv.Item("Frankenbetrag")
+ Me.diwert.Value = b
+ Me.txtBezD.Text = drv.Item("BezD")
+ End If
+ Try
+ If drv.Item("Frankenbetrag") = 0 And drv.Item("maximaltarif") = 0 And +drv.Item("minimaltarif") = 0 And drv.Item("privattarif") = 0 And drv.Item("suvatarif") = 0 Then
+ diwert.Text = 0
+
+ End If
+ Catch
+ End Try
+
+
+ Exit Sub
+ Next
+ End If
+
+ sortstring = ""
+ wherestring = "LeistungnrNeu='" + Me.txtPosition.Text + "'"
+ Dim dvx As New DataView(IntTables.Inttables.Tables("Dentotar_223"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ If dvx.Count > 0 Then
+ Dim dr As DataRowView
+ Try
+ dr = dvx(0)
+ If dr.Item("Abrechnungseinheit") = "TP" Then
+ Select Case Me.TaxPunkte
+ Case Taxpunkttyp.Maximal
+ Me.DIPunkte.Value = dr.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Minmal
+ Me.DIPunkte.Value = dr.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Privat
+ Me.DIPunkte.Value = dr.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Suva
+ Me.DIPunkte.Value = dr.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Dentotar
+ Me.DIPunkte.Value = dr.Item("TP_Vertrag_mit_MwSt")
+ Case Else
+ End Select
+ End If
Me.DIMenge.Text = 1
Me.diwert.Text = Me.Frankenwert
Me.DIPunkte.Enabled = True
- Me.txtBezD.Text = drv.Item("BezD")
- Else
- Me.DIPunkte.Value = 0
- Me.DIPunkte.Enabled = False
- Me.DIMenge.Value = 1
- Dim b As Double
-
- b = drv.Item("Frankenbetrag")
- Me.diwert.Value = b
- Me.txtBezD.Text = drv.Item("BezD")
- End If
+ Me.txtBezD.Text = dr.Item("LeistungD")
+ Exit Sub
+ Catch
+ interror = 1
+ MsgBox("Eingegebene Position ist nicht vorhanden.", vbExclamation)
+ Me.txtPosition.Focus()
+ Me.txtPosition.SelectAll()
+ Exit Sub
+ End Try
+
Exit Sub
- Next
+
+ End If
+
End Sub
Private Sub DIPunkte_ValueChanged(sender As Object, e As EventArgs) Handles DIPunkte.ValueChanged, DIMenge.ValueChanged, diwert.ValueChanged
@@ -582,7 +739,12 @@ Public Class Leistungen
End Sub
Sub Leistung_Einfuegen_Dentotar(ByVal SSONummer As String, ByVal anzahl As Integer, Optional DentotarNr As String = "")
+ Dim LeistungOverwrite As Boolean = False
Dim dv As DataView
+ Dim isdentotar As Boolean = False
+ Dim iszahntechik As Boolean = False
+ Dim nrtarifgruppe As Integer
+
Dim sortstring As String = ""
Dim wherestring As String = "LeistungNrNeu='" + Me.txtPosition.Text.ToString + "'"
If DentotarNr <> "" Then
@@ -590,17 +752,43 @@ Public Class Leistungen
End If
If SSONummer = "" Then
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ If dv.Count < 1 Then
+ dv = New DataView(IntTables.Inttables.Tables("Dentotar_223"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ iszahntechik = True
+ Else
+ isdentotar = True
+ End If
Else
wherestring = SSONummer
dv = New DataView(IntTables.Inttables.Tables("Dentotar"), wherestring, sortstring, DataViewRowState.CurrentRows)
-
+ If dv.Count < 1 Then
+ dv = New DataView(IntTables.Inttables.Tables("Dentotar_223"), wherestring, sortstring, DataViewRowState.CurrentRows)
+ iszahntechik = True
+ Else
+ isdentotar = True
+ End If
End If
Dim drv As DataRowView
Try
drv = dv(0)
Catch
- MsgBox("Leistungsposition nicht vorhanden.")
- Exit Sub
+ Dim f As New frmPosition
+ f.TextBox1.Text = Me.txtPosition.Text.ToString
+ f.textbox2.text = Me.txtBezD.Text.ToString
+ f.textbox3.text = Me.txtErgänzung.Text.ToString
+ f.ShowDialog()
+
+ If f.DialogResult <> DialogResult.OK Then Exit Sub
+ If f.DialogResult = DialogResult.OK Then
+ Me.txtPosition.Text = f.TextBox1.Text
+ Me.txtBezD.Text = f.textbox2.text
+ Me.txtErgänzung.Text = f.textbox3.Text
+ LeistungOverwrite = True
+ isdentotar = True
+ Else
+ MsgBox("Leistungsposition nicht vorhanden.")
+ Exit Sub
+ End If
End Try
Dim db As New clsDB
@@ -621,8 +809,17 @@ Public Class Leistungen
r.Item("nrbehandlung") = Me.Behandlungnr
r.Item("mandant") = 1
r.Item("nrtarifgruppe") = 0
- r.Item("nrtarif") = 0
- r.Item("sso_nummer") = drv("LeistungNrNeu")
+ If isdentotar Then
+ r.Item("nrtarif") = 5
+ Else
+ If iszahntechik Then r.Item("nrtarif") = 7
+ End If
+ If LeistungOverwrite Then
+ r.Item("sso_nummer") = Me.txtPosition.Text.ToString
+ Else
+ r.Item("sso_nummer") = drv("LeistungNrNeu")
+
+ End If
If SSONummer = "" Then
r.Item("bezd") = Me.txtBezD.Text + " " + Me.txtErgänzung.Text
Else
@@ -646,21 +843,40 @@ Public Class Leistungen
Else
Try
If betraginchf = 0 Then
- Select Case Me.TaxPunkte
- Case Taxpunkttyp.Maximal
- r.Item("taxpunkte") = drv.Item("pp_amx")
- Case Taxpunkttyp.Minmal
- r.Item("taxpunkte") = drv.Item("pp_min")
- Case Taxpunkttyp.Privat
- r.Item("taxpunkte") = drv.Item("pp_privat")
- Case Taxpunkttyp.Suva
- r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
- Case Taxpunkttyp.Dentotar
- Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
- Case Else
-
- End Select
+ If isdentotar Then
+ Select Case Me.TaxPunkte
+ Case Taxpunkttyp.Maximal
+ r.Item("taxpunkte") = drv.Item("pp_amx")
+ Case Taxpunkttyp.Minmal
+ r.Item("taxpunkte") = drv.Item("pp_min")
+ Case Taxpunkttyp.Privat
+ r.Item("taxpunkte") = drv.Item("pp_privat")
+ Case Taxpunkttyp.Suva
+ r.Item("taxpunkte") = drv.Item("Taxpunkte_UV_MV_IV")
+ Case Taxpunkttyp.Dentotar
+ Me.DIPunkte.Value = drv.Item("Taxpunkte_UV_MV_IV")
+ Case Else
+
+ End Select
+ Else
+ Select Case Me.TaxPunkte
+ Case Taxpunkttyp.Maximal
+ r.Item("taxpunkte") = drv.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Minmal
+ r.Item("taxpunkte") = drv.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Privat
+ r.Item("taxpunkte") = drv.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Suva
+ r.Item("taxpunkte") = drv.Item("TP_Vertrag_mit_MwSt")
+ Case Taxpunkttyp.Dentotar
+ Me.DIPunkte.Value = drv.Item("TP_Vertrag_mit_MwSt")
+ Case Else
+
+ End Select
+
+ End If
End If
+
Catch
End Try
@@ -702,15 +918,15 @@ Public Class Leistungen
Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1)
' If ssonummer = "" Then Exit Sub
- If ssonummer = "7006" Then
- MsgBox("Hallo")
- End If
+ 'If ssonummer = "7006" Then
+ ' MsgBox("Hallo")
+ 'End If
If interror > 0 Then
interror = 0
Exit Sub
End If
If Dentotar = True Then
- If Me.txtPosition.Text.Substring(0, 1) = "4" Then
+ If Me.txtPosition.Text.Substring(0, 1) = "4" Or Me.txtPosition.Text.Substring(0, 1) = "0" Or Me.txtPosition.Text.Substring(0, 1) = "1" Or Me.txtPosition.Text.Substring(0, 1) = "2" Or Me.txtPosition.Text.Substring(0, 1) = "3" Then
Leistung_Einfuegen_Dentotar(ssonummer, anzahl)
Exit Sub
End If
@@ -720,6 +936,8 @@ Public Class Leistungen
Dim dv As DataView
If ssonummer = "" Then
+ 'IntTables.Inttables.Tables("tarif").WriteXml("o:\tarif.xml")
+
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + Me.txtPosition.Text.ToString + "'", "", DataViewRowState.CurrentRows)
Else
dv = New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + ssonummer.ToString + "'", "", DataViewRowState.CurrentRows)
@@ -816,7 +1034,7 @@ Public Class Leistungen
Sub refresh_leistungen()
Me.C1Leistungen.DataSource = Nothing
ldb.dsDaten.Tables.Clear()
- ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1 order by datum desc, sso_nummer asc")
+ ldb.Get_Tabledata("Leistung", " where aktiv=1 and nrbehandlung=" + Me.Behandlungnr.ToString + " and aktiv=1 order by datum desc, nrtarif asc, sso_nummer asc")
Me.C1Leistungen.DataSource = ldb.dsDaten.Tables(0)
Me.C1Leistungen.DataMember = ldb.dsDaten.Tables(0).TableName
spalten.Spaltentitel_aktualisieren(Me.C1Leistungen, ldb.dsDaten.Tables(0).TableName, ldb.dsDaten.Tables(0))
@@ -1014,9 +1232,7 @@ Public Class Leistungen
End Sub
- Private Sub TreeTarifGruppen_Click(sender As Object, e As EventArgs) Handles TreeTarifGruppen.Click
- End Sub
Private Sub LeistungsdatumÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeistungsdatumÄndernToolStripMenuItem.Click
Dim f As New frmKalender
diff --git a/DPM2016/DPM2016.vbproj b/DPM2016/DPM2016.vbproj
index cc26ee8..694a2c1 100644
--- a/DPM2016/DPM2016.vbproj
+++ b/DPM2016/DPM2016.vbproj
@@ -80,16 +80,29 @@
true
- true
+ false
..\..\..\Klassen\TreeViewAdv\Aga.Controls\bin\Debug\Aga.Controls.dll
-
-
-
-
+
+
+ False
+ bin\Debug\C1.Data.2.dll
+
+
+ False
+ bin\Debug\C1.Win.C1Command.4.dll
+
+
+ False
+ bin\Debug\C1.Win.C1Input.4.dll
+
+
+ False
+ bin\Debug\C1.Win.C1TrueDBGrid.2.dll
+
False
@@ -137,6 +150,12 @@
C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2018 R1\XtremeDocumentStudio Free\Bin\Ionic.Zlib.dll
+
+ ..\..\..\_Demos\PictureViewer\SHU_Imagegal\SHU_Imagegal\bin\Debug\KP-ImageViewerV2.dll
+
+
+ ..\..\ThirtPartyKlassen\MsgViewer\bin\Debug\MsgReader.dll
+
False
..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll
@@ -145,18 +164,28 @@
False
..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.Entity.dll
+
+ ..\..\ThirtPartyKlassen\MsgViewer\bin\Debug\OpenMcdf.dll
+
..\..\DPM_Reporting\_PropertyGrid\Source\PropertyGridEx\bin\Debug\PropertyGridEx.dll
+
+ ..\..\ThirtPartyKlassen\MsgViewer\bin\Debug\RtfPipe.dll
+
False
..\DPMLizenzmanagement\SHUKeyGen\bin\Debug\SHUKeyGen.dll
+
+
+
True
+
@@ -167,6 +196,7 @@
+
@@ -209,6 +239,12 @@
Form
+
+ FrmSearchDialog.vb
+
+
+ Form
+
Behandlung.vb
@@ -234,6 +270,12 @@
Form
+
+ frmPosition.vb
+
+
+ Form
+
Leistungen.vb
@@ -293,6 +335,12 @@
Form
+
+ ThumbViewer.vb
+
+
+ UserControl
+
@@ -408,6 +456,12 @@
Form
+
+ frmDentotarDetail.vb
+
+
+ Form
+
frmPrinterselect.vb
@@ -507,6 +561,12 @@
Form
+
+ frmSQLCript.vb
+
+
+ Form
+
frmSuche.vb
@@ -536,6 +596,11 @@
frmreport.vb
+ Designer
+
+
+ FrmSearchDialog.vb
+ Designer
Behandlung.vb
@@ -549,6 +614,9 @@
frmLeistungDetail.vb
+
+ frmPosition.vb
+
Leistungen.vb
@@ -576,6 +644,9 @@
frmImportVorlage.vb
+
+ ThumbViewer.vb
+
frmFakturierung.vb
@@ -627,6 +698,9 @@
frmAuswertungen.vb
+
+ frmDentotarDetail.vb
+
frmPrinterselect.vb
@@ -674,6 +748,9 @@
frmSplash.vb
+
+ frmSQLCript.vb
+
frmSuche.vb
@@ -724,7 +801,9 @@
true
-
+
+
+
-
-
+
- Padding over ridh object
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- This prperty keep RTF to DOC translation result, i.e. DOCX XML fragment
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- MS Word 2007 export class
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Types of table rows height
+ Initializes a new instance of the class.
-
+
- Exactly height
+ Required designer variable.
-
+
- Minimum height
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable matrix view of document
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable Paragraph view of document
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Gets or sets a value that determines whether the wysiwyg mode should be used
- for better results.
+ Initializes a new instance of the class.
-
- Default value is true. In wysiwyg mode, the resulting Excel file will look
- as close as possible to the prepared report. On the other side, it may have a lot
- of small rows/columns, which will make it less editable. If you set this property
- to false, the number of rows/columns in the resulting file will be decreased.
- You will get less wysiwyg, but more editable file.
-
-
+
- Gets or sets the type of height calculation.
+ Required designer variable.
-
+
- Gets or sets the type of height calculation.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable a resolution optimization.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable DoNotExpandShiftReturn.
+ Form for .
+ For internal use only.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
- Initializes a new instance of the Word2007Export class.
+ Initializes a new instance of the class.
-
-
+
+
+ Required designer variable.
+
-
+
- Power point shape
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Power Point Layout Descriptor
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Power Point base class for style element
+ Form for .
+ For internal use only.
-
+
+
+
+
- Base class for styles group
+ Initializes a new instance of the class.
-
+
- Base class for slides, masters, and layouts
+ Required designer variable.
-
+
- Slide masters object
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Ordinaty slide
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Slide layout object
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Presentation class
+ Initializes a new instance of the class.
-
+
- PPt Application Properties class
+ Required designer variable.
-
+
- Ppt Table styles class
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Ppt Presentation properties class
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Ppt View Properties class
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Specifies the image format in PowerPoint export.
+ Initializes a new instance of the class.
-
+
- Specifies the .png format.
+ Required designer variable.
-
+
- Specifies the .jpg format.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Represents the PowerPoint 2007 export.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Gets or sets the image format used when exporting.
+ Form for .
+ For internal use only.
-
+
-
+
-
+
-
-
+
+
+ Initializes a new instance of the class.
+
-
-
+
+
+ Required designer variable.
+
-
-
+
+
+ Clean up any resources being used.
+
+ true if managed resources should be disposed; otherwise, false.
-
-
+
+
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
+
-
+
- Creates a new instance of the class with the default settings.
+ Form for .
+ For internal use only.
-
+
-
-
- Excel 2007 export class
-
+
+
-
+
-
+
- Defines Print Scaling Mode.
+ Initializes a new instance of the class.
-
+
- Print sheets at thier actual size.
+ Required designer variable.
-
+
- Shrink the printout so that it fits on one page.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Shrink the printout so that it is one page wide.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Shrink the printout so that it is one page high.
+ Form for .
+ For internal use only.
-
-
- Gets or sets the Print Fit Mode.
-
+
+
-
-
- Gets or sets the font scale value.
- Default value is 1
-
+
+
-
+
+
+
+
- Enable or disable a resolution optimization.
+ Initializes a new instance of the class.
-
+
- Gets or sets a value that determines whether the wysiwyg mode should be used
- for better results.
+ Required designer variable.
-
- Default value is true. In wysiwyg mode, the resulting Excel file will look
- as close as possible to the prepared report. On the other side, it may have a lot
- of small rows/columns, which will make it less editable. If you set this property
- to false, the number of rows/columns in the resulting file will be decreased.
- You will get less wysiwyg, but more editable file.
-
-
+
- Gets or sets a value that determines whether to insert page breaks in the output file or not.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Gets or sets a value that determines whether to export the databand rows only.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable export of page footers and next page headers without table breaks.
+ Form for .
+ For internal use only.
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
+
-
+
- Initializes a new instance of the class.
+ Initializes a new instance of the class.
-
+
- Picture container
+ Required designer variable.
-
+
- List of all document fonts
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Single page export
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Document structure descriptor
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Main class of XML export
+ Initializes a new instance of the class.
-
+
- PicturesCount
+ Required designer variable.
-
+
- HumanReadable
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
-
-
-
-
+
+
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
+
-
-
+
+
+ Form for .
+ For internal use only.
+
-
+
-
+
-
+
-
+
- Constructor of XPSExport
+ Initializes a new instance of the class.
-
+
- Destructor of XPSExport
+ Required designer variable.
-
-
-
-
+
- Font container
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Font obfuscation procedure
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Drawing class
+ Form for .
+ For internal use only.
-
-
- Share all strings in document
-
+
+
-
+
+
+
+
+
+
+
- Share all URL in document
+ Initializes a new instance of the class.
-
+
- Document styles
+ Required designer variable.
-
+
- Workbook
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- OoXMLSheet class
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Base class for Microsoft Office 2007 export objects
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Default XML header
+ Initializes a new instance of the class.
-
+
- Base class for export Office Open objects
+ Required designer variable.
-
+
- Core document properties
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Core document properties
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- PDF export (Adobe Acrobat)
+ Form for .
+ For internal use only.
-
+
-
-
-
-
- The pdf export
- size of place for svg
+
+
-
-
- The interpolation of curves (svg)
-
+
+
-
+
- The interpolation of curves (text)
+ Initializes a new instance of the class.
-
+
- Export svg object as image, not vector
+ Required designer variable.
-
+
- Gradient interpolation, high value will lead beautiful the gradient,
- but the file size will increase and the speed of work will decrease.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- The quality of gradient, export as image or export as gradient grid
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Added graphics path to pdf,
+ Form for .
+ For internal use only.
- size of rect for gradient filling
- path, with positions in pdf scaling
- Any brush
- Interpolation value
-
- matrix for transform to pdf scale
-
+
+
+
+
+
+
+
- returns true if this gradient is fillable by gradient grid
+ Initializes a new instance of the class.
-
-
+
- The enum of curves interpolation
+ Required designer variable.
-
+
- Export as curves, without interpolation
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Two points
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Four points
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Eight points
+ Initializes a new instance of the class.
-
+
- Sixteen points
+ Required designer variable.
-
+
- The enum of gradient interpolation points
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Two points
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Four points
+ Form for .
+ For internal use only.
-
+
+
+
+
+
+
+
+
+
+
- Eight points
+ Initializes a new instance of the class.
-
+
- Sixteen points
+ Required designer variable.
-
+
- Thirty two points
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Sixty four points
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- One hundred and twenty eight points
+ Base form for all export options dialog forms.
-
+
- Two hundred and fifty six points
+ Represents the "Open after export" button visibility.
-
+
- The quality of gradient export
+ Gets a reference to the currently editing export filter.
-
+
+
+
+
+
+
+
+
+
+
- Export as image
+ Called when editing is done.
+
+ Override this method to pass edited values from the dialog controls to the export filter.
+
+ See the example of this method implementation that is used in the ImageExport.
+
+ protected override void Done()
+ {
+ base.Done();
+ ImageExport imageExport = Export as ImageExport;
+ imageExport.ImageFormat = (ImageExportFormat)cbxImageFormat.SelectedIndex;
+ imageExport.Resolution = (int)udResolution.Value;
+ imageExport.JpegQuality = (int)udQuality.Value;
+ imageExport.SeparateFiles = cbSeparateFiles.Checked;
+ }
+
+
-
+
+
+
+
- Export as low quality gradient grid, max size of interpolation points is 32
+ Initializes controls with initial values.
+ The export filter to edit.
+
+ Override this method to pass values from the export filter to the dialog controls.
+
+ See the example of this method implementation that is used in the ImageExport.
+
+ public override void Init(ExportBase export)
+ {
+ base.Init(export);
+ ImageExport imageExport = Export as ImageExport;
+ cbxImageFormat.SelectedIndex = (int)imageExport.ImageFormat;
+ udResolution.Value = imageExport.Resolution;
+ udQuality.Value = imageExport.JpegQuality;
+ cbSeparateFiles.Checked = imageExport.SeparateFiles;
+ }
+
+
-
+
+
+
+
- Export as medium quality gradient grid, max size of interpolation points is 128
+ Initializes a new instance of the class with default settings.
-
+
- Export as high quality gradient grid, max size of interpolation points is 256
+ Required designer variable.
-
+
- Embedded File
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Name of embedded file.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Description of embedded file.
+ "Page Range" groupbox.
-
+
- Modify Date of embedded file.
+ "Page Numbers" label.
-
+
- Relationship between the embedded document and the PDF part.
+ "Page Numbers" textbox.
-
+
- Valid MIME type.
+ "Page Numbers" radiobutton.
-
+
- Stream of embedded file.
+ "Current Page" radiobutton.
-
+
- File reference.
+ "All Pages" radiobutton.
-
+
- ZUGFeRD Conformance Level.
+ PageControl.
-
- Initializes a new instance of the class.
-
-
+
- Default preview size.
+ Pages panel.
-
+
- Actual size
+ "Open after export" checkbox.
-
+
- Fit Page
+ Required designer variable.
-
+
- Fit Width
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Default
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- 10%
+ Required designer variable.
-
+
- 25%
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- 50%
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- 75%
+ Required designer variable.
-
+
- 100%
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- 125%
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- 150%
+ Represents a Windows Form used to show a table when View Data clicked on a DataSource.
-
+
- 200%
+ Gets or sets the data grid.
-
+
- 400%
+ Initializes a new instance of the class.
-
+
- 800%
+ Required designer variable.
-
+
- Standard of PDF format.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- PDF 1.5
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- PDF/A-2a
+ Required designer variable.
-
+
- PDF/A-2b
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- PDF/A-3a
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- PDF/A-3b
+ Represents the Splash Screen showing during loading designer
-
+
- Pdf/X-3
+ Initializes a new instance of the class.
-
+
- Pdf/X-4
+ Filters mouse events.
+ For internal use only.
-
+
- Color Space.
+ Required designer variable.
-
+
- RGB color space
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- CMYK color space
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Types of pdf export.
+ Represents the Welcome window displayed on the designer startup
-
+
- Simple export
+ Initializes a new instance of the class.
+
-
+
- Web print mode
+ Required designer variable.
-
+
- Relationship between the embedded document and the PDF part.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- The embedded file contains data which is used for the visual representation.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- The embedded file contains the source data for the visual representation derived therefrom in the PDF part.
+ Required designer variable.
-
+
- This data relationship should be used if the embedded data are an alternative representation of the PDF contents.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- This data relationship is used if the embedded file serves neither as the source nor as the alternative representation, but the file contains additional information.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- If none of the data relationships above apply or there is an unknown data relationship, this data relationship is used.
+ Required designer variable.
-
+
- ZUGFeRD Conformance Level.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Basic level.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Comfort level.
+ Required designer variable.
-
+
- Extended level.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Gets or sets PDF Compliance standard.
- After set, do not change other settings, it may lead to fail compliance test.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable of embedding the TrueType fonts.
+ The "Advanced Connection Properties" form.
-
+
- Enable or disable of exporting the background.
+ Gets or sets the connection string builder which contains the connection properties.
-
+
- Enable or disable export text in curves
+ Initializes a new instance of the class.
-
+
- Gets or sets PDF color space
+ Required designer variable.
-
+
- Enables or disables saving images in their original resolution
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enables or disables optimization of images for printing
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable image jpeg compression
+ Required designer variable.
-
+
- Sets the quality of images in the PDF
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Title of the document.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Author of the document.
+ Required designer variable.
-
+
- Subject of the document.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Keywords of the document.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Creator of the document.
+ Required designer variable.
-
+
- Producer of the document.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Sets the owner password.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Sets the user password.
+ Required designer variable.
-
+
- Enable or disable printing in protected document.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable modifying in protected document.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable copying in protected document.
+ Represents the FastReport exception form.
-
+
+
+
+
- Enable or disable annotating in protected document.
+ Creates a new instance ofthe form.
+ The exception object which data to display in the form.
-
+
- Enable or disable the print dialog window after opening
+ Required designer variable.
-
+
- Enable or disable hide the toolbar.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable hide the menu's bar.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable hide the Windows UI.
+ Required designer variable.
-
+
- Enable or disable of fitting the window
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable of centering the window.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable of scaling the page for shrink to printable area.
+ Required designer variable.
-
+
- Enable or disable of document's Outline.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Set default zoom on open document
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Sets the quality of RichText objects in the PDF
+ Required designer variable.
-
+
- Enable or disable the compression in PDF document.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable of images transparency.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Enable or disable of displaying document's title.
+ Required designer variable.
-
+
- Set default page on open document
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Color Profile (ICC file).
- If "null" then default profile will be used
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Gets or sets pdf export mode
+ Required designer variable.
-
+
- Gets pdf AcroForms compatibility, if set then EmbeddingFonts = false and PdfCompliance = PdfStandard.None
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
-
-
-
-
-
-
+
- Begin exporting of page
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
-
+
- End exporting
+
-
-
+
- Export of Band
+ Gets Aborted state
-
-
-
+
+
+
+
-
-
+
+
+
+
-
+
- Add an embedded XML file (only for PDF/A-3 standard).
+ Required designer variable.
- File name
- Description
- Modification date
- File stream
-
+
- Add an embedded XML file (only for PDF/A-3 standard).
+ Clean up any resources being used.
- File name
- Description
- Modification date
- File stream
- ZUGFeRD Conformance Level
+ true if managed resources should be disposed; otherwise, false.
-
+
- Add an embedded file (only for PDF/A-3 standard).
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
- File name
- Description
- Modification date
- Relation type
- MIME type
- File stream
-
+
- Initializes a new instance of the class.
+ Required designer variable.
-
+
- Calculates mask for image.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Calculates image bounds according to .
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Writes pixels' colors without alpha to stream according to CMYK or RGB color space.
- Pixels should be in the format.
+ Required designer variable.
-
-
- File name without extentions, for example "MetaDataX"
-
-
+
- Represents the PPML export filter.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
-
-
-
+
- Enable or disable the pictures in PPML export
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Gets list of generated streams
+ Required designer variable.
-
+
- Gets or sets the image format used when exporting.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Enable or disable export text in curves
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Add TextObject.
+ Required designer variable.
-
+
- Add BandObject.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Add Line.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Add Shape.
+ Form for barcode editor
-
-
-
-
+
- Begin exporting of page
+ Generated text for barcode object
-
-
+
- Export of Band
+ Initializes a new instance of the class.
-
+ Text data for parsing
+ Report object for nodes
+ Brackets symbols
+ Editor for rich barcode?
-
+
- End exporting
+ Required designer variable.
-
-
-
-
-
-
-
-
-
-
-
+
- Initializes a new instance of the class.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Contains Dashes enum
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Specifies the Dash.
+ Required designer variable.
-
+
- Specifies the Dot.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Specifies the DashDot.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Specifies the DashDotDot.
+ Required designer variable.
-
+
- Specifies the Double line.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Create Window.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Add image as PPMLObject
+ Required designer variable.
-
-
-
-
-
-
+
- Save svg file.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Save svg stream.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
-
-
-
-
-
+
- Specifies the image format in PPML export.
+ Required designer variable.
-
+
- Specifies the .png format.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Specifies the .jpg format.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Represents the ps export filter.
+ Required designer variable.
-
-
-
-
+
- Enable or disable the pictures in PS export
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Gets list of generated streams
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Gets or sets the image format used when exporting.
+ Required designer variable.
-
+
- Enable or disable export text in curves
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Add TextObject.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
+
- Add BandObject.
+ Required designer variable.
-
+
- Add Line.
+ Clean up any resources being used.
+ true if managed resources should be disposed; otherwise, false.
-
+
- Add Shape.
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
-
-
-
-
+