Umbau Warenorte, Neues Feature Essensbestellungen, Sendungsvermerk bei GMVS

Aviso/frmEssensbestellungen.vb

@@ -11,6 +11,7 @@ Public Class frmEssensbestellungen
     Private ToolTipFont As New Font("Courier New", 12)
     Dim preisProMahlzeit As Double = 3
     Dim menu As String = "Menü"
+    Dim alacarte As String = "A la carte"
 
 
 
@@ -364,7 +365,7 @@ Public Class frmEssensbestellungen
             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