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

Gessamtsicherheiten, Gesamtsicherheiten, essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-04 16:52:24 +01:00
parent 31af690dc4
commit 48b12b78f5
20 changed files with 3646 additions and 731 deletions
Download Patch File Download Diff File Expand all files Collapse all files

312
Aviso/frmEssensbestellungen.vb
View File

@@ -7,14 +7,17 @@ Public Class frmEssensbestellungen
Dim essen As New cEssensbestellung()
Dim dt As New DataTable
Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
Private ToolTipFont As New Font("Courier New", 12)
Dim preisProMahlzeit As Double = 3
Dim menu As String = "Menü:"
Dim menu As String = "Menü"
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxMenu.fillWithSQL("SELECT Distinct Top 10 (MenuTitel), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
@@ -38,60 +41,96 @@ Public Class frmEssensbestellungen
Exit Sub
End If
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG)
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname)
If cbMontag.Checked Then
If rbMenu_Mo.Checked Then
essen.eb_montag = "Menu"
If cb_montag.Checked Then
If rbMenu_montag.Checked Then
essen.eb_montag = menu
setWarning(False)
Else
essen.eb_montag = txtAltMo.Text.ToString
End If
If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_montag = txtAlt_montag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_montag = Nothing
End If
If cbDienstag.Checked Then
If rbMenu_Di.Checked Then
essen.eb_dienstag = "Menu"
If cb_dienstag.Checked Then
If rbMenu_dienstag.Checked Then
essen.eb_dienstag = menu
setWarning(False)
Else
essen.eb_dienstag = txtAltDi.Text.ToString
If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_dienstag = txtAlt_dienstag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_dienstag = Nothing
End If
If cbMittwoch.Checked Then
If rbMenu_Mi.Checked Then
essen.eb_mittwoch = "Menu"
If cb_mittwoch.Checked Then
If rbMenu_mittwoch.Checked Then
essen.eb_mittwoch = menu
setWarning(False)
Else
essen.eb_mittwoch = txtAltMi.Text.ToString
If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_mittwoch = Nothing
End If
If cbDonnerstag.Checked Then
If rbMenu_Do.Checked Then
essen.eb_donnerstag = "Menu"
If cbdonnerstag.Checked Then
If rbMenu_donnerstag.Checked Then
essen.eb_donnerstag = menu
setWarning(False)
Else
essen.eb_donnerstag = txtAltDo.Text.ToString
If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_donnerstag = Nothing
End If
If cbFreitag.Checked Then
If rbMenu_Fr.Checked Then
essen.eb_freitag = "Menu"
If cb_freitag.Checked Then
If rbMenu__freitag.Checked Then
essen.eb_freitag = menu
setWarning(False)
Else
essen.eb_freitag = txtAltFr.Text.ToString
If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_freitag = txtAlt_freitag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_freitag = Nothing
End If
@@ -151,102 +190,102 @@ Public Class frmEssensbestellungen
End Sub
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
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
If rbMenuAlt_Mo.Checked Then
txtAltMo.Visible = True
If rbMenuAlt_montag.Checked Then
txtAlt_montag.Visible = True
Else
txtAltMo.Visible = False
txtAlt_montag.Visible = False
End If
If rbMenuAlt_Di.Checked Then
txtAltDi.Visible = True
If rbMenuAlt_dienstag.Checked Then
txtAlt_dienstag.Visible = True
Else
txtAltDi.Visible = False
txtAlt_dienstag.Visible = False
End If
If rbMenuAlt_Mi.Checked Then
txtAltMi.Visible = True
If rbMenuAlt_mittwoch.Checked Then
txtAlt_mittwoch.Visible = True
Else
txtAltMi.Visible = False
txtAlt_mittwoch.Visible = False
End If
If rbMenuAlt_Do.Checked Then
txtAltDo.Visible = True
If rbMenuAlt_donnerstag.Checked Then
txtAlt_donnerstag.Visible = True
Else
txtAltDo.Visible = False
txtAlt_donnerstag.Visible = False
End If
If rbMenuAlt_Fr.Checked Then
txtAltFr.Visible = True
If rbMenuAlt_freitag.Checked Then
txtAlt_freitag.Visible = True
Else
txtAltFr.Visible = False
txtAlt_freitag.Visible = False
End If
countChecks()
End Sub
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
rbMenuAlt_Mo.Enabled = True
rbMenu_Mo.Enabled = True
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
If cb_montag.Checked Then
rbMenuAlt_montag.Enabled = True
rbMenu_montag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
rbMenu_Mo.Checked = True
rbMenu_montag.Checked = True
End If
Else
rbMenuAlt_Mo.Enabled = False
rbMenu_Mo.Enabled = False
txtAltMo.Text = ""
rbMenuAlt_montag.Enabled = False
rbMenu_montag.Enabled = False
txtAlt_montag.Text = ""
End If
If cbDienstag.Checked Then
rbMenuAlt_Di.Enabled = True
rbMenu_Di.Enabled = True
If cb_dienstag.Checked Then
rbMenuAlt_dienstag.Enabled = True
rbMenu_dienstag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
rbMenu_Di.Checked = True
rbMenu_dienstag.Checked = True
End If
Else
rbMenu_Di.Enabled = False
rbMenuAlt_Di.Enabled = False
txtAltDi.Text = ""
rbMenu_dienstag.Enabled = False
rbMenuAlt_dienstag.Enabled = False
txtAlt_dienstag.Text = ""
End If
If cbMittwoch.Checked Then
rbMenuAlt_Mi.Enabled = True
rbMenu_Mi.Enabled = True
If cb_mittwoch.Checked Then
rbMenuAlt_mittwoch.Enabled = True
rbMenu_mittwoch.Enabled = True
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
rbMenu_Mi.Checked = True
rbMenu_mittwoch.Checked = True
End If
Else
rbMenu_Mi.Enabled = False
rbMenuAlt_Mi.Enabled = False
txtAltMi.Text = ""
rbMenu_mittwoch.Enabled = False
rbMenuAlt_mittwoch.Enabled = False
txtAlt_mittwoch.Text = ""
End If
If cbDonnerstag.Checked Then
rbMenuAlt_Do.Enabled = True
rbMenu_Do.Enabled = True
If cbdonnerstag.Checked Then
rbMenuAlt_donnerstag.Enabled = True
rbMenu_donnerstag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
rbMenu_Do.Checked = True
rbMenu_donnerstag.Checked = True
End If
Else
rbMenu_Do.Enabled = False
rbMenuAlt_Do.Enabled = False
txtAltDo.Text = ""
rbMenu_donnerstag.Enabled = False
rbMenuAlt_donnerstag.Enabled = False
txtAlt_donnerstag.Text = ""
End If
If cbFreitag.Checked Then
rbMenuAlt_Fr.Enabled = True
rbMenu_Fr.Enabled = True
If cb_freitag.Checked Then
rbMenuAlt_freitag.Enabled = True
rbMenu__freitag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
rbMenu_Fr.Checked = True
rbMenu__freitag.Checked = True
End If
Else
rbMenu_Fr.Enabled = False
rbMenuAlt_Fr.Enabled = False
txtAltFr.Text = ""
rbMenu__freitag.Enabled = False
rbMenuAlt_freitag.Enabled = False
txtAlt_freitag.Text = ""
End If
countChecks()
End Sub
@@ -257,7 +296,7 @@ Public Class frmEssensbestellungen
Dim SQLWhere As String = ""
If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
dgvBestellungen.LOAD()
@@ -270,7 +309,8 @@ Public Class frmEssensbestellungen
.Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("eb_kw").HeaderText = "KW"
.Columns("eb_mitid").Visible = False
.Columns("eb_mitname").Visible = False
.Columns("eb_datum").Visible = False
.Columns("eb_abteilung").Visible = False
.Columns("eb_montag").Width = 80
.Columns("eb_montag").HeaderText = "Montag"
@@ -345,52 +385,52 @@ Public Class frmEssensbestellungen
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
'pbMontag.Visible = True
rbMenu_Mo.Text = menu
txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString
rbMenu_montag.Text = menu
txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
ttMontag.SetToolTip(pb_montag, dt.Rows(0).Item("MenuEssenMo").ToString)
Else
pbMontag.Visible = False
txtMenuMo.Text = ""
pb_montag.Visible = False
txtMenu_montag.Text = ""
End If
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
'pbDienstag.Visible = True
rbMenu_Di.Text = menu
txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
rbMenu_dienstag.Text = menu
txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
ttDienstag.SetToolTip(pb_dienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
Else
pbDienstag.Visible = False
pb_dienstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
'pbMittwoch.Visible = True
rbMenu_Mi.Text = menu
txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
rbMenu_mittwoch.Text = menu
txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
ttMittwoch.SetToolTip(pb_mittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
Else
pbMittwoch.Visible = False
pb_mittwoch.Visible = False
End If
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
'pbDonnerstag.Visible = True
rbMenu_Do.Text = menu
txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
rbMenu_donnerstag.Text = menu
txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
ttDonnerstag.SetToolTip(pb_donnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
Else
pbDonnerstag.Visible = False
pb_donnerstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
'pbFreitag.Visible = True
rbMenu_Fr.Text = menu
txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
rbMenu__freitag.Text = menu
txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
ttFreitag.SetToolTip(pb_freitag, dt.Rows(0).Item("MenuEssenFr").ToString)
Else
pbFreitag.Visible = False
pb_freitag.Visible = False
End If
End Sub
@@ -399,70 +439,70 @@ Public Class frmEssensbestellungen
If dgvBestellungen.Rows.Count = 0 Then Exit Sub
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)
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, dgvBestellungen.CurrentRow.Cells("eb_mitname").Value)
cbxMenu.changeItem(currentEssen.eb_kw)
If currentEssen.eb_montag IsNot Nothing Then
cbMontag.Checked = True
cb_montag.Checked = True
If currentEssen.eb_montag.ToString = "Menu" Then
rbMenu_Mo.Checked = True
rbMenu_montag.Checked = True
Else
rbMenuAlt_Mo.Checked = True
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
rbMenuAlt_montag.Checked = True
If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString
End If
Else
cbMontag.Checked = False
cb_montag.Checked = False
End If
If currentEssen.eb_dienstag IsNot Nothing Then
cbDienstag.Checked = True
cb_dienstag.Checked = True
If currentEssen.eb_dienstag.ToString = "Menu" Then
rbMenu_Di.Checked = True
rbMenu_dienstag.Checked = True
Else
rbMenuAlt_Di.Checked = True
If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString
rbMenuAlt_dienstag.Checked = True
If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString
End If
Else
cbDienstag.Checked = False
cb_dienstag.Checked = False
End If
If currentEssen.eb_mittwoch IsNot Nothing Then
cbMittwoch.Checked = True
cb_mittwoch.Checked = True
If currentEssen.eb_mittwoch.ToString = "Menu" Then
rbMenu_Mi.Checked = True
rbMenu_mittwoch.Checked = True
Else
rbMenuAlt_Mi.Checked = True
If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString
rbMenuAlt_mittwoch.Checked = True
If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString
End If
Else
cbMittwoch.Checked = False
cb_mittwoch.Checked = False
End If
If currentEssen.eb_donnerstag IsNot Nothing Then
cbDonnerstag.Checked = True
cbdonnerstag.Checked = True
If currentEssen.eb_donnerstag.ToString = "Menu" Then
rbMenu_Do.Checked = True
rbMenu_donnerstag.Checked = True
Else
rbMenuAlt_Do.Checked = True
If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString
rbMenuAlt_donnerstag.Checked = True
If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString
End If
Else
cbMittwoch.Checked = False
cb_mittwoch.Checked = False
End If
If currentEssen.eb_freitag IsNot Nothing Then
cbFreitag.Checked = True
cb_freitag.Checked = True
If currentEssen.eb_freitag.ToString = "Menu" Then
rbMenu_Fr.Checked = True
rbMenu__freitag.Checked = True
Else
rbMenuAlt_Fr.Checked = True
If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString
rbMenuAlt_freitag.Checked = True
If currentEssen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_freitag.ToString
End If
Else
cbFreitag.Checked = False
cb_freitag.Checked = False
End If
@@ -501,7 +541,7 @@ Public Class frmEssensbestellungen
Try
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
Dim tageBisBestellende = 50 '-5
Dim tageBisBestellende = 10000 '-5
If tageBisBestellende > 0 Then
lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!"
@@ -528,7 +568,7 @@ Public Class frmEssensbestellungen
End Function
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
countChecks()
End Sub
@@ -557,4 +597,16 @@ Public Class frmEssensbestellungen
End Function
Private Sub setWarning(warning As Boolean)
If warning Then
lblWarning.Text = "Bezeichnung für A la carte fehlt"
Else
lblWarning.Text = ""
End If
End Sub
End Class