Essensbestellungen
This commit is contained in:
@@ -8,7 +8,8 @@ Public Class frmEssensbestellungen
|
||||
Dim dt As New DataTable
|
||||
Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
|
||||
Private ToolTipFont As New Font("Courier New", 12)
|
||||
Dim essenMontag As String = ""
|
||||
Dim preisProMahlzeit As Double = 3
|
||||
Dim menu As String = "Menü:"
|
||||
|
||||
|
||||
|
||||
@@ -100,7 +101,7 @@ Public Class frmEssensbestellungen
|
||||
End If
|
||||
|
||||
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
|
||||
|
||||
essen.eb_gebaeude = cbxGebauede._value
|
||||
essen.SAVE()
|
||||
loadDGVBestellungen()
|
||||
|
||||
@@ -145,14 +146,14 @@ Public Class frmEssensbestellungen
|
||||
btnSave.Enabled = False
|
||||
End If
|
||||
|
||||
uncheckGroupBoxes(sender, e)
|
||||
uncheckGroupBoxesAndRadioButtons(sender, e)
|
||||
loadDGVBestellungen()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
|
||||
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
|
||||
|
||||
If rbMenoAlt_Mo.Checked Then
|
||||
If rbMenuAlt_Mo.Checked Then
|
||||
txtAltMo.Visible = True
|
||||
Else
|
||||
txtAltMo.Visible = False
|
||||
@@ -188,10 +189,13 @@ Public Class frmEssensbestellungen
|
||||
|
||||
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged
|
||||
If cbMontag.Checked Then
|
||||
rbMenoAlt_Mo.Enabled = True
|
||||
rbMenuAlt_Mo.Enabled = True
|
||||
rbMenu_Mo.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
|
||||
rbMenu_Mo.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenoAlt_Mo.Enabled = False
|
||||
rbMenuAlt_Mo.Enabled = False
|
||||
rbMenu_Mo.Enabled = False
|
||||
txtAltMo.Text = ""
|
||||
End If
|
||||
@@ -199,6 +203,9 @@ Public Class frmEssensbestellungen
|
||||
If cbDienstag.Checked Then
|
||||
rbMenuAlt_Di.Enabled = True
|
||||
rbMenu_Di.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
|
||||
rbMenu_Di.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Di.Enabled = False
|
||||
rbMenuAlt_Di.Enabled = False
|
||||
@@ -208,6 +215,9 @@ Public Class frmEssensbestellungen
|
||||
If cbMittwoch.Checked Then
|
||||
rbMenuAlt_Mi.Enabled = True
|
||||
rbMenu_Mi.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
|
||||
rbMenu_Mi.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Mi.Enabled = False
|
||||
rbMenuAlt_Mi.Enabled = False
|
||||
@@ -218,6 +228,9 @@ Public Class frmEssensbestellungen
|
||||
If cbDonnerstag.Checked Then
|
||||
rbMenuAlt_Do.Enabled = True
|
||||
rbMenu_Do.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
|
||||
rbMenu_Do.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Do.Enabled = False
|
||||
rbMenuAlt_Do.Enabled = False
|
||||
@@ -227,6 +240,9 @@ Public Class frmEssensbestellungen
|
||||
If cbFreitag.Checked Then
|
||||
rbMenuAlt_Fr.Enabled = True
|
||||
rbMenu_Fr.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
|
||||
rbMenu_Fr.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Fr.Enabled = False
|
||||
rbMenuAlt_Fr.Enabled = False
|
||||
@@ -276,7 +292,7 @@ Public Class frmEssensbestellungen
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub uncheckGroupBoxes(sender, e)
|
||||
Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
|
||||
For Each gb As Control In MyPanel1.Controls
|
||||
If TypeOf gb Is GroupBox Then
|
||||
For Each c As Control In gb.Controls
|
||||
@@ -284,6 +300,11 @@ Public Class frmEssensbestellungen
|
||||
Dim checkbox As CheckBox = c
|
||||
checkbox.Checked = False
|
||||
End If
|
||||
If TypeOf c Is RadioButton Then
|
||||
Dim radiobutton As RadioButton = c
|
||||
radiobutton.Checked = False
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
@@ -315,7 +336,7 @@ Public Class frmEssensbestellungen
|
||||
|
||||
txtAnzahlMenu.Text = countMenus.ToString()
|
||||
txtAnzahlLaCart.Text = countlaCarte.ToString
|
||||
txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * 3
|
||||
txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -323,15 +344,21 @@ Public Class frmEssensbestellungen
|
||||
Private Sub loadMenuInfo(dt As DataTable)
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
|
||||
pbMontag.Visible = True
|
||||
'pbMontag.Visible = True
|
||||
rbMenu_Mo.Text = menu
|
||||
txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString
|
||||
|
||||
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
|
||||
Else
|
||||
pbMontag.Visible = False
|
||||
txtMenuMo.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
|
||||
pbDienstag.Visible = True
|
||||
'pbDienstag.Visible = True
|
||||
rbMenu_Di.Text = menu
|
||||
txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
|
||||
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
|
||||
|
||||
Else
|
||||
@@ -340,21 +367,27 @@ Public Class frmEssensbestellungen
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
|
||||
pbMittwoch.Visible = True
|
||||
'pbMittwoch.Visible = True
|
||||
rbMenu_Mi.Text = menu
|
||||
txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
|
||||
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
|
||||
Else
|
||||
pbMittwoch.Visible = False
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
|
||||
pbDonnerstag.Visible = True
|
||||
'pbDonnerstag.Visible = True
|
||||
rbMenu_Do.Text = menu
|
||||
txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
|
||||
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
|
||||
Else
|
||||
pbDonnerstag.Visible = False
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
|
||||
pbFreitag.Visible = True
|
||||
'pbFreitag.Visible = True
|
||||
rbMenu_Fr.Text = menu
|
||||
txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
|
||||
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
|
||||
Else
|
||||
pbFreitag.Visible = False
|
||||
@@ -368,12 +401,14 @@ Public Class frmEssensbestellungen
|
||||
|
||||
Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value)
|
||||
|
||||
cbxMenu.changeItem(currentEssen.eb_kw)
|
||||
|
||||
If currentEssen.eb_montag IsNot Nothing Then
|
||||
cbMontag.Checked = True
|
||||
If currentEssen.eb_montag.ToString = "Menu" Then
|
||||
rbMenu_Mo.Checked = True
|
||||
Else
|
||||
rbMenoAlt_Mo.Checked = True
|
||||
rbMenuAlt_Mo.Checked = True
|
||||
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
|
||||
End If
|
||||
Else
|
||||
@@ -431,7 +466,7 @@ Public Class frmEssensbestellungen
|
||||
End If
|
||||
|
||||
|
||||
cbxGebauede._value = currentEssen.eb_gebaeude
|
||||
cbxGebauede._value = currentEssen.eb_gebaeude.ToString
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -466,9 +501,16 @@ Public Class frmEssensbestellungen
|
||||
Try
|
||||
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
|
||||
|
||||
Dim tageBisBestellende = 20 '-5
|
||||
|
||||
If tageBisBestellende > 0 Then
|
||||
lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!"
|
||||
Else
|
||||
lblTest.Text = ""
|
||||
End If
|
||||
|
||||
Dim newTime As New TimeSpan(14, 30, 0)
|
||||
Dim timeToOrderLimit = startMenu.AddDays(20) + newTime '-5
|
||||
Dim timeToOrderLimit = startMenu.AddDays(tageBisBestellende) + newTime
|
||||
lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
|
||||
|
||||
If Now >= timeToOrderLimit Then
|
||||
@@ -499,4 +541,19 @@ Public Class frmEssensbestellungen
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
cbxMenu.changeItem("")
|
||||
End Sub
|
||||
|
||||
Private Function checkIfGroupBoxIsSetFirstTime(gb As GroupBox)
|
||||
|
||||
For Each c As Control In gb.Controls
|
||||
If TypeOf c Is RadioButton Then
|
||||
Dim radioButton As RadioButton = c
|
||||
If radioButton.Checked = True Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user