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

fix StartOptions

Browse Source
This commit is contained in:
d.breimaier
2026-03-10 16:37:28 +01:00
parent c98f7d8685
commit c94d3adfd2
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -150,12 +150,16 @@ Public Class frmStartOptions
Case "DY_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
'Me.Visible = False ' irgend ein Grund
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "DY_EINARBEITUNG_PROD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
' Me.Visible = False ' irgend ein Grund
f.Show()
AddHandler f.EV_FINISHED, AddressOf closeMe
@@ -214,6 +218,8 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
' Me.Visible = False
f.Show()
AddHandler f.EV_FINISHED, AddressOf closeMe