fix

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

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