StarOpt, cWorker, etc.
This commit is contained in:
@@ -103,6 +103,7 @@ Public Class frmStartOptions
|
||||
cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
|
||||
cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
|
||||
cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
|
||||
cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")
|
||||
|
||||
|
||||
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
|
||||
@@ -2965,6 +2966,7 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Dim f As New frmDYNachrichtenVerarbeitung
|
||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||
f.sendMail = cbxVW_Infomail.Checked
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
@@ -3022,6 +3024,7 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmDYNachrichtenVerarbeitung
|
||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||
f.sendMail = cbxVW_Infomail.Checked
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user