API, USTVA, MDM

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -60,6 +60,7 @@ Partial Class usrCntlUSTV
         Me.Button8 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.btnKundendatenaktualisieren = New System.Windows.Forms.Button()
         CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -107,6 +108,7 @@ Partial Class usrCntlUSTV
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.btnKundendatenaktualisieren)
         Me.Panel1.Controls.Add(Me.txtVZBetrag)
         Me.Panel1.Controls.Add(Me.Label8)
         Me.Panel1.Controls.Add(Me.txt3470Betrag)
@@ -615,6 +617,18 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
+        'btnKundendatenaktualisieren
+        '
+        Me.btnKundendatenaktualisieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnKundendatenaktualisieren.ForeColor = System.Drawing.Color.Black
+        Me.btnKundendatenaktualisieren.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKundendatenaktualisieren.Location = New System.Drawing.Point(1468, 6)
+        Me.btnKundendatenaktualisieren.Name = "btnKundendatenaktualisieren"
+        Me.btnKundendatenaktualisieren.Size = New System.Drawing.Size(127, 39)
+        Me.btnKundendatenaktualisieren.TabIndex = 33
+        Me.btnKundendatenaktualisieren.Text = "Kundendaten aktualisieren"
+        Me.btnKundendatenaktualisieren.UseVisualStyleBackColor = True
+        '
         'usrCntlUSTV
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -670,4 +684,5 @@ Partial Class usrCntlUSTV
     Friend WithEvents txt3470Betrag As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label7 As Label
     Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+    Friend WithEvents btnKundendatenaktualisieren As Button
 End Class

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