MailAdmin

initATLASAufschubkonten/frmStartOptions.vb

@@ -736,9 +736,23 @@ Public Class frmStartOptions
             Case "USTVA_SUMMEN_BERECHNEN"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 Dim ok As Boolean = False
+                Dim sendMail As Boolean = True
+                Dim dt As New DataTable
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
-                    ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
+                    ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
                 End If
+
+                If dt.Rows.Count > 0 AndAlso sendMail Then
+                    Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False,)
+                    If filepath <> "" Then
+                        Dim anhenge As New List(Of String)
+                        anhenge.Add(filepath)
+                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("a.roth@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom:  " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
+                    End If
+
+                End If
+
+
                 closeMe()
 
             Case Else