Bugfix_Essensbestellungen

Aviso/frmEssensbestellungenAdministration.vb

@@ -348,7 +348,7 @@ Public Class frmEssensbestellungenAdministration
 
         For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
 
-            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+            Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
 
             bestellung.eb_storniert = True
             If stornieren Then
@@ -357,15 +357,14 @@ Public Class frmEssensbestellungenAdministration
                 bestellung.eb_storniert_am = DBNull.Value
 
             End If
-
-            dgvBestellungen.GetOrder()
             bestellung.SAVE()
-            dgvBestellungen.LOAD()
-            dgvBestellungen.SetOrder()
 
 
         Next
 
+        dgvBestellungen.GetOrder()
+        dgvBestellungen.LOAD()
+        dgvBestellungen.SetOrder()
 
     End Sub
 
@@ -374,7 +373,7 @@ Public Class frmEssensbestellungenAdministration
 
         For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
 
-            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+            Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
 
             bestellung.eb_abgerechnet = abrechnen
             If abrechnen Then
@@ -384,13 +383,16 @@ Public Class frmEssensbestellungenAdministration
 
             End If
 
-            dgvBestellungen.GetOrder()
+
             bestellung.SAVE()
-            dgvBestellungen.LOAD()
-            dgvBestellungen.SetOrder()
+
         Next
 
 
+        dgvBestellungen.GetOrder()
+        dgvBestellungen.LOAD()
+        dgvBestellungen.SetOrder()
+
     End Sub
 
     Private Sub bestellungenSenden(senden As Boolean)
@@ -398,7 +400,7 @@ Public Class frmEssensbestellungenAdministration
 
         For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
 
-            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+            Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
 
             bestellung.eb_gesendet = senden
             If senden Then
@@ -408,12 +410,13 @@ Public Class frmEssensbestellungenAdministration
 
             End If
 
-            dgvBestellungen.GetOrder()
             bestellung.SAVE()
-            dgvBestellungen.LOAD()
-            dgvBestellungen.SetOrder()
+
         Next
 
+        dgvBestellungen.GetOrder()
+        dgvBestellungen.LOAD()
+        dgvBestellungen.SetOrder()
 
     End Sub
 
@@ -532,8 +535,10 @@ Public Class frmEssensbestellungenAdministration
 
         If cbKW._value Is Nothing Or cbKW._value = "" Then
             txtBestelllimit.Text = ""
+
             Exit Sub
         End If
+        btnBestelllimit.Enabled = True
 
         If dt IsNot Nothing Then
             dt.Clear()
@@ -764,6 +769,11 @@ Public Class frmEssensbestellungenAdministration
             Exit Sub
         End If
 
+        If txtBestelllimit.Text = "" Then
+            btnBestelllimit.Enabled = False
+            Exit Sub
+        End If
+
         If dt.Rows.Count > 0 AndAlso IsNumeric(txtBestelllimit.Text) Then
 
             calcBestellLimit()