Start Neuberechnung salden

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -23,11 +23,6 @@ Public Class frmGesamtsicherheitenMenuNEU
         End If
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
 
-
-        'txtDatVon.Text = Now.ToShortDateString
-
-
-        'Hiermit werden alle offenen Gestellungen angezeigt.
         txtDatVon.Text = Date.Parse("01.01.2001")
         txtDatBis.Text = Now.ToShortDateString
         chkOffen.Checked = True
@@ -127,13 +122,6 @@ Public Class frmGesamtsicherheitenMenuNEU
         Next
 
 
-        'Debug
-        'For i As Integer = 0 To dt.Rows.Count - 1
-        '    MsgBox("gs_nr: " & dt.Rows(i).Item("gs_gsnr").ToString & " " & "gs_isOpen: " & dt.Rows(i).Item("gs_isOpen").ToString)
-        'Next
-
-
-
         For Each row As DataGridViewRow In dgvListe.Rows
             If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
                 If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
@@ -419,4 +407,17 @@ Public Class frmGesamtsicherheitenMenuNEU
     Private Sub chkOffen_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkOffen.CheckedChanged
         If txtDatVon._value <> "" AndAlso txtDatBis._value <> "" Then btnSucheStarten.PerformClick()
     End Sub
+
+    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
+
+
+
+    End Sub
 End Class