Messenger Bugfix, Mahnungen für Verag360, etc.

This commit is contained in:
2024-08-14 16:24:46 +02:00
parent a5366e75a1
commit 311cb70fca
11 changed files with 315 additions and 231 deletions

View File

@@ -314,9 +314,9 @@ Public Class UsrCntlessensbestellungen
If rbMenu_montag.Checked Then
essen.eb_montag = menu
setWarning(False)
Else
If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_montag = txtAlt_montag.Text.ToString
ElseIf rbMenuAlt_montag.Checked Then
If cbxAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_montag = cbxAlt_montag.Text.ToString 'txtAlt_montag
setWarning(False)
Else
setWarning(True)
@@ -334,9 +334,9 @@ Public Class UsrCntlessensbestellungen
If rbMenu_dienstag.Checked Then
essen.eb_dienstag = menu
setWarning(False)
Else
If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_dienstag = txtAlt_dienstag.Text.ToString
ElseIf rbMenuAlt_dienstag.Checked Then
If cbxAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_dienstag = cbxAlt_dienstag.Text.ToString 'txtAlt_dienstag.Text.ToString
setWarning(False)
Else
setWarning(True)
@@ -352,9 +352,9 @@ Public Class UsrCntlessensbestellungen
If rbMenu_mittwoch.Checked Then
essen.eb_mittwoch = menu
setWarning(False)
Else
If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
ElseIf rbMenuAlt_mittwoch.Checked Then
If cbxAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_mittwoch = cbxAlt_mittwoch.Text.ToString 'txtAlt_mittwoch.Text.ToString
setWarning(False)
Else
setWarning(True)
@@ -370,9 +370,9 @@ Public Class UsrCntlessensbestellungen
If rbMenu_donnerstag.Checked Then
essen.eb_donnerstag = menu
setWarning(False)
Else
If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
ElseIf rbMenuAlt_donnerstag.Checked Then
If cbxAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_donnerstag = cbxAlt_donnerstag.Text.ToString 'txtAlt_donnerstag.Text.ToString
setWarning(False)
Else
setWarning(True)
@@ -388,9 +388,9 @@ Public Class UsrCntlessensbestellungen
If rbMenu__freitag.Checked Then
essen.eb_freitag = menu
setWarning(False)
Else
If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_freitag = txtAlt_freitag.Text.ToString
ElseIf rbMenuAlt_freitag.Checked Then
If cbxAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_freitag = cbxAlt_freitag.Text.ToString 'txtAlt_freitag.Text.ToString
setWarning(False)
Else
setWarning(True)