Logik der Suche in UI nachgebildet

SDL/Creditsafe/usrcntlCreditsafe.vb

@@ -47,7 +47,7 @@ Public Class usrcntlCreditsafe
                                       " WHERE ([Währungstabelle].[MitgliedslandEU] = 1 Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'TR' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'GB' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'RS') " &
                                       " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
 
-        If land = "" Then land = "DE"
+        If land = "" Then land = "AT"
 
         cboLand.changeItem(land)
         initDataTable()
@@ -302,6 +302,24 @@ Public Class usrcntlCreditsafe
 
     End Sub
 
+    Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
+        If txtUID.Text <> "" Then
+
+            txtFirma.Enabled = False
+            txtOrt.Enabled = False
+            txtPLZ.Enabled = False
+            txtStrasse.Enabled = False
+
+        Else
+
+            txtFirma.Enabled = True
+            txtOrt.Enabled = True
+            txtPLZ.Enabled = True
+            txtStrasse.Enabled = True
+
+        End If
+    End Sub
+
     Private Sub dgvCreditsafe_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCreditsafe.CellDoubleClick
         If dgvCreditsafe.SelectedRows.Count = 1 Then
             btnUebernehmen.PerformClick()

VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb

@@ -415,12 +415,12 @@ Public Class cCreditSafeAPI
         rest.AddQueryParam("countries", company.country)
 
 
-        If company.creditsafeNo <> "" Then
-                rest.AddQueryParam("safeNo", company.creditsafeNo)
+        If company.creditsafeNo <> "" Then 'Eindeutiger Schlüssel
+            rest.AddQueryParam("safeNo", company.creditsafeNo)
 
-            Else
+        Else
 
-                If company.vatNo <> "" Then
+            If company.vatNo <> "" Then
                     rest.AddQueryParam("vatNo", company.vatNo)
                 Else
                 If company.name <> "" Then rest.AddQueryParam("name", company.name)