From 27619eb5a2c0bf9ebd6552f496db6af599b15863 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 6 Dec 2023 08:40:49 +0100 Subject: [PATCH] ASFINAG --- initATLASAufschubkonten/frmStartOptions.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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)