MDM

initATLASAufschubkonten/frmStartOptions.vb

@@ -1,13 +1,8 @@
 Imports System.Data.OleDb
 Imports System.IO
-Imports System.Linq.Expressions
 Imports System.Net
-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
 
@@ -87,6 +82,19 @@ Public Class frmStartOptions
 
         txtEZOLLAnhDat._value = Now.ToShortDateString
 
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+
+        cbxIDSalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt")
+        cbxIDSneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
+        cbxMSEalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
+        cbxMSEneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
+        cbxPlose.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
+        cbxITalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
+        cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
+        cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
+        cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
+
+
         Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
 
         PARAM = ""
@@ -771,7 +779,16 @@ Public Class frmStartOptions
                 Dim sendMail As Boolean = False
                 Dim dt As New DataTable
 
-                cMDMFunctionsAllgemein.setSchnittstellen(False, True, True, False, True, False, True, False)
+                Dim IDSalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt")
+                Dim IDSneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
+                Dim MSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
+                Dim MSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
+                Dim PLOSE = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
+                Dim IT = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
+                Dim UTAalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
+                Dim UTAneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
+
+                cMDMFunctionsAllgemein.setSchnittstellen(PLOSE, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu)
 
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
                     ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
@@ -1726,8 +1743,6 @@ Public Class frmStartOptions
             End If
 
 
-
-
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
 
@@ -4750,6 +4765,7 @@ Public Class frmStartOptions
 
     End Sub
 
+
     Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
         If tbcntr.SelectedIndex = 3 Then
             checkTBLandTWLNr()
@@ -4853,6 +4869,7 @@ Public Class frmStartOptions
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
         f.year = txtUTAYear.Text
+        f.UtaTestkunden = cbxUTATestkunden.Checked
         f.ShowDialog()
         Me.Visible = True
     End Sub