Datev

SDL/frmEssensbestellungen.vb

@@ -7,18 +7,15 @@ Public Class frmEssensbestellungen
     Dim essen As New cEssensbestellung()
     Dim dt As New DataTable
     Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
-    'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
     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"
-
+    Dim outdated As Boolean = False
 
 
     Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-
-
         cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() 
 
         txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
@@ -32,6 +29,7 @@ Public Class frmEssensbestellungen
         cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cbxGebauede.changeItem("")
         btnSave.Enabled = False
+        calcOffeneSumme()
 
     End Sub
 
@@ -365,12 +363,12 @@ Public Class frmEssensbestellungen
             If TypeOf gb Is GroupBox Then
                 For Each c As Control In gb.Controls
 
-                    If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
+                    If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
                         Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
                         If rb.Checked Then countMenus = countMenus + 1
                     End If
 
-                    If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
+                    If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
                         Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
                         If rb.Checked Then countlaCarte = countlaCarte + 1
                     End If
@@ -541,7 +539,10 @@ Public Class frmEssensbestellungen
 
     Private Function checkIfOrderIsPossible() As Boolean
 
-        If dt.Rows.Count = 0 Then Return False
+        If dt.Rows.Count = 0 Then
+            outdated = True
+            Return False
+        End If
 
         Try
             Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
@@ -560,9 +561,11 @@ Public Class frmEssensbestellungen
 
             If Now >= timeToOrderLimit Then
                 lblBestellungBis.ForeColor = Color.Red
+                outdated = True
                 Return False
             Else
                 lblBestellungBis.ForeColor = Color.Black
+                outdated = False
                 Return True
             End If
         Catch ex As Exception
@@ -614,4 +617,13 @@ Public Class frmEssensbestellungen
 
     End Sub
 
+    Private Sub calcOffeneSumme()
+
+        Dim sum As Double
+        sum = SQL.DLookup("SUM(eb_preis)", "[tblEssensbestellungen]", "eb_mitid ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' AND ISNULL([eb_abgerechnet],0)=0", "AVISO", "0")
+
+        lbloffenerBetrag.Text &= sum.ToString("C2")
+
+    End Sub
+
 End Class