edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-13 16:08:20 +01:00
parent f98821c15a
commit d10963c14a
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -548,7 +548,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
MsgBox("Salden wurden neu berechnet") MsgBox("Salden wurde aktualisiert!")
End Sub End Sub
@@ -585,7 +585,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False) Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False)
f.ShowDialog() f.ShowDialog()
If f.DialogResult = DialogResult.OK Then If f.DialogResult = DialogResult.OK Then
GesSichRef.CalcSaldo(, f.Datum) GesSichRef.CalcSaldo(, f.Datum, True)
End If End If

4
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -266,7 +266,7 @@ Public Class frmGesamtsicherheitenNEU
drFirst.Item("Typ") = "Uebertrag vom" drFirst.Item("Typ") = "Uebertrag vom"
drFirst.Item("Datum") = CDate(datumVon).ToShortDateString drFirst.Item("Datum") = CDate(datumVon).ToShortDateString
Dim DefaultSaldo As Double = currentGesSichRef.getReferenzbetrag(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) dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -338,7 +338,7 @@ Public Class frmGesamtsicherheitenNEU
Dim drFirst = dtSicherheiten.NewRow Dim drFirst = dtSicherheiten.NewRow
drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon 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) dtSicherheiten.Rows.InsertAt(drFirst, 0)