edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mit_det

Browse Source
This commit is contained in:
d.breimaier
2025-04-24 17:07:52 +02:00
parent a7836ff9ed
commit f24df16840
4 changed files with 706 additions and 673 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -792,7 +792,7 @@ Public Class frmStartOptions
Case "USTVA_SUMMEN_BERECHNEN"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim ok As Boolean = False
Dim sendMail As Boolean = False
Dim sendMail As Boolean = True
Dim dt As New DataTable
Dim IDSalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt")
@@ -807,7 +807,7 @@ Public Class frmStartOptions
cMDMFunctionsAllgemein.setSchnittstellen(PLOSEalt, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu, PLOSEneu)
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen_USTVA() Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
End If
@@ -816,7 +816,7 @@ Public Class frmStartOptions
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)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom: " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "al@verag.ag", anhenge)
End If
End If
@@ -5433,7 +5433,7 @@ Public Class frmStartOptions
If sender Is Button23 Then
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen_USTVA() Then
ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
End If
End If