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

2023-05-22 17:15:50 +02:00
parent 4b2f9cc948
commit d327133bb4
7 changed files with 805 additions and 249 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
+++ b/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()
--- a/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
@@ -19,6 +19,21 @@ Public Class cFiskalkunden
    Property FK_MaId As Object = Nothing
    Property FK_Abschlussdatum As Object = Nothing
    Property FK_Anmerkung As Object = Nothing
+    Property FK_Lieferanten As Object = Nothing
+    Property FK_Empfaenger As Object = Nothing
+    Property FK_Zwischenhaendler As Object = Nothing
+    Property FK_Waren As Object = Nothing
+    Property FK_Gruendungsdatum As Object = Nothing
+    Property FK_AnzahlMitarbeiter As Object = Nothing
+    Property FK_Geschaeftszweck As Object = Nothing
+    Property FK_KreditMax As Object = Nothing
+    Property FK_Geschaeftsfuehrer As Object = Nothing
+    Property FK_Gesellschafter As Object = Nothing
+
+
+
+
+

    Public hasEntry = False

@@ -51,6 +66,16 @@ Public Class cFiskalkunden
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Lieferanten", FK_Lieferanten))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Empfaenger", FK_Empfaenger))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Zwischenhaendler", FK_Zwischenhaendler))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Waren", FK_Waren))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_MaId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Lieferanten))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_Empfaenger))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Zwischenhaendler))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Waren))

        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
@@ -301,6 +301,7 @@ Public Class cCreditSafeAPI
                Dim companyAddInformObj As Chilkat.JsonObject = reportObj.ObjectOf("additionalInformation")
                If (reportObj.LastMethodSuccess = True) Then
                    Dim companyMiscObj As Chilkat.JsonObject = companyAddInformObj.ObjectOf("misc")
+                    company.csBusinessPurpose = companyMiscObj.StringOf("businessPurpose")
                    If (companyAddInformObj.LastMethodSuccess = True) Then
                        Dim deCurrentRatingObj As Chilkat.JsonObject = companyMiscObj.ObjectOf("deCurrentRating")
                        If (companyAddInformObj.LastMethodSuccess = True) Then
@@ -330,6 +331,15 @@ Public Class cCreditSafeAPI
                    company.csDFoundingDate = dateTime.GetAsTimestamp(getAsLocal)
                    Debug.WriteLine(dateTime)

+
+                    Dim principalActivityObj As Chilkat.JsonObject = basicInfoObj.ObjectOf("principalActivity")
+                    If (basicInfoObj.LastMethodSuccess = True) And company.csBusinessPurpose = "" Then
+                        company.csBusinessPurpose = principalActivityObj.StringOf("industrySector") & " - " & principalActivityObj.StringOf("description")
+                    Else
+                        Debug.WriteLine("principalActivityObj object not found.")
+                    End If
+
+
                Else

                    Debug.WriteLine("basicInfoObj object not found.")
@@ -339,10 +349,28 @@ Public Class cCreditSafeAPI
                Debug.WriteLine("companyIDObj object not found.")
            End If

-
+            Dim otherInformationObject As Chilkat.JsonObject = reportObj.ObjectOf("otherInformation")
            Dim creditScoreObj As Chilkat.JsonObject = reportObj.ObjectOf("creditScore")
+
            If (reportObj.LastMethodSuccess = True) Then

+                Dim employeesInformationsArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("employeesInformation")
+                If (otherInformationObject.LastMethodSuccess = True) Then
+                    Dim employees As Chilkat.JsonObject = employeesInformationsArray.ObjectAt(0)
+                    company.csSumEmployees = employees.StringOf("numberOfEmployees")
+                Else
+                    Debug.WriteLine("otherInformationObject object not found.")
+                End If
+
+                Dim bankersArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("bankers")
+                If (otherInformationObject.LastMethodSuccess = True) Then
+                    Dim bankers As Chilkat.JsonObject = bankersArray.ObjectAt(0)
+                    company.csBank = bankers.StringOf("name") & " - " & bankers.StringOf("bankCode")
+                Else
+                    Debug.WriteLine("otherInformationObject object not found.")
+                End If
+
+

                Dim creditRatingObj As Chilkat.JsonObject = creditScoreObj.ObjectOf("currentCreditRating")
                If (creditScoreObj.LastMethodSuccess = True) Then
@@ -503,10 +531,16 @@ Public Class cCreditSafeAPI
        Public Property csDFoundingDate As Date
        Public Property csPDF As String
        Public Property csFailure As String
+        Public Property csSumEmployees As String
+        Public Property csBusinessPurpose As String
+        Public Property csShareholder As String
+        Public Property csCEO As String
+
+        Public Property csBank As String



-        Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String)
+        Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String, _sumEmployees As String, _businessPurpose As String, _shareholder As String, _ceo As String, _bank As String)
            creditSafeId = _creditSafeId
            name = _name
            vatNo = _vatNo
@@ -516,6 +550,11 @@ Public Class cCreditSafeAPI
            Street = _street
            Postalcode = _postalCode
            City = _city
+            csSumEmployees = _sumEmployees
+            csBusinessPurpose = _businessPurpose
+            csShareholder = _shareholder
+            csCEO = _ceo
+            csBank = _bank
        End Sub

        Public Sub New()