chat, essenebstellungen, vollmachten (gültig bis), bugfix laden bei sendungsdetails kunden (fehlermeldung), sprache bei verzollungsunterlagen BAR, Rechung an Atilla

SDL/UsrCntlEssensbestellungen.vb

@@ -1,5 +1,7 @@
 
 Imports System.Data.SqlTypes
+Imports System.Windows.Documents
+Imports io.konik.zugferd.unqualified
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class UsrCntlessensbestellungen
@@ -78,41 +80,53 @@ Public Class UsrCntlessensbestellungen
         cbxAbteilung.Enabled = False
         txtAnmerkung.Text = If(essen.eb_anmerkung IsNot Nothing, essen.eb_anmerkung.ToString, "")
 
+
+
     End Sub
 
 
     Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
 
         If rbMenuAlt_montag.Checked Then
-            txtAlt_montag.Visible = True
+            'txtAlt_montag.Visible = True
+            cbxAlt_montag.Visible = True
         Else
-            txtAlt_montag.Visible = False
+            cbxAlt_montag.Visible = False
+            'txtAlt_montag.Visible = False
         End If
 
         If rbMenuAlt_dienstag.Checked Then
-            txtAlt_dienstag.Visible = True
+            cbxAlt_dienstag.Visible = True
+            'txtAlt_dienstag.Visible = True
         Else
 
-            txtAlt_dienstag.Visible = False
+            cbxAlt_dienstag.Visible = False
+            'txtAlt_dienstag.Visible = False
         End If
 
         If rbMenuAlt_mittwoch.Checked Then
-            txtAlt_mittwoch.Visible = True
+            cbxAlt_mittwoch.Visible = True
+            'txtAlt_mittwoch.Visible = True
         Else
-            txtAlt_mittwoch.Visible = False
+            cbxAlt_mittwoch.Visible = False
+            'txtAlt_mittwoch.Visible = False
         End If
 
 
         If rbMenuAlt_donnerstag.Checked Then
-            txtAlt_donnerstag.Visible = True
+            cbxAlt_donnerstag.Visible = True
+            'txtAlt_donnerstag.Visible = True
         Else
-            txtAlt_donnerstag.Visible = False
+            cbxAlt_donnerstag.Visible = False
+            'txtAlt_donnerstag.Visible = False
         End If
 
         If rbMenuAlt_freitag.Checked Then
-            txtAlt_freitag.Visible = True
+            cbxAlt_freitag.Visible = True
+            'txtAlt_freitag.Visible = True
         Else
-            txtAlt_freitag.Visible = False
+            cbxAlt_freitag.Visible = False
+            'txtAlt_freitag.Visible = False
         End If
         countChecks()
     End Sub
@@ -242,6 +256,9 @@ Public Class UsrCntlessensbestellungen
         txtAnzahlLaCart.Text = countlaCarte.ToString
         txtAnzahlKeb.Text = countKebab.ToString
 
+        If dt.Rows.Count < 1 Then Exit Sub
+
+
         If CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") >= DateTime.Parse("01/06/2024") Then
 
             txtPreis.Text = (CDbl(countKebab) + CDbl(countMenus)) * 3 + CDbl(countlaCarte) * 5
@@ -289,6 +306,10 @@ Public Class UsrCntlessensbestellungen
 
         essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)
 
+
+
+
+
         If cb_montag.Checked Then
             If rbMenu_montag.Checked Then
                 essen.eb_montag = menu
@@ -546,13 +567,17 @@ Public Class UsrCntlessensbestellungen
     Private Sub initPanelFields()
 
 
+
         If essen.eb_montag IsNot Nothing Then
             cb_montag.Checked = True
             If essen.eb_montag.ToString = menu Then
                 rbMenu_montag.Checked = True
             Else
                 rbMenuAlt_montag.Checked = True
-                If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString
+                If essen.eb_montag IsNot Nothing Then cbxAlt_montag.changeItem(essen.eb_montag)
+                If cbxAlt_montag.SelectedValue = Nothing Then
+                    cbxAlt_montag.Text = essen.eb_montag.ToString
+                End If 
             End If
         Else
             cb_montag.Checked = False
@@ -564,7 +589,10 @@ Public Class UsrCntlessensbestellungen
                 rbMenu_dienstag.Checked = True
             Else
                 rbMenuAlt_dienstag.Checked = True
-                If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString
+                If essen.eb_dienstag IsNot Nothing Then cbxAlt_dienstag.changeItem(essen.eb_dienstag)
+                If cbxAlt_dienstag.SelectedValue = Nothing Then
+                    cbxAlt_dienstag.Text = essen.eb_dienstag.ToString
+                End If
             End If
         Else
             cb_dienstag.Checked = False
@@ -577,7 +605,10 @@ Public Class UsrCntlessensbestellungen
                 rbMenu_mittwoch.Checked = True
             Else
                 rbMenuAlt_mittwoch.Checked = True
-                If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString
+                If essen.eb_mittwoch IsNot Nothing Then cbxAlt_mittwoch.changeItem(essen.eb_mittwoch)
+                If cbxAlt_mittwoch.SelectedValue = Nothing Then
+                    cbxAlt_mittwoch.Text = essen.eb_mittwoch.ToString
+                End If
             End If
         Else
             cb_mittwoch.Checked = False
@@ -589,7 +620,10 @@ Public Class UsrCntlessensbestellungen
                 rbMenu_donnerstag.Checked = True
             Else
                 rbMenuAlt_donnerstag.Checked = True
-                If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString
+                If essen.eb_donnerstag IsNot Nothing Then cbxAlt_donnerstag.changeItem(essen.eb_donnerstag)
+                If cbxAlt_donnerstag.SelectedValue = Nothing Then
+                    cbxAlt_donnerstag.Text = essen.eb_donnerstag.ToString
+                End If
             End If
         Else
             cbdonnerstag.Checked = False
@@ -602,7 +636,10 @@ Public Class UsrCntlessensbestellungen
                 rbMenu__freitag.Checked = True
             Else
                 rbMenuAlt_freitag.Checked = True
-                If essen.eb_freitag IsNot Nothing Then txtAlt_freitag.Text = essen.eb_freitag.ToString
+                If essen.eb_freitag IsNot Nothing Then cbxAlt_freitag.changeItem(essen.eb_freitag)
+                If cbxAlt_freitag.SelectedValue = Nothing Then
+                    cbxAlt_freitag.Text = essen.eb_freitag.ToString
+                End If
             End If
         Else
             cb_freitag.Checked = False
@@ -643,6 +680,22 @@ Public Class UsrCntlessensbestellungen
         cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
         cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
 
+
+        Dim list As New List(Of MyListItem)
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kebap", "Kebap"))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dürüm", "Dürüm"))
+        'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+
+        cbxAlt_montag.Items.AddRange(list.ToArray())
+        cbxAlt_dienstag.Items.AddRange(list.ToArray())
+        cbxAlt_mittwoch.Items.AddRange(list.ToArray())
+        cbxAlt_donnerstag.Items.AddRange(list.ToArray())
+        cbxAlt_freitag.Items.AddRange(list.ToArray())
+
+    End Sub
+
+    Private Sub cbxAlt_montag_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxAlt_montag.SelectedValueChanged, cbxAlt_dienstag.SelectedValueChanged, cbxAlt_mittwoch.SelectedValueChanged, cbxAlt_donnerstag.SelectedValueChanged, cbxAlt_freitag.SelectedValueChanged, cbxAlt_montag.TextChanged, cbxAlt_dienstag.TextChanged, cbxAlt_mittwoch.TextChanged, cbxAlt_donnerstag.TextChanged, cbxAlt_freitag.TextChanged
+        countChecks()
     End Sub
 
 End Class