Fiskalkunden -> Creditsafe-API erweitert, Fiskalkunden weitergebaut, etc.

VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb

@@ -30,6 +30,8 @@ Public Class cBonitaetsauskunft
     Property ba_CreditSaveBonitaetsIndex As Object = Nothing
     Property ba_Pruefungstool As Object = Nothing
     Property ba_datenarchivId As Object = Nothing
+    Property ba_Geschaeftszweck As Object = Nothing
+    Property ba_GSName As Object = Nothing
 
 
     Dim SQL As New SQL
@@ -71,6 +73,8 @@ Public Class cBonitaetsauskunft
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsScore", ba_CreditSaveBonitaetsScore))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsIndex", ba_CreditSaveBonitaetsIndex))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_datenarchivId", ba_datenarchivId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Geschaeftszweck", ba_Geschaeftszweck))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
 
         Return list
     End Function
@@ -91,7 +95,7 @@ Public Class cBonitaetsauskunft
     End Function
 
     Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
-         Try
+        Try
             Dim BONI As New cBonitaetsauskunft
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND  cast(ba_Datum as date)=@ba_Datum ", conn)
@@ -121,6 +125,39 @@ Public Class cBonitaetsauskunft
         Return Nothing
     End Function
 
+
+    Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
+        Try
+            Dim BONI As New cBonitaetsauskunft
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND  cast(ba_Datum as date) >= @ba_Datum order by ba_Datum desc ", conn)
+                    cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
+                    cmd.Parameters.AddWithValue("@ba_Datum", ba_Datum.ToShortDateString)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In BONI.getParameterList()
+                            Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(BONI, Nothing)
+                            Else
+                                propInfo.SetValue(BONI, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        dr.Close()
+                        Return BONI
+                    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
+        Return Nothing
+    End Function
+
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()