Gesamtsicherheiten, etc.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -548,7 +548,7 @@ Public Class frmGesamtsicherheitenMenuNEU
     Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click
 
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
-        MsgBox("Salden wurden neu berechnet")
+        MsgBox("Salden wurde aktualisiert!")
 
     End Sub
 
@@ -585,7 +585,7 @@ Public Class frmGesamtsicherheitenMenuNEU
         Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False)
         f.ShowDialog()
         If f.DialogResult = DialogResult.OK Then
-            GesSichRef.CalcSaldo(, f.Datum)
+            GesSichRef.CalcSaldo(, f.Datum, True)
         End If