Essensbestellungen

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

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