From b3246f33524116a1a48e5d58187ec54f6bb7c196 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 13 Nov 2024 16:50:52 +0100 Subject: [PATCH] MailAdmin --- initATLASAufschubkonten/frmStartOptions.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 96267e9..ecdf35f 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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