edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ASFINAG

Browse Source
This commit is contained in:
d.breimaier
2023-12-06 08:40:49 +01:00
parent 03f1831d02
commit 27619eb5a2
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
initATLASAufschubkonten/frmStartOptions.vb
View File

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