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

creditsafe bugfix, abrechnungmaske (gu an CS oder AG), ZE-Buttons, Syska

Browse Source
This commit is contained in:
d.breimaier
2024-06-25 08:22:35 +02:00
parent 8841b1381c
commit 37bbc7d14f
10 changed files with 106 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -299,7 +299,7 @@ Public Class cCreditSafeAPI
End Function
Shared Function getCompanieEvents(company As Company, ByRef dataTable As DataTable) As String
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable) As String
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
@@ -315,6 +315,21 @@ Public Class cCreditSafeAPI
Return "Verbindungsfehler"
End If
If dtEvents.Columns.Count = 0 Then
dtEvents.Columns.Add("eventId", GetType(String))
dtEvents.Columns.Add("companyId", GetType(String))
dtEvents.Columns.Add("portfolioId", GetType(String))
dtEvents.Columns.Add("ruleName", GetType(String))
dtEvents.Columns.Add("localEventCode", GetType(String))
dtEvents.Columns.Add("globalEventCode", GetType(String))
dtEvents.Columns.Add("newValue", GetType(String))
dtEvents.Columns.Add("oldValue", GetType(String))
dtEvents.Columns.Add("eventDate", GetType(DateTime))
dtEvents.Columns.Add("createdDate", GetType(DateTime))
End If
dtEvents.Rows.Clear()
Dim num As Integer = json.SizeOfArray("data")
If num = 0 Then
Return json.StringOf("totalCount")
@@ -346,7 +361,7 @@ Public Class cCreditSafeAPI
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
Dim R As DataRow = dataTable.NewRow
Dim R As DataRow = dtEvents.NewRow
R("eventId") = compObj.StringOf("eventId")
R("companyId") = compObj.StringOf("companyId")
R("portfolioId") = compObj.StringOf("portfolioId")
@@ -357,7 +372,7 @@ Public Class cCreditSafeAPI
R("oldValue") = compObj.StringOf("oldValue")
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
dataTable.Rows.Add(R)
dtEvents.Rows.Add(R)
j = j + 1
End While