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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-11 16:01:27 +01:00
parent 1c98a4b720
commit 63e31167ab
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/UsrCntlEssensbestellungen.vb
View File

@@ -23,7 +23,7 @@ Public Class UsrCntlessensbestellungen
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
initCBOFields() initCBOFields()
initFields()
cbxGebäude.changeItem("") cbxGebäude.changeItem("")
essen = New cEssensbestellung() essen = New cEssensbestellung()
@@ -228,7 +228,7 @@ Public Class UsrCntlessensbestellungen
End Sub End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
MyPanel1.Enabled = False MyPanel1.Enabled = False
cbxGebäude.Enabled = False cbxGebäude.Enabled = False
@@ -239,10 +239,10 @@ Public Class UsrCntlessensbestellungen
Else Else
MyPanel1.Enabled = True MyPanel1.Enabled = True
cbxGebäude.Enabled = True cbxGebäude.Enabled = True
cbxMenu.Enabled = True 'cbxMenu.Enabled = True
cbxAbteilung.Enabled = True 'cbxAbteilung.Enabled = True
cbxMitarbeiter.Enabled = True 'cbxMitarbeiter.Enabled = True
txtAnmerkung.Enabled = True 'txtAnmerkung.Enabled = True
End If End If
End Sub End Sub
@@ -447,11 +447,8 @@ Public Class UsrCntlessensbestellungen
Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
initFields()
initPanelFields() initPanelFields()
End Sub End Sub
Private Sub initFields() Private Sub initFields()