API, USTVA, MDM

SDL/USTV/usrCntlUSTV.vb

@@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.Data.SqlClient
+Imports MDM_Worker
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -22,6 +23,7 @@ Public Class usrCntlUSTV
             Me.kdNr = kdNr
             KdSearchBox1.KdNr = kdNr
             KdSearchBox1.Enabled = False
+            btnKundendatenaktualisieren.Enabled = True
         End If
 
         btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
@@ -575,5 +577,9 @@ Public Class usrCntlUSTV
         init()
     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
+    End Sub
 End Class