div. Änderunge, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -604,6 +604,7 @@ Public Class cUStVErstattungPositionen
     Property UStVEr_RZVZ As Object = Nothing
     Property UStVEr_Bank As Object = Nothing
     Property UStVEr_Differenz As Object = Nothing
+    Property UStVEr_RK_ID As Object = Nothing
 
     Public hasEntry = False
 
@@ -635,10 +636,11 @@ Public Class cUStVErstattungPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_RZVZ", UStVEr_RZVZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_Bank", UStVEr_Bank))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_Differenz", UStVEr_Differenz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVEr_RK_ID", UStVEr_RK_ID))
         Return list
     End Function
 
-    Sub New(Belegdatum, Belegnummer, UStVEr_Importfilename)
+    Sub New(Belegdatum As Date, Belegnummer As Integer, UStVEr_Importfilename As String)
         Me.Belegdatum = Belegdatum
         Me.Belegnummer = Belegnummer
         Me.UStVEr_Importfilename = UStVEr_Importfilename
@@ -647,18 +649,26 @@ Public Class cUStVErstattungPositionen
     End Sub
 
 
-    Sub New(UStVAn_ID, UStVEr_ID)
+    Sub New(UStVAn_ID As Integer, UStVEr_ID As Integer)
         Me.UStVAn_ID = UStVAn_ID
         Me.UStVEr_ID = UStVEr_ID
 
         LOAD(UStVAn_ID, UStVEr_ID)
     End Sub
+
+    Sub New(UStVAn_ID As Integer, GutschriftsNr As Integer, GutschriftsDatum As Date)
+        Me.UStVAn_ID = UStVAn_ID
+        Me.GutschriftsNr = GutschriftsNr
+        Me.GutschriftsDatum = GutschriftsDatum
+
+        LOAD(UStVAn_ID, GutschriftsDatum, GutschriftsNr)
+    End Sub
     Sub New()
 
     End Sub
 
 
-    Public Sub LOAD(UStVAn_ID, UStVEr_ID)
+    Public Sub LOAD(UStVAn_ID As Integer, UStVEr_ID As Integer)
         Try
 
             hasEntry = False
@@ -688,7 +698,7 @@ Public Class cUStVErstattungPositionen
         End Try
     End Sub
 
-    Public Sub LOAD(Belegdatum, Belegnummer, UStVEr_Importfilename)
+    Public Sub LOAD(Belegdatum As Date, Belegnummer As Integer, UStVEr_Importfilename As String)
         Try
 
             hasEntry = False
@@ -719,6 +729,37 @@ Public Class cUStVErstattungPositionen
         End Try
     End Sub
 
+    Public Sub LOAD(UStVAn_ID As Integer, GutschriftsDatum As Date, GutschriftNr As Integer)
+        Try
+
+            hasEntry = False
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblUStVErstattung WHERE GutschriftsDatum=@GutschriftsDatum AND GutschriftsNr=@GutschriftsNr AND UStVAn_ID=@UStVAn_ID ", conn)
+                    cmd.Parameters.AddWithValue("@GutschriftsDatum", GutschriftsDatum)
+                    cmd.Parameters.AddWithValue("@GutschriftsNr", GutschriftsNr)
+                    cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        'Dim l As New cOfferte
+                        For Each i In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(i.Text))
+                            End If
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
 
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()