Kundenkontakte, Mitarbeiter, Bonitaetsauskungt, FIBU, Creditsafe

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -1,7 +1,10 @@
 
 Imports System.Net
+Imports System.Runtime.InteropServices.ComTypes
 Imports System.Threading
+Imports System.Web.UI
 Imports Chilkat
+Imports Microsoft.VisualBasic.ApplicationServices
 
 
 Public Class cCreditSafeAPI
@@ -24,12 +27,11 @@ Public Class cCreditSafeAPI
         Else
             apiSettingsloaded = True
             API_STRING = API.Rows(0).Item("api_url")
-
             If Not IsDBNull(API.Rows(0).Item("api_debugpath")) AndAlso API.Rows(0).Item("api_debugpath") <> "" Then
-                Rest.VerboseLogging = True
-                Rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
+                rest.VerboseLogging = True
+                rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
             Else
-                Rest.VerboseLogging = False
+                rest.VerboseLogging = False
             End If
 
         End If
@@ -610,7 +612,7 @@ Public Class cCreditSafeAPI
 
     End Function
 
-    Public Function getSubscriptionCountries() As String
+    Public Function getSubscriptionCountries(dtSunscriptions As DataTable) As String
 
         VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
@@ -618,32 +620,49 @@ Public Class cCreditSafeAPI
 
         Dim rest As New Chilkat.Rest
         Dim success As Boolean
+        Dim company
+        Dim failureDesc As String
+        Dim myUrl As String = API_STRING & "/v1/access"
+        Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc)
 
-        rest.AddHeader("Authorization", "Bearer <YOUR_JWT_HERE>")
+        Dim json As New Chilkat.JsonObject
+        success = json.Load(jsonRespString)
 
-        Dim sbResponseBody As New Chilkat.StringBuilder
-        success = rest.FullRequestNoBodySb("GET", "/v1/access", sbResponseBody)
-        If (success <> True) Then
-            Return rest.LastErrorText
+
+
+        If dtSunscriptions.Columns.Count = 0 Then
+            dtSunscriptions.Columns.Add("countryName", GetType(String))
+            dtSunscriptions.Columns.Add("templateName", GetType(String))
+            dtSunscriptions.Columns.Add("countryIso2", GetType(String))
+            dtSunscriptions.Columns.Add("startDate", GetType(DateTime))
+            dtSunscriptions.Columns.Add("expireDate", GetType(DateTime))
+            dtSunscriptions.Columns.Add("paid", GetType(Integer))
+            dtSunscriptions.Columns.Add("used", GetType(Integer))
         End If
 
-        Dim respStatusCode As Integer = rest.ResponseStatusCode
-        Debug.WriteLine("response status code = " & respStatusCode)
-        If (respStatusCode >= 400) Then
-            Debug.WriteLine("Response Status Code = " & respStatusCode)
-            Debug.WriteLine("Response Header:")
-            Debug.WriteLine(rest.ResponseHeader)
-            Debug.WriteLine("Response Body:")
-            Debug.WriteLine(sbResponseBody.GetAsString())
-            Return respStatusCode & " " & sbResponseBody.GetAsString()
-        End If
+        dtSunscriptions.Rows.Clear()
 
 
-        Dim jsonResponse As New Chilkat.JsonObject
-        jsonResponse.LoadSb(sbResponseBody)
 
-        jsonResponse.EmitCompact = False
-        Debug.WriteLine(jsonResponse.Emit())
+        Dim correlationId As String = json.StringOf("correlationId")
+        Dim i As Integer = 0
+        Dim count_i As Integer = json.SizeOfArray("countryAccess.creditsafeConnectOnlineReports")
+        While i < count_i
+            json.I = i
+            Dim R As DataRow = dtSunscriptions.NewRow
+            R("countryName") = json.StringOf("countryAccess.creditsafeConnectOnlineReports[i].countryName")
+            R("templateName") = json.StringOf("countryAccess.creditsafeConnectOnlineReports[i].templateName")
+            R("countryIso2") = json.StringOf("countryAccess.creditsafeConnectOnlineReports[i].countryIso2")
+            R("startDate") = json.StringOf("countryAccess.creditsafeConnectOnlineReports[i].startDate")
+            R("expireDate") = json.StringOf("countryAccess.creditsafeConnectOnlineReports[i].expireDate")
+            R("paid") = json.IntOf("countryAccess.creditsafeConnectOnlineReports[i].paid")
+            R("used") = json.IntOf("countryAccess.creditsafeConnectOnlineReports[i].used")
+            dtSunscriptions.Rows.Add(R)
+            i = i + 1
+        End While
+
+        Return "Anzahl gefundener Datensätze: " & i
+
 
 
     End Function
@@ -672,8 +691,6 @@ Public Class cCreditSafeAPI
                 If company.City <> "" Then rest.AddQueryParam("city", company.City)
             End If
 
-
-
         End If
 
     End Sub