UID-Prüfung (Doppelklick vermeiden + verbesserte Fehlermeldung), etc.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1834,7 +1834,9 @@ Public Class usrCntlKundenuebersicht
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
+        Button1.Enabled = False
         checkUIDNr(sender)
+        Button1.Enabled = True
 
         'If ADRESSE.UstIdNr Is Nothing Then Exit Sub
         'If ADRESSE.UstIdKz Is Nothing Then Exit Sub
@@ -3082,12 +3084,14 @@ Public Class usrCntlKundenuebersicht
             ADRESSE.UstIdNr = company.vatNo.Replace(countryKz, "").Replace(" ", "")
             ADRESSE.SAVE()
             Dim validUID As Boolean = False
+            Button1.Enabled = False
             checkUIDNr(, validUID)
             If Not validUID Then
                 ADRESSE.UstIdKz = ""
                 ADRESSE.UstIdNr = ""
                 ADRESSE.SAVE()
             End If
+            Button1.Enabled = True
 
         End If