Mitarbeiter, MDM-SummenBerechnen

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -5,6 +5,7 @@ Imports DAKOSY_Worker
 Imports DocumentFormat.OpenXml
 Imports DocumentFormat.OpenXml.Spreadsheet
 Imports iTextSharp.text.pdf
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cWorker_Verwahrung
     Public Shared Dateiname = ""
@@ -56,6 +57,12 @@ Public Class cWorker_Verwahrung
 
 
                 'Verwahrung ANSCHREIBUNG
+                'Dim ANSCHREIBUNG As New cSicherheiten()
+
+                'With ANSCHREIBUNG
+
+
+                'End With
 
 
                 '----------------------------------------------------------------

initATLASAufschubkonten/frmStartOptions.vb

@@ -3,8 +3,7 @@ Imports System.IO
 Imports System.Net
 Imports System.Text
 Imports System.Xml
-Imports com.esendex.sdk
-Imports com.sun.xml.internal.rngom
+Imports com.sun.corba.se.spi.orb
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -719,7 +718,7 @@ Public Class frmStartOptions
                 End If
 
 
-            Case "USTVA_SUMMEM_BERECHNEN"
+            Case "USTVA_SUMMEN_BERECHNEN"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 Dim ok As Boolean = False
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
@@ -5106,7 +5105,7 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
+    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click, Button25.Click
         Dim ok = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
 
@@ -5124,16 +5123,38 @@ Public Class frmStartOptions
                 Exit Sub
             End If
 
-            If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(ad.AdressenNr) Then
-                ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(ad.AdressenNr)
-            End If
+            If sender Is Button23 Then
 
+                If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(ad.AdressenNr) Then
+                    ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(ad.AdressenNr)
+                End If
+
+            Else
+                Dim dt As New DataTable
+                cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(ad.AdressenNr, False, dt)
+                If dt.Rows.Count = 1 Then
+                    Dim rowData
+                    'dt is the name of the data table
+                    For Each row As DataRow In dt.Rows
+                        For Each column As DataColumn In dt.Columns
+                            rowData = rowData & column.ColumnName & “ ” & row(column) & vbNewLine
+                        Next
+                        rowData = rowData & vbNewLine & vbNewLine
+                    Next
+                    MessageBox.Show(rowData)
+
+                End If
+            End If
         Else
             'ansonsten alle Kunden
+            If sender Is Button23 Then
 
-            If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
-                ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
+
+                If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
+                    ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
+                End If
             End If
+
         End If
 
         showPic(ok, PictureBox25)
@@ -5223,4 +5244,6 @@ Public Class frmStartOptions
         Next
 
     End Sub
+
+
 End Class