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

fix

Browse Source
This commit is contained in:
d.breimaier
2026-08-27 16:11:09 +02:00
parent 7a6ac9df00
commit b3e2bc81a0
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/USTV/usrCntlUSTV.vb
View File

@@ -2089,7 +2089,7 @@ Public Class usrCntlUSTV
updateVURZ = False 'frm.cbxDivers.Checked
Dim UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(Belegdatum, BelegNr, fd.SafeFileName)
Dim UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(Belegdatum, BelegNr, fd.SafeFileName, USTV_ANTRAG.UStVAn_ID)
If Not UStV_ERS.hasEntry Then
Dim isVZ As Boolean = False

10
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

@@ -640,12 +640,13 @@ Public Class cUStVErstattungPositionen
Return list
End Function
Sub New(Belegdatum As Date, Belegnummer As Integer, UStVEr_Importfilename As String)
Sub New(Belegdatum As Date, Belegnummer As String, UStVEr_Importfilename As String, antragsid As Integer)
Me.Belegdatum = Belegdatum
Me.Belegnummer = Belegnummer
Me.UStVEr_Importfilename = UStVEr_Importfilename
Me.UStVAn_ID = antragsid
LOAD(Belegdatum, Belegnummer, UStVEr_Importfilename)
LOAD(Belegdatum, Belegnummer, UStVEr_Importfilename, antragsid)
End Sub
@@ -698,16 +699,17 @@ Public Class cUStVErstattungPositionen
End Try
End Sub
Public Sub LOAD(Belegdatum As Date, Belegnummer As Integer, UStVEr_Importfilename As String)
Public Sub LOAD(Belegdatum As Date, Belegnummer As String, UStVEr_Importfilename As String, UStVAn_ID As Integer)
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblUStVErstattung WHERE Belegdatum=@Belegdatum AND Belegnummer=@Belegnummer AND UStVEr_Importfilename=@UStVEr_Importfilename ", conn)
Using cmd As New SqlCommand("SELECT * FROM tblUStVErstattung WHERE Belegdatum=@Belegdatum AND Belegnummer=@Belegnummer AND UStVEr_Importfilename=@UStVEr_Importfilename AND UStVAn_ID=@UStVAn_ID ", conn)
cmd.Parameters.AddWithValue("@Belegdatum", Belegdatum)
cmd.Parameters.AddWithValue("@Belegnummer", Belegnummer)
cmd.Parameters.AddWithValue("@UStVEr_Importfilename", UStVEr_Importfilename)
cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
'Dim l As New cOfferte