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

GUI-Verbesserungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-24 08:42:37 +01:00
parent fa11f0b8c0
commit 114bcc7e0b
4 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/UsrCntlEssensbestellungen.vb
View File

@@ -11,6 +11,7 @@ Public Class UsrCntlessensbestellungen
Dim preisProMahlzeit As Double = 3
Dim menu As String = "Menü"
Dim alacarte As String = "A La Carte"
Dim outdated As Boolean = True
@@ -208,12 +209,12 @@ Public Class UsrCntlessensbestellungen
If TypeOf gb Is GroupBox Then
For Each c As Control In gb.Controls
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countMenus = countMenus + 1
End If
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countlaCarte = countlaCarte + 1
End If
@@ -374,6 +375,7 @@ Public Class UsrCntlessensbestellungen
If essen.SAVE() Then
btnSave.DialogResult = DialogResult.OK
End If
@@ -437,11 +439,10 @@ Public Class UsrCntlessensbestellungen
If warning Then
lblWarning.Text = "Bezeichnung für A la carte fehlt"
btnSave.DialogResult = Windows.Forms.DialogResult.None
'btnSave.DialogResult = DialogResult.None
Else
lblWarning.Text = ""
btnSave.DialogResult = DialogResult.OK
End If