Umbau Warenorte, Neues Feature Essensbestellungen, Sendungsvermerk bei GMVS

Aviso/frmEssensbestellungenAdministration.vb

@@ -563,7 +563,7 @@ Public Class frmEssensbestellungenAdministration
         Dim SQLStringBEstellungen As String = "SELECT  [eb_mitname] as Name ,[eb_mitid] as ID , [eb_kw] as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch,
                                     [eb_donnerstag] As Donnerstag ,[eb_freitag] as Freitag, [eb_anmerkung] as Anmerkung ,[eb_datum] as Datum , [eb_storniert] as Storniert 
                                     FROM 
-                                    [tblEssensbestellungen] " 'WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"
+                                    [tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"
 
         dtBestellungen = SQL.loadDgvBySql(SQLStringBEstellungen, "AVISO", 100, True)
 
@@ -664,4 +664,25 @@ Public Class frmEssensbestellungenAdministration
 
     End Function
 
+    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
+
+
+        Using UserControl1 As UsrCntlessensbestellungen = New UsrCntlessensbestellungen()
+            Using tmpForm As Form = New Form()
+                tmpForm.Width = UserControl1.Width
+                tmpForm.Height = UserControl1.Height + 60
+                tmpForm.Text = "NEUE BESTELLUNG"
+                tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
+                tmpForm.Controls.Add(UserControl1)
+                If tmpForm.ShowDialog() = DialogResult.OK Then
+                    dgvBestellungen.SetOrder()
+                    loadBestellungen()
+                    dgvBestellungen.GetOrder()
+                End If
+
+            End Using
+        End Using
+
+
+    End Sub
 End Class