ASFINAG

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)