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
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1432,6 +1432,7 @@ Public Class usrcntlKundeBearbeitenFull
         If ADRESSE.UstIdNr = "" Then Exit Sub
 
         sender.BackgroundImage = My.Resources.wait
+        btnUIDPruef.Enabled = False
 
         Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
         FO.initValues()
@@ -1442,14 +1443,18 @@ Public Class usrcntlKundeBearbeitenFull
                 If UID_TMP.uid_valid Then
                     init(ADRESSE.AdressenNr)
                     sender.BackgroundImage = My.Resources.ok
+                    btnUIDPruef.Enabled = True
                 Else
                     sender.BackgroundImage = My.Resources.del
+                    btnUIDPruef.Enabled = True
                 End If
             Else
                 sender.BackgroundImage = My.Resources.fragezeichen
+                btnUIDPruef.Enabled = True
             End If
 
             FO.Call_Web_Service_MethodUID_Logout_NEU2020()
+            btnUIDPruef.Enabled = True
 
         End If