UID-Prüfung bei bestehenden Kunden

VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb

@@ -97,23 +97,7 @@ Public Class cCreditSafeAPI
 
             If company IsNot Nothing Then
 
-                rest.AddQueryParam("countries", company.country)
-
-
-                If company.creditsafeNo <> "" Then
-                    rest.AddQueryParam("safeNo", company.creditsafeNo)
-
-                Else
-
-                    If company.vatNo <> "" Then
-                        rest.AddQueryParam("vatNo", company.vatNo)
-                    Else
-                        If company.name <> "" Then
-                            rest.AddQueryParam("name", company.name)
-                        End If
-                    End If
-
-                End If
+                setSearchParam(rest, company)
 
             End If
 
@@ -248,6 +232,29 @@ Public Class cCreditSafeAPI
 
     End Function
 
+    Shared Sub setSearchParam(ByRef rest As Chilkat.Rest, ByRef company As Company)
+
+
+        rest.AddQueryParam("countries", company.country)
+
+
+        If company.creditsafeNo <> "" Then
+            rest.AddQueryParam("safeNo", company.creditsafeNo)
+
+        Else
+
+            If company.vatNo <> "" Then
+                rest.AddQueryParam("vatNo", company.vatNo)
+            Else
+                If company.name <> "" Then
+                    rest.AddQueryParam("name", company.name)
+                End If
+            End If
+
+        End If
+
+    End Sub
+
 
     Shared Function checkDateOfLastRequest(company As Company) As Date