From d10963c14aa38048ce17d255ff5e773a4e1bf3b9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 16:08:20 +0100 Subject: [PATCH] Gesamtsicherheiten, etc. --- Aviso/frmGesamtsicherheitenMenuNEU.vb | 4 ++-- Aviso/frmGesamtsicherheitenNEU.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 63f3e48..fedf4c1 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/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 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index e49c520..ff84cde 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -266,7 +266,7 @@ Public Class frmGesamtsicherheitenNEU drFirst.Item("Typ") = "Uebertrag vom" drFirst.Item("Datum") = CDate(datumVon).ToShortDateString Dim DefaultSaldo As Double = currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString) - drFirst.Item("Saldo") = SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) + drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) dtSicherheiten.Rows.InsertAt(drFirst, 0) @@ -338,7 +338,7 @@ Public Class frmGesamtsicherheitenNEU Dim drFirst = dtSicherheiten.NewRow drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon - drFirst.Item("SSaldo") = CDbl(dtSicherheiten.Rows(0).Item("Saldo")) + drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo(, datumVon) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) dtSicherheiten.Rows.InsertAt(drFirst, 0)