edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kundenkontakte, Mitarbeiter, Bonitaetsauskungt, FIBU, Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2024-09-12 09:44:32 +02:00
parent 5f65123413
commit 708bdcf5d1
9 changed files with 289 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -33,8 +33,11 @@ Public Class cBonitaetsauskunft
Property ba_Geschaeftszweck As Object = Nothing
Property ba_GSName As Object = Nothing
Property ba_UID As String = ""
Property ba_forcedRequest As Boolean = False
Property ba_CScounterBeforeRequest As Integer = 0
Property ba_CScounterAfterRequest As Integer = 0
Property ba_CSmax As Integer = 0
Property ba_CScountry As String = ""
Dim SQL As New SQL
@@ -80,6 +83,10 @@ Public Class cBonitaetsauskunft
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_UID", ba_UID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_forcedRequest", ba_forcedRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterBeforeRequest", ba_CScounterBeforeRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScounterAfterRequest", ba_CScounterAfterRequest))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CSmax", ba_CSmax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CScountry", ba_CScountry))
Return list
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -408,7 +408,7 @@ Public Class cMitarbeiter
Me.mit_homeoffice = dr.Item("mit_homeoffice")
Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")
If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat")
Me.mit_timasNichtStempeln = dr.Item("mit_ausstempelnBeiBeenden")
Me.mit_ausstempelnBeiBeenden = dr.Item("mit_ausstempelnBeiBeenden")
Catch ex As Exception

69
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -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