SummenBerechnen

initATLASAufschubkonten/frmStartOptions.vb

@@ -694,6 +694,13 @@ Public Class frmStartOptions
                     API.UPDTAE_OK(,, PARAM)
                 End If
 
+            Case "USTVA_SUMMEM_BERECHNEN"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim ok As Boolean = False
+                If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
+                    ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen()
+                End If
+                closeMe()
 
             Case Else
                 'Nur bei manuellem Start wird der fehler ausgegeben