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

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -153,7 +153,7 @@ Public Class cAdressen
         If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
         If Not hasEntry Then
             'Prüfung Neuanlage:
-            If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
+            If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits " & getUIDKunden(KD) & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
         End If
         Return True
     End Function
@@ -166,6 +166,11 @@ Public Class cAdressen
         End If
         Return False
     End Function
+
+    Function getUIDKunden(KD As cKunde) As String
+        Return SQL.getValueTxtBySql("SELECT TOP(1) '(' +[Name 1] +')' FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr  WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and  kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL")
+    End Function
+
     Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         If newFlag Then INIT_NEWKD_DATA()
         If AdressenNr <= 0 Then