Warenorte, etc.

Aviso/frmEssensbestellungenAdministration.vb

@@ -271,7 +271,7 @@ Public Class frmEssensbestellungenAdministration
         If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
 
         Select Case sender.Text
-            Case "abgerechnet"
+            Case "abgerechnen"
                 Select Case dgvBestellungen.SelectedRows.Count
                     Case 1
                         If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then
@@ -706,5 +706,18 @@ Public Class frmEssensbestellungenAdministration
 
     Private Sub dgvBestellungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBestellungen.SelectionChanged
         lblWarning.Text = ""
+
+        Dim countSumme As Double = 0
+
+        If dgvBestellungen.SelectedRows.Count > 0 Then
+
+            For i As Integer = 0 To dgvBestellungen.SelectedRows.Count - 1
+                countSumme += CDbl(dgvBestellungen.SelectedRows(i).Cells("eb_preis").Value)
+
+            Next
+
+        End If
+
+        txtMarkierteDS._value = countSumme.ToString
     End Sub
 End Class