From aba44a5f956c478323b4e307d86049cb2b2f98b0 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 2 Jan 2023 14:29:37 +0100
Subject: [PATCH] =?UTF-8?q?Saldoneuberechnung=20=C3=BCber=20Contextmen?=
 =?UTF-8?q?=C3=BC=20im=20Gesamtsicherheitsmen=C3=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/frmGesamtsicherheitenMenuNEU.vb | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb
index 0a80f8d..c43e15e 100644
--- 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