Mailsender, Startopt

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,6 +6,7 @@ Imports System.Runtime.InteropServices
 Imports System.Text
 Imports System.Xml
 Imports com.sun.corba.se.spi.orb
+Imports DocumentFormat.OpenXml.Office2010.Word
 Imports Microsoft.Office.Interop
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -769,6 +770,9 @@ Public Class frmStartOptions
                 Dim ok As Boolean = False
                 Dim sendMail As Boolean = False
                 Dim dt As New DataTable
+
+                cMDMFunctionsAllgemein.setSchnittstellen(False, True, True, False, True, False, True, False)
+
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
                     ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
                 End If
@@ -1692,8 +1696,8 @@ Public Class frmStartOptions
 
                 If outputDate IsNot Nothing AndAlso customerNo <> "" AndAlso invoiceNo <> "" Then
 
-                        Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
-                        If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
+                    Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
+                    If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
 
 
                     Try
@@ -1719,7 +1723,7 @@ Public Class frmStartOptions
 
                 End If
 
-                End If
+            End If
 
 
 
@@ -5279,6 +5283,8 @@ Public Class frmStartOptions
                 Exit Sub
             End If
 
+            cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked)
+
             If sender Is Button23 Then
 
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(ad.AdressenNr) Then