From 8b8c0b8e3b04e16b137ac3fe7fa5d26aab16d3e2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 17 Oct 2023 15:24:16 +0200 Subject: [PATCH] Essensbestellungen, Firma wird nun mitangegeben --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/UsrCntlEssensbestellungen.vb | 3 +++ Aviso/frmEssensbestellungenAdministration.vb | 13 ++++++++++--- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index d788b69..913a780 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/UsrCntlEssensbestellungen.vb b/Aviso/UsrCntlEssensbestellungen.vb index f19116f..f09b309 100644 --- a/Aviso/UsrCntlEssensbestellungen.vb +++ b/Aviso/UsrCntlEssensbestellungen.vb @@ -256,6 +256,8 @@ Public Class UsrCntlessensbestellungen Exit Sub End If + Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value) + essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text) @@ -357,6 +359,7 @@ Public Class UsrCntlessensbestellungen essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) essen.eb_gebaeude = cbxGebäude._value + essen.eb_firma = mitarbeiter.getFirma If CheckBox1.Checked = False Then essen.eb_abgerechnet = False diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index fe95109..fe48b04 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -43,7 +43,7 @@ Public Class frmEssensbestellungenAdministration Private Sub loadBestellungen() - Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch], + Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] ,[eb_firma] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch], [eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am] FROM [tblEssensbestellungen] WHERE 1=1" @@ -66,6 +66,8 @@ Public Class frmEssensbestellungenAdministration .Columns("eb_mitname").HeaderText = "Mitarbeiter" .Columns("eb_mitname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("eb_abteilung").Visible = False + .Columns("eb_firma").Width = 80 + .Columns("eb_firma").HeaderText = "Firma" .Columns("eb_datum").Width = 80 .Columns("eb_datum").HeaderText = "Datum" .Columns("eb_montag").Width = 80 @@ -447,7 +449,7 @@ Public Class frmEssensbestellungenAdministration Dim TextHTMLtable = "" TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "" If sender.Text = "Email" Then @@ -469,6 +471,7 @@ Public Class frmEssensbestellungenAdministration TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" + TextHTMLtable &= "" TextHTMLtable &= "" If row("ID") <> 0 Then @@ -499,6 +502,7 @@ Public Class frmEssensbestellungenAdministration TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" + TextHTMLtable &= "" TextHTMLtable &= "" Next @@ -614,7 +618,7 @@ Public Class frmEssensbestellungenAdministration ''LEFT([eb_kw],5) Dim SQLStringBEstellungen As String = "SELECT [eb_mitname] as Name ,[eb_mitid] as ID , [eb_kw] as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch, - [eb_donnerstag] As Donnerstag , [eb_freitag] As Freitag, [eb_anmerkung] As Anmerkung , [eb_datum] As Datum , [eb_storniert] as Storniert + [eb_donnerstag] As Donnerstag , [eb_freitag] As Freitag, [eb_anmerkung] As Anmerkung , [eb_datum] As Datum , [eb_storniert] as Storniert, [eb_firma] as Firma FROM [tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum" @@ -704,6 +708,7 @@ Public Class frmEssensbestellungenAdministration R("Anmerkung") = DBNull.Value R("Datum") = DBNull.Value R("Storniert") = DBNull.Value + R("Firma") = DBNull.Value R("Montag") = String.Join(" ", resultMontag) R("Dienstag") = String.Join(" ", resultDienstag) R("Mittwoch") = String.Join(" ", resultMittwoch) @@ -858,6 +863,7 @@ Public Class frmEssensbestellungenAdministration drFirst.Item("eb_gebaeude") = " " drFirst.Item("eb_abteilung") = " " drFirst.Item("eb_preis") = 0 + drFirst.Item("eb_firma") = " " dt.Rows.InsertAt(drFirst, 0) @@ -868,6 +874,7 @@ Public Class frmEssensbestellungenAdministration drLast.Item("eb_gebaeude") = " " drLast.Item("eb_abteilung") = " " drLast.Item("eb_preis") = txtMarkierteDS.Text.Replace("€", "") + drLast.Item("eb_firma") = " " dt.Rows.InsertAt(drLast, dt.Rows.Count) dt.Columns.Remove("eb_mitid")
MitarbeiterMontagDienstagMittwochDonnerstagFreitagGebäudeAnmerkung
MitarbeiterMontagDienstagMittwochDonnerstagFreitagGebäudeAnmerkungFirma
" & row("Freitag") & "" & row("Gebaeude") & "" & row("Anmerkung") & "" & row("Firma") & "
" & row.Cells("eb_freitag").Value & "" & row.Cells("eb_gebaeude").Value & "" & row.Cells("eb_anmerkung").Value & "" & row.Cells("eb_firma").Value & "