Saldoneuberechnung über Contextmenü im Gesamtsicherheitsmenü

2023-01-02 14:29:37 +01:00
parent e72c228809
commit aba44a5f95
1 changed files with 2 additions and 8 deletions
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb
@@ -411,14 +411,8 @@ Public Class frmGesamtsicherheitenMenuNEU

    Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click

-        If vbYes = MsgBox("Soll der Saldo neu berechnet werden?", vbYesNo) Then
-            'Logik für Neuberechnung der Salden
-
-            MsgBox("Salden wurden neu berechnet")
-
-        End If
-
-
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        MsgBox("Salden wurden neu berechnet")

    End Sub