diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index a4f42d1..6967610 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -95,7 +95,7 @@ Public Class frmStartOptions 'doIDSPlatts() 'Exit Sub - PARAM="" + 'PARAM="" 'Standart-Errorverhalten ist MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL If PARAM <> "" Then @@ -467,9 +467,9 @@ Public Class frmStartOptions closeMe() Case "ASFINAG_EXPORT" - 'Dim f As New frmInfo(PARAM) - 'f.Show() - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim blt = New cAsfinag.Exportist Dim autoclose As Boolean = True blt.initExportPfade() @@ -478,9 +478,9 @@ Public Class frmStartOptions closeMe() Case "ASFINAG_IMPORT" - 'Dim f As New frmInfo(PARAM) - 'f.Show() - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim autoclose As Boolean = True Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP)