From b3e2bc81a0469f8b79599d6a8e925f6e63234021 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 27 Aug 2026 16:11:09 +0200 Subject: [PATCH] fix --- SDL/USTV/usrCntlUSTV.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb | 10 ++++++---- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index dbb2f135..da2ce78b 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index 11c90575..70f4c5e6 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -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