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

Änderungen Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2023-07-05 13:47:08 +02:00
parent 333da375a6
commit 7e5e1d5d66
2 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

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

7
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -225,7 +225,7 @@ Public Class frmGesamtsicherheitenNEU
drFirst.Item("Nr") = 0 drFirst.Item("Nr") = 0
drFirst.Item("Typ") = "Uebertrag vom" drFirst.Item("Typ") = "Uebertrag vom"
drFirst.Item("Datum") = CDate(datumVon).ToShortDateString drFirst.Item("Datum") = 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 asc", "AVISO",,, currentGesSichRef.brgakto_betrag) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) 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 asc", "AVISO",,, currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString)) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
dtSicherheiten.Rows.InsertAt(drFirst, 0) dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -1915,9 +1915,4 @@ Public Class frmGesamtsicherheitenNEU
End If End If
End Sub End Sub
Private Sub txtAnzahlPos_Leave(sender As Object, e As EventArgs) Handles txtAnzahlPos.Leave
If txtAnzahlPos.Text = "" Then
txtAnzahlPos.Text = 1
End If
End Sub
End Class End Class