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

Fehlerhandling

Browse Source
This commit is contained in:
d.breimaier
2023-05-03 15:20:31 +02:00
parent d17485be1a
commit b9b30c6324
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
View File

@@ -207,13 +207,24 @@ Public Class cCreditSafeAPI
R("safeNo") = compObj.StringOf("safeNo") R("safeNo") = compObj.StringOf("safeNo")
R("vatNo") = compObj.StringOf("vatNo[0]") R("vatNo") = compObj.StringOf("vatNo[0]")
R("regNo") = compObj.StringOf("regNo") R("regNo") = compObj.StringOf("regNo")
R("street") = adressObj.StringOf("street")
R("city") = adressObj.StringOf("city")
R("postCode") = adressObj.StringOf("postCode")
R("status") = compObj.StringOf("status") R("status") = compObj.StringOf("status")
R("dateOfLatestChange") = dateTime.GetAsTimestamp(getAsLocal) R("dateOfLatestChange") = dateTime.GetAsTimestamp(getAsLocal)
R("phoneNo") = compObj.StringOf("phoneNumbers[0]") R("phoneNo") = compObj.StringOf("phoneNumbers[0]")
If adressObj IsNot Nothing Then
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
dataTable.Rows.Add(R) dataTable.Rows.Add(R)
j = j + 1 j = j + 1