Umbau Warenorte, Neues Feature Essensbestellungen, Sendungsvermerk bei GMVS
This commit is contained in:
@@ -10,6 +10,7 @@ Public Class UsrCntlessensbestellungen
|
||||
Private ToolTipFont As New Font("Courier New", 12)
|
||||
Dim preisProMahlzeit As Double = 3
|
||||
Dim menu As String = "Menu"
|
||||
Dim aLaCarte As String = "a La Carte"
|
||||
|
||||
|
||||
|
||||
@@ -21,6 +22,13 @@ Public Class UsrCntlessensbestellungen
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
initCBOFields()
|
||||
|
||||
cbxGebäude.changeItem("")
|
||||
|
||||
essen = New cEssensbestellung()
|
||||
btnSave.Enabled = False
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -33,11 +41,11 @@ Public Class UsrCntlessensbestellungen
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.CheckBox1.Checked = storniert
|
||||
Me.CheckBox2.Checked = abgerechnet
|
||||
'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menu & "' order by MenuDateVon desc", "AVISO", 100, True)
|
||||
Me.CheckBox3.Checked = essen.eb_gesendet
|
||||
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
|
||||
loadMenuInfo(dt)
|
||||
essen = New cEssensbestellung()
|
||||
txtGebäude.Text = essen.eb_gebaeude.ToString
|
||||
cbxGebäude.Text = essen.eb_gebaeude.ToString
|
||||
txtAnmerkung.Text = If(essen.eb_anmerkung IsNot Nothing, essen.eb_anmerkung.ToString, "")
|
||||
|
||||
End Sub
|
||||
@@ -50,14 +58,22 @@ Public Class UsrCntlessensbestellungen
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
initCBOFields()
|
||||
|
||||
essen = bestellung
|
||||
Dim menutitle = bestellung.eb_kw.ToString()
|
||||
Me.CheckBox1.Checked = essen.eb_storniert
|
||||
Me.CheckBox2.Checked = essen.eb_abgerechnet
|
||||
'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menutitle & "' order by MenuDateVon desc", "AVISO", 100, True)
|
||||
Me.CheckBox3.Checked = essen.eb_gesendet
|
||||
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
|
||||
loadMenuInfo(dt)
|
||||
txtGebäude.Text = essen.eb_gebaeude.ToString
|
||||
cbxGebäude.changeItem(essen.eb_gebaeude)
|
||||
cbxMitarbeiter.changeItem(essen.eb_mitid)
|
||||
cbxAbteilung.changeItem(essen.eb_abteilung)
|
||||
cbxMenu.changeItem(essen.eb_kw)
|
||||
cbxMitarbeiter.Enabled = False
|
||||
cbxMenu.Enabled = False
|
||||
cbxAbteilung.Enabled = False
|
||||
txtAnmerkung.Text = If(essen.eb_anmerkung IsNot Nothing, essen.eb_anmerkung.ToString, "")
|
||||
|
||||
End Sub
|
||||
@@ -192,7 +208,7 @@ Public Class UsrCntlessensbestellungen
|
||||
If TypeOf gb Is GroupBox Then
|
||||
For Each c As Control In gb.Controls
|
||||
|
||||
If c.Text.ToLower.StartsWith("menü") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
If c.Text.ToLower.StartsWith("menu") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
|
||||
If rb.Checked Then countMenus = countMenus + 1
|
||||
End If
|
||||
@@ -215,17 +231,31 @@ Public Class UsrCntlessensbestellungen
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
|
||||
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
|
||||
MyPanel1.Enabled = False
|
||||
txtGebäude.Enabled = False
|
||||
cbxGebäude.Enabled = False
|
||||
cbxMenu.Enabled = False
|
||||
cbxAbteilung.Enabled = False
|
||||
cbxMitarbeiter.Enabled = False
|
||||
txtAnmerkung.Enabled = False
|
||||
Else
|
||||
MyPanel1.Enabled = True
|
||||
txtGebäude.Enabled = True
|
||||
cbxGebäude.Enabled = True
|
||||
cbxMenu.Enabled = True
|
||||
cbxAbteilung.Enabled = True
|
||||
cbxMitarbeiter.Enabled = True
|
||||
txtAnmerkung.Enabled = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
|
||||
|
||||
If cbxGebäude._value = "" Then
|
||||
MsgBox("Bitte Gebäude für die Essensbestellung angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)
|
||||
|
||||
|
||||
If cb_montag.Checked Then
|
||||
@@ -325,7 +355,7 @@ Public Class UsrCntlessensbestellungen
|
||||
End If
|
||||
|
||||
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
|
||||
essen.eb_gebaeude = txtGebäude.Text.ToString
|
||||
essen.eb_gebaeude = cbxGebäude._value
|
||||
|
||||
If CheckBox1.Checked = False Then
|
||||
essen.eb_abgerechnet = False
|
||||
@@ -417,6 +447,72 @@ Public Class UsrCntlessensbestellungen
|
||||
|
||||
Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
initFields()
|
||||
initPanelFields()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initFields()
|
||||
cbxMitarbeiter.Enabled = True
|
||||
cbxMenu.Enabled = True
|
||||
cbxAbteilung.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub cbxMenu_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMenu.SelectedValueChanged
|
||||
|
||||
If cbxMenu._value Is Nothing Or cbxMenu._value = "" Then
|
||||
'Button1.Visible = False
|
||||
|
||||
btnSave.Enabled = False
|
||||
|
||||
For Each comp As System.ComponentModel.Component In Me.components.Components
|
||||
If TypeOf comp Is ToolTip Then
|
||||
Dim tip = DirectCast(comp, ToolTip)
|
||||
tip.RemoveAll()
|
||||
End If
|
||||
Next
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
btnSave.Enabled = True
|
||||
'Button1.Visible = True
|
||||
dt.Clear()
|
||||
dt = SQL.loadDgvBySql("SELECT Top 1 * from (SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & cbxMenu._value & "'", "AVISO", 100, True)
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
loadMenuInfo(dt)
|
||||
|
||||
btnSave.Enabled = True
|
||||
Else
|
||||
btnSave.Enabled = False
|
||||
End If
|
||||
|
||||
uncheckGroupBoxesAndRadioButtons(sender, e)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxMitarbeiter_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMitarbeiter.SelectedValueChanged
|
||||
If cbxMitarbeiter._value Is "" Then
|
||||
cbxAbteilung.changeItem("")
|
||||
cbxGebäude.changeItem("")
|
||||
cbxMenu.changeItem("")
|
||||
txtAnmerkung.Text = ""
|
||||
Else
|
||||
|
||||
cbxAbteilung.changeItem(New cMitarbeiter(cbxMitarbeiter._value).mit_abteilung)
|
||||
uncheckGroupBoxesAndRadioButtons(sender, e)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initPanelFields()
|
||||
|
||||
|
||||
If essen.eb_montag IsNot Nothing Then
|
||||
cb_montag.Checked = True
|
||||
@@ -481,4 +577,21 @@ Public Class UsrCntlessensbestellungen
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub initCBOFields()
|
||||
|
||||
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 10 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
cbxMitarbeiter.fillWithSQL("SELECT top 100 [mit_id], ([mit_vname] + ' ' + [mit_nname]) as name FROM [tblMitarbeiter] where mit_gekuendigt = 0 order by name ", False, "ADMIN", True)
|
||||
cbxAbteilung.fillWithSQL("SELECT [abt_kuerzel], [abt_bezeichnung] from [tblAbteilungen] ", False, "ADMIN", True,, "")
|
||||
|
||||
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
|
||||
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
|
||||
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung"))
|
||||
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
|
||||
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user