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