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

CreditsafeAPI erweitert, zusätzlicher Hinweis bei bereits existierender UID-Nr.

Browse Source
This commit is contained in:
d.breimaier
2023-03-31 17:15:27 +02:00
parent fcaf27b69c
commit e0e5c2c1bc
9 changed files with 2262 additions and 2157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

@@ -69,11 +69,9 @@ Public Class usrcntlCreditsafe
Cursor = Cursors.WaitCursor
If cs.authenticate(user, pw) = "200" Then
If txtUID.Text <> "" Then
lblWarning.Text = cs.searchCompanies("", txtUID.Text, cbxLand.SelectedItem.Value, dataTable).ToString
Else
lblWarning.Text = cs.searchCompanies(txtFirma.Text, "", cbxLand.SelectedItem.Value, dataTable).ToString
End If
Dim company = New cCreditSafeAPI.Company(txtFirma.Text, txtUID.Text, cbxLand.SelectedItem.Value, "", "", Nothing)
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
initDGV(dataTable)
Cursor = Cursors.Default
@@ -158,7 +156,8 @@ Public Class usrcntlCreditsafe
IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value),
IIf(IsDBNull(row.Cells("postCode").Value), "", row.Cells("postCode").Value),
IIf(IsDBNull(row.Cells("id").Value), "", row.Cells("id").Value),
IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value))
IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value),
IIf(IsDBNull(row.Cells("dateOfLatestChange").Value), "", row.Cells("dateOfLatestChange").Value))
Next
btnUebernehmen.DialogResult = DialogResult.OK
@@ -180,9 +179,10 @@ Public Class usrcntlCreditsafe
Public Property city As String
Public Property postCode As String
Public Property phoneNo As String
Public Property dateOfLatestChange As Date
Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String)
Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String, _dateOfLatestChange As DateTime)
name = _name
vatNo = _vatNo
country = _country
@@ -193,6 +193,7 @@ Public Class usrcntlCreditsafe
postCode = _postCode
credissafeId = _credissafeId
phoneNo = _phoneNo
dateOfLatestChange = dateOfLatestChange
End Sub