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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2024-06-20 10:39:02 +02:00
parent e6286f33b6
commit ffd45e15a7
2 changed files with 55 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/UsrCntlEssensbestellungen.Designer.vb generated
View File

@@ -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

27
SDL/UsrCntlEssensbestellungen.vb
View File

@@ -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