Update 20221015

DPM2016/Behandlung/Behandlung.vb

@@ -1626,14 +1626,31 @@ Public Class Behandlung
             Me.c1akonto.DataMember = db.dsDaten.Tables(0).TableName
             Dim spalten As New Tabellenspalte
             spalten.Spaltentitel_aktualisieren(c1akonto, "Akonto", db.dsDaten.Tables(0))
+            Dim total As Double = 0
+            For Each r As DataRow In db.dsDaten.Tables(0).Rows
+                If r("aktiv") = True And r("nrfaktura").ToString <> "0" Then
+                    total = total + r("betrag")
+
+                End If
+
+            Next
+            Me.ToolStripLabel1.Text = total.ToString("F2")
         Catch
             Me.SuperTabControl1.Tabs(2).Visible = False
         End Try
     End Sub
 
     Private Sub RechnungsdokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungsdokumentAnzeigenToolStripMenuItem.Click
-        Dim d As New clsDok
-        Process.Start(d.Get_Aktono_Dokument(c1akonto.Columns(0).Value.ToString))
+        Try
+            Dim d As New clsDok
+            Process.Start(d.Get_Aktono_Dokument(c1akonto.Columns(0).Value.ToString))
+        Catch
+            Dim d As New clsDok
+            If d.Get_Aktono_Dokument(c1akonto.Columns(0).Value.ToString) = "" Then
+                MsgBox("Es ist kein Rechnungsdokument für die Anzeige vorhanden.", vbExclamation)
+            End If
+        End Try
+
 
     End Sub
 
@@ -1698,6 +1715,32 @@ Public Class Behandlung
         ToolStripButton3_Click(sender, e)
     End Sub
 
+    Private Sub AkontoRechnungPDFPerMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AkontoRechnungPDFPerMailToolStripMenuItem.Click
+        Try
+            Globals.akontobuchung = True
+            Globals.akontoid = c1akonto.Columns(0).Value
+
+            Behandungdetail1.Sofortrechnung(True, True, 1)
+            Globals.akontobuchung = False
+            load_data()
+        Catch
+            Globals.akontobuchung = False
+        End Try
+    End Sub
+
+    Private Sub ctxmenuakonto_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenuakonto.Opening
+        Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = True
+        Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = True
+        Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = True
+
+        If c1akonto.Columns("nrfaktura").Value <> 0 Then
+            Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = False
+            Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = False
+            Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = False
+
+        End If
+    End Sub
+