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

Rountine_USTVA_Summenberechnen

Browse Source
This commit is contained in:
d.breimaier
2024-10-22 16:03:06 +02:00
parent a1c0046393
commit 693d2a42bf
3 changed files with 34 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -508,7 +508,7 @@ Public Class frmStartOptions
blt.exportiereBlackList(autoclose)
closeMe()
Case "ASFINAG_IMPORT"
Case "ASFINAG_IMPORT_CLF"
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -517,24 +517,20 @@ Public Class frmStartOptions
Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
fmCLF.Show()
AddHandler fmCLF.FormClosed, AddressOf closeMe
Case "ASFINAG_IMPORT_TTR"
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 fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
fmTTR.Show()
AddHandler fmTTR.FormClosed, AddressOf closeMe
closeMe()
Case "ASFINAG_IMPORT_TEST"
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim autoclose As Boolean = True
Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
fmCLF.ShowDialog()
AddHandler fmCLF.FormClosed, AddressOf closeMe
Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
fmTTR.ShowDialog()
AddHandler fmTTR.FormClosed, AddressOf closeMe
closeMe()
Case "ASFINAG_IMPORT_TO_SDL"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
ASFINAG_LKW(False)
Case "ABGLEICH_KUNDENUEMSAETZE"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False