uta

VERAG_PROG_ALLGEMEIN/Classes/cAbgaben.vb

@@ -109,6 +109,30 @@ Public Class cAbgaben
         Dim count = SQL.getValueTxtBySqlVarList("SELECT count(*) FROM Zkteing WHERE LeistungsNr=@LeistungsNr AND Betrag=@Betrag AND Registriernummer=@Registriernummer AND AOFD=@AOFD AND AKTO=@AKTO AND Fälligkeitsdatum=@Fälligkeitsdatum  ", "FMZOLL", list, 0)
         Return (count > 0)
     End Function
+
+    Public Shared Function LOAD_LIST(Registriernummer) As List(Of cAbgaben)
+        Dim Abgaben_LIST = New List(Of cAbgaben)
+        Dim SQL As New SQL
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM Zkteing WHERE Registriernummer='" & Registriernummer & "'", "FMZOLL")
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                Dim obj As New cAbgaben()
+                obj.[Index] = r.Item("Index")
+                For Each li In obj.getParameterList()
+                    Dim propInfo As PropertyInfo = obj.GetType.GetProperty(li.Scalarvariable)
+                    If r.Item(li.Text) Is DBNull.Value Then
+                        propInfo.SetValue(obj, Nothing)
+                    Else
+                        propInfo.SetValue(obj, r.Item(li.Text))
+                    End If
+                Next
+                obj.hasEntry = True
+                Abgaben_LIST.Add(obj)
+            Next
+        End If
+        Return Abgaben_LIST
+    End Function
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()