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

Anpassungen CreditSafe

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-09 08:28:28 +02:00
parent a648a0bdde
commit a272dca129
15 changed files with 1434 additions and 262 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
View File

@@ -180,55 +180,72 @@ Public Class cCreditSafeAPI
Return "companies member not found."
End If
Dim numCompanies As Integer = companies.Size
Dim j As Integer = 0
While j < numCompanies
Dim compObj As Chilkat.JsonObject = companies.ObjectAt(j)
For i = 0 To 1
Dim index = companies.FindString("address", False)
Dim adressObj As Chilkat.JsonObject = compObj.ObjectOf("address")
Dim dateTime As New Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False
Dim j As Integer = 0
While j < numCompanies
success = compObj.DateOf("dateOfLatestChange", dateTime)
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
Dim compObj As Chilkat.JsonObject = companies.ObjectAt(j)
'Debug.WriteLine(adressObj.StringOf("simpleValue"))
'Debug.WriteLine(compObj.StringOf("id") & " " & compObj.StringOf("phoneNo") & " " & compObj.StringOf("phoneNumbers[0]"))
Dim index = companies.FindString("address", False)
Dim adressObj As Chilkat.JsonObject = compObj.ObjectOf("address")
Dim R As DataRow = dataTable.NewRow
R("id") = compObj.StringOf("id")
R("name") = compObj.StringOf("name")
R("country") = compObj.StringOf("country")
R("safeNo") = compObj.StringOf("safeNo")
R("vatNo") = compObj.StringOf("vatNo[0]")
R("regNo") = compObj.StringOf("regNo")
R("status") = compObj.StringOf("status")
R("dateOfLatestChange") = dateTime.GetAsTimestamp(getAsLocal)
R("phoneNo") = compObj.StringOf("phoneNumbers[0]")
Dim dateTime As New Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False
If adressObj IsNot Nothing Then
success = compObj.DateOf("dateOfLatestChange", dateTime)
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
R("street") = adressObj.StringOf("street")
R("city") = adressObj.StringOf("city")
R("street") = adressObj.StringOf("street")
R("postCode") = adressObj.StringOf("postCode")
Else
R("street") = ""
R("city") = ""
R("street") = ""
R("postCode") = ""
'Debug.WriteLine(adressObj.StringOf("simpleValue"))
'Debug.WriteLine(compObj.StringOf("id") & " " & compObj.StringOf("phoneNo") & " " & compObj.StringOf("phoneNumbers[0]"))
End If
Dim R As DataRow = dataTable.NewRow
R("id") = compObj.StringOf("id")
R("name") = compObj.StringOf("name")
R("country") = compObj.StringOf("country")
R("safeNo") = compObj.StringOf("safeNo")
R("vatNo") = compObj.StringOf("vatNo[0]")
R("regNo") = compObj.StringOf("regNo")
R("status") = compObj.StringOf("status")
R("dateOfLatestChange") = dateTime.GetAsTimestamp(getAsLocal)
R("phoneNo") = compObj.StringOf("phoneNumbers[0]")
dataTable.Rows.Add(R)
If adressObj IsNot Nothing Then
j = j + 1
End While
R("street") = adressObj.StringOf("street")
R("city") = adressObj.StringOf("city")
R("street") = adressObj.StringOf("street")
R("postCode") = adressObj.StringOf("postCode")
Else
R("street") = ""
R("city") = ""
R("street") = ""
R("postCode") = ""
End If
'Zuerst aktive Firmen, dann inaktive..
Select Case i
Case 0
If R("status").ToString.ToLower = "active" Then
dataTable.Rows.Add(R)
End If
Case Else
If R("status").ToString.ToLower <> "active" Then
dataTable.Rows.Add(R)
End If
End Select
j = j + 1
End While
Next
Return "Anzahl gefundener Datensätze: " & numCompanies

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -159,7 +159,6 @@
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>