Start Neuberechnung salden

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.3.6")>
-<Assembly: AssemblyFileVersion("3.8.3.6")>
+<Assembly: AssemblyVersion("3.8.3.7")>
+<Assembly: AssemblyFileVersion("3.8.3.7")>

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -64,6 +64,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblSaldo = New System.Windows.Forms.Label()
         Me.lblZollsatz = New System.Windows.Forms.Label()
         Me.lblReferenzwert = New System.Windows.Forms.Label()
+        Me.SaldenNeuBerechnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -86,20 +87,20 @@ Partial Class frmGesamtsicherheitenMenuNEU
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.ExportCSV2ToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.ExportCSV2ToolStripMenuItem, Me.SaldenNeuBerechnenToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(192, 92)
         '
         'ExportCSVToolStripMenuItem
         '
         Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
         Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
         '
         'ExportCSV2ToolStripMenuItem
         '
         Me.ExportCSV2ToolStripMenuItem.Name = "ExportCSV2ToolStripMenuItem"
-        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
+        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
         Me.ExportCSV2ToolStripMenuItem.Text = "Export CSV Details"
         '
         'Panel1
@@ -654,6 +655,12 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert.TabIndex = 6
         Me.lblReferenzwert.Text = "Referenzwert: -"
         '
+        'SaldenNeuBerechnenToolStripMenuItem
+        '
+        Me.SaldenNeuBerechnenToolStripMenuItem.Name = "SaldenNeuBerechnenToolStripMenuItem"
+        Me.SaldenNeuBerechnenToolStripMenuItem.Size = New System.Drawing.Size(191, 22)
+        Me.SaldenNeuBerechnenToolStripMenuItem.Text = "Salden neu berechnen"
+        '
         'frmGesamtsicherheitenMenuNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -715,4 +722,5 @@ Partial Class frmGesamtsicherheitenMenuNEU
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents btnOpenOver85Days As VERAG_PROG_ALLGEMEIN.FlatButton
     Friend WithEvents ExportCSV2ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents SaldenNeuBerechnenToolStripMenuItem As ToolStripMenuItem
 End Class

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