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

Fiskaluebersicht

Browse Source
This commit is contained in:
d.breimaier
2023-05-23 08:01:36 +02:00
parent d327133bb4
commit 8ab2f060ec
3 changed files with 190 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -126,13 +126,12 @@ Public Class cBonitaetsauskunft
End Function
Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer) As cBonitaetsauskunft
Try
Dim BONI As New cBonitaetsauskunft
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date) >= @ba_Datum order by ba_Datum desc ", conn)
Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr order by ba_Datum desc ", conn)
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In BONI.getParameterList()