From 6ae38089a26f047c58e1764c29ec2951dcd9f02f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 11 Jun 2024 16:13:28 +0200 Subject: [PATCH] =?UTF-8?q?Essensbestellungen=20->=20Men=C3=BCanzeige?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/UsrCntlEssensbestellungen.vb | 12 +++++++++--- SDL/frmEssensbestellungen.vb | 5 +++-- SDL/frmEssensbestellungenAdministration.vb | 2 ++ SDL/kunden/Vorauskasse/frmVorauskasse.vb | 11 ++++++++++- 4 files changed, 24 insertions(+), 6 deletions(-) diff --git a/SDL/UsrCntlEssensbestellungen.vb b/SDL/UsrCntlEssensbestellungen.vb index cbe84c56..7681b122 100644 --- a/SDL/UsrCntlEssensbestellungen.vb +++ b/SDL/UsrCntlEssensbestellungen.vb @@ -259,9 +259,9 @@ Public Class UsrCntlessensbestellungen Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value) - Dim MenuID = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = " & cbxMenu._value, "AVISO") + Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO") - essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text, MenuID) + 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 @@ -378,6 +378,7 @@ Public Class UsrCntlessensbestellungen essen.eb_gesendet_am = DBNull.Value End If + essen.eb_MenuID = MenuID If essen.SAVE() Then btnSave.DialogResult = DialogResult.OK @@ -589,7 +590,12 @@ Public Class UsrCntlessensbestellungen cbxMitarbeiter.DropDownWidth = 200 - 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() + 'cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) + + cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", False, "AVISO", True) '/ where MenuDateVon >= GETDATE() + + + '/ where MenuDateVon >= GETDATE() Dim sqlMA = "SELECT [mit_id], ([mit_vname] + ' ' + [mit_nname]) + ' (' + mit_firma +')' as name FROM [tblMitarbeiter] " sqlMA &= "where [mit_ChatBenutzer] = 1 AND [mit_pseudoUser] = 0 AND [mit_gekuendigt] = 0 AND mit_niederlassung = 'SUB'" diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index c645a983..13c255cd 100644 --- a/SDL/frmEssensbestellungen.vb +++ b/SDL/frmEssensbestellungen.vb @@ -58,9 +58,9 @@ Public Class frmEssensbestellungen Exit Sub End If - Dim MenuID = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = " & cbxMenu._value, "AVISO") + Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO") - essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung, MenuID) + essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung) If cb_montag.Checked Then If rbMenu_montag.Checked Then @@ -172,6 +172,7 @@ Public Class frmEssensbestellungen essen.eb_gebaeude = cbxGebauede._value essen.eb_anmerkung = txtAnmerkung.Text essen.eb_firma = cAllgemein.MITARBEITER.getFirma + essen.eb_MenuID = MenuID essen.SAVE() loadDGVBestellungen() diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb index 4246ff89..e319dad7 100644 --- a/SDL/frmEssensbestellungenAdministration.vb +++ b/SDL/frmEssensbestellungenAdministration.vb @@ -1049,6 +1049,8 @@ Public Class frmEssensbestellungenAdministration Private Function ReplaceFirst(text As String, search As String, replace As String, startIndex As Integer, EndIndex As Integer) As String + If startIndex + EndIndex > (text.Length - 1) Then Return text + Dim pos As Integer = text.IndexOf(search, startIndex, IIf(startIndex + EndIndex > text.Length - 1, text.Length - startIndex - 1, EndIndex)) If (pos < 0) Then Return text diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 53d21145..1d533d65 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -295,7 +295,16 @@ Public Class frmVorauskasse If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [vk_QS_SachbearbeiterId] = @PersonalnummerQS " If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH " If MyTextBox1.Text <> "" Then sqlstr &= " AND [vk_LKW] LIKE @LKW " - If txtFirma.Text <> "" Then sqlstr &= " AND ([vk_Firma] LIKE @Firma or vk_KdNr=@Firma) " + + If txtFirma.Text <> "" Then + If IsNumeric(txtFirma.Text) Then + sqlstr &= " AND vk_KdNr=@Firma " + Else + sqlstr &= " AND ([vk_Firma] LIKE @Firma ) " + End If + End If + + Select Case cbxAbgerechnet.CheckState Case CheckState.Unchecked : sqlstr &= " and (SELECT count(*) FROM Rechnungsausgang RG WHERE RG.FilialenNr = vk_FilialeNr and RG.AbfertigungsNr= vk_AbfertigungsNr and vk_KdNr=rg.RechnungsKundenNr and Trdin=1)= 0 "