EORI-Pruefung, USTV

SDL/USTV/usrCntlUSTV.vb

@@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.Data.SqlClient
+Imports GrapeCity.DataVisualization.Options
 Imports MDM_Worker
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -578,8 +579,19 @@ Public Class usrCntlUSTV
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnKundendatenaktualisieren.Click
-        If VERAG_PROG_ALLGEMEIN.cMDMFunctions.Update_UStVASummenNeuBerechnen(kdNr) Then
-            ok = VERAG_PROG_ALLGEMEIN.cMDMFunctions.UStVAKunden_SummenNeuBerechnen(kdNr)
-        End If
+        Dim ok As Boolean = False
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+
+            If VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(kdNr) Then
+                ok = VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(kdNr)
+            End If
+        Catch ex As Exception
+            Me.Cursor = Cursors.Default
+        End Try
+
+        If ok Then MsgBox("Kundendaten wurden aktualisiert!")
+        Me.Cursor = Cursors.Default
     End Sub
 End Class