From ffd45e15a70c8dcd2e90bd8b7b9eea41e274ddda Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 20 Jun 2024 10:39:02 +0200 Subject: [PATCH] Essensbestellungen --- SDL/UsrCntlEssensbestellungen.Designer.vb | 34 +++++++++++++++++++---- SDL/UsrCntlEssensbestellungen.vb | 27 +++++++++++++++++- 2 files changed, 55 insertions(+), 6 deletions(-) diff --git a/SDL/UsrCntlEssensbestellungen.Designer.vb b/SDL/UsrCntlEssensbestellungen.Designer.vb index 44128f19..e13fd6eb 100644 --- a/SDL/UsrCntlEssensbestellungen.Designer.vb +++ b/SDL/UsrCntlEssensbestellungen.Designer.vb @@ -76,6 +76,8 @@ Partial Class UsrCntlessensbestellungen Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtAnzahlKeb = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() Me.MyPanel1.SuspendLayout() Me.GroupBoxDienstag.SuspendLayout() Me.GroupBoxMontag.SuspendLayout() @@ -86,6 +88,8 @@ Partial Class UsrCntlessensbestellungen ' 'MyPanel1 ' + Me.MyPanel1.Controls.Add(Me.txtAnzahlKeb) + Me.MyPanel1.Controls.Add(Me.Label6) Me.MyPanel1.Controls.Add(Me.lblWarning) Me.MyPanel1.Controls.Add(Me.txtPreis) Me.MyPanel1.Controls.Add(Me.Label2) @@ -115,7 +119,7 @@ Partial Class UsrCntlessensbestellungen 'txtPreis ' Me.txtPreis.AutoSize = True - Me.txtPreis.Location = New System.Drawing.Point(553, 188) + Me.txtPreis.Location = New System.Drawing.Point(580, 200) Me.txtPreis.Name = "txtPreis" Me.txtPreis.Size = New System.Drawing.Size(13, 13) Me.txtPreis.TabIndex = 19 @@ -124,7 +128,7 @@ Partial Class UsrCntlessensbestellungen 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(463, 188) + Me.Label2.Location = New System.Drawing.Point(463, 200) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(68, 13) Me.Label2.TabIndex = 18 @@ -382,7 +386,7 @@ Partial Class UsrCntlessensbestellungen 'txtAnzahlLaCart ' Me.txtAnzahlLaCart.AutoSize = True - Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162) + Me.txtAnzahlLaCart.Location = New System.Drawing.Point(580, 174) Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart" Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlLaCart.TabIndex = 17 @@ -391,7 +395,7 @@ Partial Class UsrCntlessensbestellungen 'lbl2 ' Me.lbl2.AutoSize = True - Me.lbl2.Location = New System.Drawing.Point(463, 162) + Me.lbl2.Location = New System.Drawing.Point(465, 174) Me.lbl2.Name = "lbl2" Me.lbl2.Size = New System.Drawing.Size(90, 13) Me.lbl2.TabIndex = 15 @@ -560,7 +564,7 @@ Partial Class UsrCntlessensbestellungen 'txtAnzahlMenu ' Me.txtAnzahlMenu.AutoSize = True - Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137) + Me.txtAnzahlMenu.Location = New System.Drawing.Point(580, 135) Me.txtAnzahlMenu.Name = "txtAnzahlMenu" Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlMenu.TabIndex = 16 @@ -719,6 +723,24 @@ Partial Class UsrCntlessensbestellungen Me.Label5.TabIndex = 39 Me.Label5.Text = "Abteilung:" ' + 'txtAnzahlKeb + ' + Me.txtAnzahlKeb.AutoSize = True + Me.txtAnzahlKeb.Location = New System.Drawing.Point(580, 154) + Me.txtAnzahlKeb.Name = "txtAnzahlKeb" + Me.txtAnzahlKeb.Size = New System.Drawing.Size(13, 13) + Me.txtAnzahlKeb.TabIndex = 35 + Me.txtAnzahlKeb.Text = "0" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(463, 154) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(112, 13) + Me.Label6.TabIndex = 34 + Me.Label6.Text = "Anzahl Kebap/Dürüm:" + ' 'UsrCntlessensbestellungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -810,4 +832,6 @@ Partial Class UsrCntlessensbestellungen Friend WithEvents cbxMenu As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label5 As Label + Friend WithEvents txtAnzahlKeb As Label + Friend WithEvents Label6 As Label End Class diff --git a/SDL/UsrCntlEssensbestellungen.vb b/SDL/UsrCntlEssensbestellungen.vb index 4d98508b..a0866451 100644 --- a/SDL/UsrCntlEssensbestellungen.vb +++ b/SDL/UsrCntlEssensbestellungen.vb @@ -202,10 +202,15 @@ Public Class UsrCntlessensbestellungen Private Sub countChecks() + Dim countMenus As Integer Dim countlaCarte As Integer + Dim countKebab As Integer + countMenus = 0 countlaCarte = 0 + countKebab = 0 + For Each gb As Control In MyPanel1.Controls If TypeOf gb Is GroupBox Then For Each c As Control In gb.Controls @@ -218,6 +223,16 @@ Public Class UsrCntlessensbestellungen 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 + + If TypeOf c Is VERAG_PROG_ALLGEMEIN.MyComboBox AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then + Dim cbx As VERAG_PROG_ALLGEMEIN.MyComboBox = c + If cbx.Visible = True AndAlso cbx.SelectedItem IsNot Nothing Then + + countKebab = countKebab + 1 + countlaCarte = countlaCarte - 1 + End If End If Next End If @@ -225,7 +240,17 @@ Public Class UsrCntlessensbestellungen txtAnzahlMenu.Text = countMenus.ToString() txtAnzahlLaCart.Text = countlaCarte.ToString - txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit + txtAnzahlKeb.Text = countKebab.ToString + + If CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") >= DateTime.Parse("01/06/2024") Then + + txtPreis.Text = (CDbl(countKebab) + CDbl(countMenus)) * 3 + CDbl(countlaCarte) * 5 + Else + + txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus) + CDbl(countKebab)) * preisProMahlzeit + End If + + 'IIf(bestellung.eb_storniert, preisProMahlzeit * 0, preisProMahlzeit * 1) End Sub