shu
/
DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1d75dbb15b'
${ noResults }
DPM_PADM/DPM2016 - Kopie/Behandlung/Behandlung.vb

1208 lines
53 KiB
Raw Blame History

Imports System.ComponentModel
Imports DevComponents.AdvTree
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Parsing
Public Class Behandlung
#Region "Properties"
Dim m_patientnr As Integer
Property PatientNr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
Try
If value = 0 Then Exit Property
m_patientnr = value
Get_Behandlungen()
Catch ex As Exception
log.Writelog("Behandlung: PatientNr Set: " + ex.Message, clsLog.Logtype.ApplError)
Dim a As Integer = 1
End Try
End Set
End Property
Dim m_haschanges As Boolean
Property HasChanges As Boolean
Get
Return m_haschanges
End Get
Set(value As Boolean)
m_haschanges = value
End Set
End Property
#End Region
#Region "Deklarationen"
Dim DB As New clsDB
Dim log As New clsLog
Dim FormReadonly As Boolean = False
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.HasChanges Then
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
Select Case msgres
Case MsgBoxResult.Yes
'Save_Data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.HasChanges = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.HasChanges = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.HasChanges = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Daten_Laden"
Sub Get_Behandlungen()
DB.Get_Tabledata("Behandlu", " where aktiv=1 and nrpatient=" + Me.PatientNr.ToString + " order by status, behandlungsbeginn desc")
Me.treebehandlungen.Nodes.Clear()
Dim BH As New DevComponents.AdvTree.Node
Dim BHoffen As New DevComponents.AdvTree.Node
Dim BHabgeshlossen As New DevComponents.AdvTree.Node
Dim BHFakturiert As New DevComponents.AdvTree.Node
Dim kv As New DevComponents.AdvTree.Node
Dim kvoffen As New DevComponents.AdvTree.Node
Dim kvabgeschlossen As New DevComponents.AdvTree.Node
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
BH.Text = "Projekte"
Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Visible = False
Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Visible = False
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/Offerte Vorschau"
Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/Offerte Entwurf"
Me.GroupBox1.Width = 350
Else
BH.Text = "Behandlungen"
End If
' BH.Text = "Behandlungen"
BH.Tag = -1
BH.ImageIndex = 0
BHoffen.Text = "Offen"
BHoffen.Tag = -11
BHoffen.ImageIndex = 0
BHabgeshlossen.Text = "Abgeschlossen"
BHabgeshlossen.Tag = -12
BHabgeshlossen.ImageIndex = 0
BHFakturiert.Text = "Fakturiert"
BHFakturiert.Tag = -13
BHFakturiert.ImageIndex = 0
BH.Nodes.Add(BHoffen)
BH.Nodes.Add(BHabgeshlossen)
BH.Nodes.Add(BHFakturiert)
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
kv.Text = "Offerten"
Else
kv.Text = "Kostenvoranschläge"
End If
' kv.Text = "Kostenvoranschlag"
kv.Tag = -2
kv.ImageIndex = 1
kvoffen.Text = "Offen"
kvoffen.Tag = -22
kvoffen.ImageIndex = 1
kvabgeschlossen.Text = "Abgeschlossen"
kvabgeschlossen.Tag = -23
kvabgeschlossen.ImageIndex = 1
Me.treebehandlungen.Nodes.Add(BH)
Me.treebehandlungen.Nodes.Add(kv)
kv.Nodes.Add(kvoffen)
kv.Nodes.Add(kvabgeschlossen)
Dim firstnode_tag As Integer = 0
For Each r As DataRow In DB.dsDaten.Tables(0).Rows
If firstnode_tag = 0 Then firstnode_tag = r("nrbehandlung")
Dim tn As New DevComponents.AdvTree.Node
tn.Tag = r("nrbehandlung")
Dim total As Double = r("Total")
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
tn.Text = r("behandlungsgrund") + " / " + r("behandlungsbeginn") + " / " + total.ToString("N2")
Else
tn.Text = r("behandlungsbeginn") + " / " + total.ToString("N2")
End If
Select Case r("status")
Case 1
tn.ImageIndex = 2
BHoffen.Nodes.Add(tn)
Case 2
tn.ImageIndex = 3
BHabgeshlossen.Nodes.Add(tn)
Case 3
tn.ImageIndex = 4
BHFakturiert.Nodes.Add(tn)
Case 4
tn.ImageIndex = 2
kvoffen.Nodes.Add(tn)
Case 5
tn.ImageIndex = 3
kvabgeschlossen.Nodes.Add(tn)
End Select
Next
Me.treebehandlungen.ExpandAll()
enable_disable_tabs(False)
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, firstnode_tag, firstnode_tag)
If firstnode_tag <> 0 Then nodeselected()
End Sub
#End Region
Private Sub treebehandlungen_Click(sender As Object, e As EventArgs) Handles treebehandlungen.Click, treebehandlungen.AfterNodeSelect
nodeselected()
End Sub
Sub nodeselected()
Try
If Me.Behandungdetail1.HasChanges Then
Me.Behandungdetail1.Check_Changes()
End If
Globals.OnLoad = True
If Me.treebehandlungen.SelectedNode.Tag > 0 Then
Me.Behandungdetail1.SuspendLayout()
Me.Behandungdetail1.Patientnr = Me.PatientNr
Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag
Me.Behandungdetail1.Behandlungsnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungnr = Me.treebehandlungen.SelectedNode.Tag
Me.Leistungen1.Behandlungsstatus = Behandungdetail1.Behandlungsstatus
Me.Leistungen1.Dentotar = Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
Try
Leistungen1.cbboxnrbehandler.SelectedValue = Behandungdetail1.cbboxnrbehandler.SelectedValue
Catch
End Try
enable_disable_tabs(True)
refresh_tabs()
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.ResumeLayout()
Else
enable_disable_tabs(False)
End If
Catch ex As Exception
enable_disable_tabs(False)
Finally
Globals.OnLoad = False
End Try
End Sub
Sub enable_disable_tabs(ByVal enable As Boolean)
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
End If
End Sub
Private Sub DDTBehandlungsbeginn_DoubleClick(sender As Object, e As EventArgs)
sender.value = Now
End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
Try
refresh_tabs()
Catch
End Try
End Sub
Sub refresh_tabs()
Me.Leistungen1.TaxPunkte = Me.Behandungdetail1.cbboxNrtaxpunkt.SelectedValue
Me.Leistungen1.Frankenwert = Me.Behandungdetail1.mtxtTaxpunktwert.Text
Me.Leistungen1.behandler = Me.Behandungdetail1.cbboxnrbehandler.SelectedValue
Me.Leistungen1.Behandlungnr = Me.Behandungdetail1.Behandlungsnr
Me.Leistungen1.Dentotar = Me.Behandungdetail1.cbboxNrAbrechnungstyp.Text.Substring(0, 8) = "Dentotar"
Me.Leistungen1.dtdatum.Value = Me.Behandungdetail1.DDTBehandlungsbeginn.Value
Me.Leistungen1.txtErgänzung.Text = ""
Me.Leistungen1.refresh_leistungen()
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Benhandungdetail1_Load(sender As Object, e As EventArgs) Handles Behandungdetail1.Load
End Sub
Private Sub tsbtnnewbehandlung_Click(sender As Object, e As EventArgs) Handles tsbtnnewbehandlung.Click
If Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag" Then
Neue_Behandlung(4)
Else
Neue_Behandlung(1)
End If
End Sub
Sub Neue_Behandlung(ByVal Status As Integer)
Dim db As New clsDB
Dim pat As New clsDB
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Dim newkey As Integer = db.Get_DBKey("Behandlung")
db.Get_Tabledata("Behandlu", " where nrbehandlung=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next
r.Item("nrestyp") = pat.dsDaten.Tables(0).Rows(0).Item("estyp")
If Status = 4 Then
Dim db1 As New clsDB
db1.Get_Tabledata("ESTYP", "where default_bei_kv=1")
If db1.dsDaten.Tables(0).Rows.Count > 0 Then
r.Item("nrestyp") = db1.dsDaten.Tables(0).Rows(0).Item("nrestyp")
End If
db1.Dispose()
Else
Dim db1 As New clsDB
db1.Get_Tabledata("ESTYP", "where default_bei_rg=1")
If db1.dsDaten.Tables(0).Rows.Count > 0 Then
r.Item("nrestyp") = db1.dsDaten.Tables(0).Rows(0).Item("nrestyp")
End If
db1.Dispose()
End If
r.Item("nrbehandlung") = newkey
r.Item("nrpatient") = Me.PatientNr
'r.Item("nrbehandler") = 1
r.Item("nrrgtyp") = pat.dsDaten.Tables(0).Rows(0).Item("nrrgtyp")
r.Item("rabatt") = pat.dsDaten.Tables(0).Rows(0).Item("rabatt")
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrgarant") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgarant")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrvs") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrvs")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrkk") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrkk")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nrfs") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrfs")
Catch
End Try
Try
If pat.dsDaten.Tables(0).Rows(0).Item("nriv") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nriv")
Catch
End Try
'If pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertrater") > 0 Then r.Item("nrgarant") = pat.dsDaten.Tables(0).Rows(0).Item("nrgesvertreter")
r.Item("behandlungsbeginn") = Now
r.Item("Behandlungsende") = Now
r.Item("status") = Status
r.Item("statusdatum") = Now
r.Item("erstellt_am") = Now
r.Item("mutiert_am") = Now
r.Item("mutierer") = Globals.ActUser
r.Item("aktiv") = True
Dim dbgesetz As New clsDB
dbgesetz.Get_Tabledata("Gesetz", "", "Select * from gesetz where standard=1")
If dbgesetz.dsDaten.Tables(0).Rows.Count = 0 Then
r.Item("nrgesetz") = 0
Else
r.Item("nrgesetz") = dbgesetz.dsDaten.Tables(0).Rows(0).Item("nrgesetz")
End If
dbgesetz.Get_Tabledata("Gesetz", "", "Select * from behandlungsart where standard=1")
If dbgesetz.dsDaten.Tables(0).Rows.Count = 0 Then
r.Item("nrbehandlungsart") = 0
Else
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")
Get_Standards(r.Item("andrucken_taxpunkte"), "ANDRUCKENTAXPUNKTE")
Get_Standards(r.Item("mitdatum"), "Mitdatum")
Get_Standards(r.Item("rabattgesamt"), "RABATTGESAMT")
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
pat.Dispose()
db.Dispose()
Me.Get_Behandlungen()
Try
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey)
Me.nodeselected()
Catch ex As Exception
End Try
End Sub
Sub Get_Standards(ByRef o As Object, feld As String)
Dim dbs As New clsDB
Try
Select Case UCase(feld)
Case "BEHANDLER"
Try
o = Globals.ActUser
Catch ex As Exception
End Try
dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=1", "", False)
If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
If dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert") = "ActUser" Then
dbs.Get_Tabledata("User", "", "Select behandlernummer from [user] where userid=" + Globals.ActUser.ToString, "", False)
o = dbs.dsDaten.Tables(0).Rows(0).Item("behandlernummer")
Else
o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert")
End If
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 "ANDRUCKENTAXPUNKTE"
dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=6", "", False)
If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert") = "Ja"
End If
Case "MITDATUM"
dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=7", "", False)
If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert") = "Ja"
End If
Case "RABATTGESAMT"
dbs.Get_Tabledata("Standards", "", "Select * from standards where eintragnr=8", "", False)
If dbs.dsDaten.Tables(0).Rows.Count > 0 Then
o = dbs.dsDaten.Tables(0).Rows(0).Item("Standardwert") = "Ja"
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
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion, "Behandlung löschen") = MsgBoxResult.Yes Then
Dim db As New clsDB
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = 0
db.dsDaten.Tables(0).Rows(0).Item("Status") = 9
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
End If
End Sub
Private Sub BehandlungAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungAbschliessenToolStripMenuItem.Click
End Sub
Private Sub NeueBehandlungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeueBehandlungToolStripMenuItem1.Click
Me.tsbtnnewbehandlung_Click(sender, e)
End Sub
Private Sub BehandlungLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungLöschenToolStripMenuItem1.Click
Me.tsbtndeletebehandlung_Click(sender, e)
End Sub
Private Sub BehandlungabschliessenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungabschliessenToolStripMenuItem1.Click
Application.DoEvents()
Me.ctxmenubehandlung.Close()
' If MsgBox("Behandlung/KV abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Try
If DB.Get_Option(10001) = True Then Globals.Recall_Bei_Abschluss = True Else Globals.Recall_Bei_Abschluss = False
Catch
End Try
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, Globals.Recall_Bei_Abschluss)
'End If
End Sub
Private Sub BehandlunKopierenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungKopierenToolStripMenuItem.Click
If BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren" Then
Dim dl As MsgBoxResult = MsgBox("Als Kostenvoranschlag kopieren (Ja) oder als neue Behandlung kopieren (Nein)?", vbYesNoCancel + vbQuestion)
If dl = vbYes Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 1)
End If
If dl = vbNo Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 2)
End If
Else
Dim dl As MsgBoxResult = MsgBox("Als Behandlung kopieren (Ja) oder als neuer KV kopieren (Nein)?", vbYesNoCancel + vbQuestion)
If dl = vbYes Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 3)
End If
If dl = vbNo Then
Dim db As New clsDB
db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 4)
End If
End If
Get_Behandlungen()
End Sub
Private Sub tsbtndelete_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles tsbtndelete.ItemClicked
End Sub
Private Sub ctxmenubehandlung_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenubehandlung.Opening
Try
Dim i As Integer
Try
i = Me.treebehandlungen.SelectedNode.Parent.Tag
Catch
i = Me.treebehandlungen.SelectedNode.Tag
End Try
Me.NeueBehandlungToolStripMenuItem.Enabled = True
Me.BehandlungAbschliessenToolStripMenuItem.Enabled = True
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungKopierenToolStripMenuItem.Enabled = True
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
Me.KopieErstellenToolStripMenuItem.Enabled = True
Me.BehandlungKopierenToolStripMenuItem.Enabled = True
Me.NeueBehandlungToolStripMenuItem.Visible = True
Me.BehandlungAbschliessenToolStripMenuItem.Visible = True
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungKopierenToolStripMenuItem.Visible = True
Me.SofortRechnungDruckenToolStripMenuItem.Visible = True
Me.KopieErstellenToolStripMenuItem.Visible = True
Me.BehandlungKopierenToolStripMenuItem.Visible = True
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Text = "Abschluss und Sofortrechnung als " + Globals.MailClient + "-Mail"
Me.AlsMailToolStripMenuItem.Text = "als PDF an " + Globals.MailClient + "-Mail"
Me.AlsPDFPerMailToolStripMenuItem.Text = "als PDF per " + Globals.MailClient + "-Mail"
'
Me.ctxmenubehandlung.Enabled = True
Select Case i
Case -11
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = True
Me.KopieErstellenToolStripMenuItem.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Case -12
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
KopieErstellenToolStripMenuItem.Enabled = False
Case -13
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = True
End Select
If Globals.Applicationtype = Globals.ApplicationTypes.Projektabrechnung Then
Select Case i
Case -23
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Offerte"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Offerte zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Offerte löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Offerte kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Offerte drucken"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
Case -2
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Offerte"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Offerte zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Offerte löschen"
Me.BehandlungLöschenToolStripMenuItem1.Enabled = False
Me.BehandlungKopierenToolStripMenuItem.Text = "Offerte kopieren"
Case > -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Projekt abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neues Projekt"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Projek zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Projekt löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Projekt kopieren"
Case < -20 And
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Offerte"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Offerte zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Offerte löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Offerte kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
End Select
Else
Select Case i
Case -23
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
Me.SofortRechnungDruckenToolStripMenuItem.Text = "Kostenvoranschlag drucken"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = True
Case -2
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
BehandlungabschliessenToolStripMenuItem1.Enabled = False
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungLöschenToolStripMenuItem1.Enabled = False
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Case > -20
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Behandlung"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
Case < -20 And
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
BehandlungabschliessenToolStripMenuItem1.Enabled = True
Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Kostenvoranschlag zurücksetzen"
Me.BehandlungZurücksetzenToolStripMenuItem.Visible = False
Me.BehandlungLöschenToolStripMenuItem1.Text = "Kostenvoranschlag löschen"
Me.BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren"
Me.SofortRechnungDruckenToolStripMenuItem.Enabled = False
Me.KopieErstellenToolStripMenuItem.Enabled = False
End Select
End If
If Globals.MenuString <> "" Then
Dim splitter() As String
splitter = Globals.MenuString.Split(";")
For i = 0 To splitter.Length - 1
Dim x As Integer = splitter(i)
Me.BehandlungabschliessenToolStripMenuItem1.DropDownItems(x).Visible = False
Next
End If
Dim s As String
s = DB.Get_Option(9103)
If s <> "" Then Me.AbschlussUndSofortrechnungToolStripMenuItem.Text = s
s = DB.Get_Option(9104)
If s <> "" Then Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Text = s
s = DB.Get_Option(9105)
If s <> "" Then Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Text = s
s = DB.Get_Option(9106)
If s <> "" Then Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Text = s
Catch ex As Exception
MsgBox(ex.Message)
Me.ctxmenubehandlung.Enabled = False
End Try
End Sub
Private Sub BehandlungZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BehandlungZurücksetzenToolStripMenuItem.Click
Dim db As New clsDB
Dim Messagetext As String
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + key.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 2 Or db.dsDaten.Tables(0).Rows(0).Item("Status") = 3 Then
Messagetext = "Behandlung "
Else
Messagetext = "Kostenvoranschlag"
End If
Dim fakt As New clsFakturierung
Dim Result = fakt.Verrechnet(Me.treebehandlungen.SelectedNode.Tag)
Select Case Result
Case 0
If MsgBox(Messagetext + " zurücksetzen?", vbYesNo + vbQuestion, Messagetext + " zurücksetzen") = MsgBoxResult.Yes Then
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
End If
Case 1
If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then
fakt.Storno(Me.treebehandlungen.SelectedNode.Tag)
Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
If Globals.License.DMS = True Then
Dim dok As New clsDok
dok.delete_doks(Me.treebehandlungen.SelectedNode.Tag)
dok = Nothing
End If
End If
Case 2
MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
End Select
End Sub
Private Sub Behandlung_Zurücksetzen(ByVal nrbehandlung As Integer)
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
Dim db As New clsDB
Dim result As String
result = db.Get_Datavalue(db.Get_SQL(29), nrbehandlung)
If result <> 0 Then
MsgBox("Behandlung kann nicht zurückgesetzt werden, da Zahlungen vorhanden sind.", vbExclamation)
Exit Sub
End If
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = 1
If db.dsDaten.Tables(0).Rows(0).Item("Status") > 3 Then
db.dsDaten.Tables(0).Rows(0).Item("Status") = 4
Else
db.dsDaten.Tables(0).Rows(0).Item("Status") = 1
End If
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, key, key)
Me.nodeselected()
End Sub
Sub Behandlung_Abschliessen(ByVal nrbehandlung As Integer, Optional show_recall As Boolean = True)
Globals.InAbschluss = 0
Dim istKV As Boolean = False
Dim db As New clsDB
Dim Messagetext As String
Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 1 Then
Messagetext = "Behandlung "
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then Messagetext = "Projekt"
Else
istKV = True
Messagetext = "Kostenvoranschlag"
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then Messagetext = "Offerte"
End If
If db.dsDaten.Tables(0).Rows(0).Item("rgdatum").ToString < Now.ToString And db.dsDaten.Tables(0).Rows(0).Item("rgdatum").ToString <> "" Then
Dim d As New frmMsgbox
d.set_text("Das Rechnungsdatum liegt in der Vergangenheit.", "Löschen und weiter", "weiter", "Abbruch")
Dim res As DialogResult
res = d.ShowDialog
Select Case res
Case DialogResult.Yes
db.dsDaten.Tables(0).Rows(0).Item("rgdatum") = System.DBNull.Value
db.Update_Data()
Case DialogResult.No
Case DialogResult.Abort, DialogResult.Cancel
Exit Sub
End Select
End If
If MsgBox(Messagetext + " abschliessen?", vbYesNo + vbQuestion) = vbYes Then
Me.Behandungdetail1.Save_Data()
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Status") = 1 Then
db.dsDaten.Tables(0).Rows(0).Item("Status") = 2
Messagetext = "Behandlung "
Else
db.dsDaten.Tables(0).Rows(0).Item("Status") = 5
istKV = True
Messagetext = "Kostenvoranschlag"
End If
If db.dsDaten.Tables(0).Rows(0).Item("Behandlungsende").ToString = "" Then
db.dsDaten.Tables(0).Rows(0).Item("Behandlungsende") = db.dsDaten.Tables(0).Rows(0).Item("Behandlungsbeginn")
End If
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, key, key)
Me.nodeselected()
If istKV Then Exit Sub
If show_recall = False Then Exit Sub
Do_Show_Recall()
End If
Globals.InAbschluss = 0
End Sub
Public Sub Do_Show_Recall()
Dim pat As New clsDB
pat.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
Try
If pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall") > 0 Then
Dim Newdate As DateTime
Newdate = DateAdd(DateInterval.Month, pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall"), Now)
evh.Fire_Recall_Anzeigen(Newdate, Me.PatientNr, 1)
End If
Catch ex As Exception
End Try
End Sub
#Region "EVH"
Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
If Me.PatientNr = patientnr and patientnr <> 0 Then
Dim tn As DevComponents.AdvTree.Node
tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
Try
tn.Text = Me.Behandungdetail1.DDTBehandlungsbeginn.Text + " / " + Me.Behandungdetail1.txtcTotal.Text
Catch
End Try
End If
End Sub
Private Sub evh_Behandlung_Inserted(Patientnr As Integer, Behandlungsnummer As Integer) Handles evh.Behandlung_Inserted
If Me.PatientNr = Patientnr Then
Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, Behandlungsnummer, Behandlungsnummer)
End If
End Sub
Private Sub evh_Taxpunktwert_changed(behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double) Handles evh.Taxpunktwert_changed
Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Leistungen1.Frankenwert = taxpunktwert
Leistungen1.Recalc_Leistungen()
End If
Catch ex As Exception
End Try
End Sub
Private Sub evh_Behandlung_Zurücksetzen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Zurücksetzen
If Me.PatientNr = patient Then Behandlung_Zurücksetzen(behandlungsnummer)
End Sub
Private Sub evh_Behandlung_Abschliessen(behandlungsnummer As Integer, patient As Integer) Handles evh.Behandlung_Abschliessen
If Me.PatientNr = patient Then Behandlung_Abschliessen(behandlungsnummer)
End Sub
Private Sub NeuerKostenvoranschalgToolStripMenuItem_Click(sender As Object, e As EventArgs)
Neue_Behandlung(4)
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Get_Behandlungen()
End Sub
Private Sub KopieErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopieErstellenToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString)
Exit Sub
Globals.RGCollection.Clear()
Dim anzahlraten As Integer = 0
DB.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.treebehandlungen.SelectedNode.Tag.ToString)
Dim behandlungsnr As Integer = DB.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
anzahlraten = DB.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
If anzahlraten = 0 Then anzahlraten = 1
DB.Get_Tabledata("estyp", "where nrestyp=" + DB.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
Dim reportnr As Integer
reportnr = DB.Get_ReportNr(DB.dsDaten.Tables(0).Rows(0).Item("estyp"))
Dim fakturanr As Integer
Try
DB.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
fakturanr = DB.dsDaten.Tables(0).Rows(0).Item(0)
Catch
fakturanr = 0
End Try
Globals.FakturaNr = fakturanr
Dim Folgeauswertung As Integer
Dim Separater_Druckjob As Boolean
Dim doloop As Boolean = True
DB.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
Folgeauswertung = DB.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = DB.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Dim hauptfaktura As Integer
While doloop = True
For i As Integer = 1 To anzahlraten
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString)
f.Show()
If fakturanr = 0 Then
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
Else
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
End If
'f.Print_Rechnung(False, False, i)
f.Close()
'If i = 1 Then
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, 1)
' hauptfaktura = fakt.fakturanr
'Else
' Dim fakt As New clsFakturierung
' fakt.Verbuchen(Me.Behandlungsnr, i, hauptfaktura)
'End If
Next i
If Folgeauswertung > 0 Then
reportnr = Folgeauswertung
DB.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
Folgeauswertung = DB.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
Separater_Druckjob = DB.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
Else
doloop = False
End If
End While
If Globals.RGCollection.Count > 1 Then
Dim document As New PdfDocument()
document.EnableMemoryOptimization = True
Dim i As Integer = 0
Dim fn As String = ""
For Each inputDocument As String In Globals.RGCollection
i = i + 1
If i = 1 Then fn = inputDocument
Dim loadedDocument As New PdfLoadedDocument(inputDocument)
loadedDocument.EnableMemoryOptimization = True
document.ImportPageRange(loadedDocument, 0, loadedDocument.Pages.Count - 1)
loadedDocument.Close(True)
Next
document.Save(fn + ".copy.pdf")
document.Close()
End If
End Sub
Private Sub SofortRechnungDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SofortRechnungDruckenToolStripMenuItem.Click
Behandungdetail1.Sofortrechung_normal()
' Behandungdetail1.ToolStripDropDownButton1_Click(sender, e)
End Sub
Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
Behandungdetail1.VorschaRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub EntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntwurfToolStripMenuItem.Click
Behandungdetail1.DesignRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub RechungKVVorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechungKVVorschauToolStripMenuItem.Click
Behandungdetail1.VorschaRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub RechnungKVEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungKVEntwurfToolStripMenuItem.Click
Behandungdetail1.DesignRechnungToolStripMenuItem_Click(sender, e)
End Sub
Private Sub treebehandlungen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles treebehandlungen.AfterNodeSelect
' Me.treebehandlungen_Click(sender, e)
End Sub
Private Sub evh_Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Handles evh.Refresh_Behandlung
If Me.PatientNr = patientnr Then
Me.Get_Behandlungen()
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnr, behandlungsnr)
Me.nodeselected()
End If
End Sub
Private Sub AlsPDFToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsPDFToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString, False, True)
End Sub
Private Sub ÜberDruckerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÜberDruckerToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString)
Exit Sub
End Sub
Private Sub evh_Total_Berechnet(behandlungsnummer As Integer, Total As Double) Handles evh.Total_Berechnet
Try
If Me.treebehandlungen.SelectedNode.Tag = behandlungsnummer Then
Dim s As String
s = treebehandlungen.SelectedNode.Text
Dim i As Integer
i = s.IndexOf(" /")
If i > 0 Then
s = s.Substring(0, i)
s = s + " / " + Total.ToString("N2")
treebehandlungen.SelectedNode.Text = s
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub AlsPdfToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AlsPdfToolStripMenuItem1.Click
Behandungdetail1.Sofortrechnung_als_pdf()
End Sub
Private Sub AlsMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsMailToolStripMenuItem.Click
Behandungdetail1.Sofortrechnung_als_pdf(True, 1)
End Sub
Private Sub AbschlussMitRecallAnzeigeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussMitRecallAnzeigeToolStripMenuItem.Click
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, True)
End Sub
Private Sub AbshlussOhneRecallAnzeigeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbshlussOhneRecallAnzeigeToolStripMenuItem.Click
Behandlung_Abschliessen(Me.treebehandlungen.SelectedNode.Tag.ToString, False)
End Sub
Private Sub AlsPDFPerMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlsPDFPerMailToolStripMenuItem.Click
Globals.Rg_Funktionen.Rechnungskopie(Me.treebehandlungen.SelectedNode.Tag.ToString, False, True, True)
End Sub
Private Sub AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Click
BehandlungabschliessenToolStripMenuItem1_Click(sender, e)
AlsMailToolStripMenuItem_Click(sender, e)
Do_Show_Recall()
End Sub
Private Sub AbschlussUndSofortrechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussUndSofortrechnungToolStripMenuItem.Click
BehandlungabschliessenToolStripMenuItem1_Click(sender, e)
SofortRechnungDruckenToolStripMenuItem_Click(sender, e)
Do_Show_Recall()
End Sub
Private Sub AbschlussUndSofortrechungAlsPDFToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Click
BehandlungabschliessenToolStripMenuItem1_Click(sender, e)
AlsPdfToolStripMenuItem1_Click(sender, e)
Do_Show_Recall()
End Sub
Private Sub AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Click
Globals.IgnorePrint = True
BehandlungabschliessenToolStripMenuItem1_Click(sender, e)
SofortRechnungDruckenToolStripMenuItem_Click(sender, e)
Globals.IgnorePrint = False
evh.Fire_Finanzen_Anzeigen(Me.PatientNr)
End Sub
#End Region
End Class
Reference in new issue View Git Blame Copy Permalink