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



    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

    End Sub


    Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged

        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
        IIf(rbMenoAltMo.Checked, txtAltMo.Visible = True, txtAltMo.Visible = False)
    End Sub


End Class