128 lines
3.7 KiB
VB.net
128 lines
3.7 KiB
VB.net
|
|
|
|
Imports System.Web.UI.WebControls
|
|
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
|
Imports Spire.Pdf.General.Paper
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmEssensbestellungen
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim essen As New cEssensbestellung()
|
|
|
|
|
|
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
MyComboBox1.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True)
|
|
|
|
lblGebaeude.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO
|
|
lblAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
|
|
If cbMontag.Checked Then
|
|
IIf(rbMenuMo.Checked, essen.eb_montag = "Menu", essen.eb_montag = txtAltMo.ToString)
|
|
Else
|
|
essen.eb_montag = Nothing
|
|
End If
|
|
|
|
If cbDienstag.Checked Then
|
|
IIf(rbMenuDi.Checked, essen.eb_dienstag = "Menu", essen.eb_dienstag = txtAltMo.ToString)
|
|
Else
|
|
essen.eb_dienstag = Nothing
|
|
End If
|
|
|
|
If cbMittwoch.Checked Then
|
|
IIf(rbMenuMi.Checked, essen.eb_mittwoch = "Menu", essen.eb_mittwoch = txtAltMo.ToString)
|
|
Else
|
|
essen.eb_mittwoch = Nothing
|
|
End If
|
|
|
|
|
|
If cbDonnerstag.Checked Then
|
|
IIf(rbMenuDo.Checked, essen.eb_donnerstag = "Menu", essen.eb_donnerstag = txtAltMo.ToString)
|
|
Else
|
|
essen.eb_donnerstag = Nothing
|
|
End If
|
|
|
|
If cbFreitag.Checked Then
|
|
IIf(rbMenuFr.Checked, essen.eb_freitag = "Menu", essen.eb_freitag = txtAltMo.ToString)
|
|
Else
|
|
essen.eb_freitag = Nothing
|
|
End If
|
|
|
|
essen.SAVE()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged
|
|
|
|
essen = New cEssensbestellung(MyComboBox1._value, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG)
|
|
|
|
Dim dt As New DataTable
|
|
dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True)
|
|
|
|
If dt.Rows.Count > 0 Then
|
|
|
|
btnSave.Enabled = True
|
|
Else
|
|
btnSave.Enabled = False
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub rbMenoAltMo_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAltMo.CheckedChanged
|
|
|
|
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
|
|
rbMenoAltMo.Enabled = True
|
|
rbMenuMo.Enabled = True
|
|
Else
|
|
rbMenoAltMo.Enabled = False
|
|
rbMenoAltMo.Enabled = False
|
|
End If
|
|
|
|
If cbDienstag.Checked Then
|
|
rbMenuAltDi.Enabled = True
|
|
rbMenuDi.Enabled = True
|
|
Else
|
|
rbMenuDi.Enabled = False
|
|
rbMenuAltDi.Enabled = False
|
|
End If
|
|
|
|
If cbMittwoch.Checked Then
|
|
rbMenuAltMi.Enabled = True
|
|
rbMenuMi.Enabled = True
|
|
Else
|
|
rbMenuMi.Enabled = False
|
|
rbMenuAltMi.Enabled = False
|
|
End If
|
|
|
|
|
|
If cbDonnerstag.Checked Then
|
|
rbMenuAltDo.Enabled = True
|
|
rbMenuDo.Enabled = True
|
|
Else
|
|
rbMenuDo.Enabled = False
|
|
rbMenuAltDo.Enabled = False
|
|
End If
|
|
|
|
If cbFreitag.Checked Then
|
|
rbMenuFrAlt.Enabled = True
|
|
rbMenuFr.Enabled = True
|
|
Else
|
|
rbMenuFr.Enabled = False
|
|
rbMenuFrAlt.Enabled = False
|
|
End If
|
|
|
|
|
|
End Sub
|
|
End Class |