GoLife: Essensbestellungen
This commit is contained in:
@@ -63,10 +63,11 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
.RowHeadersWidth = 10
|
||||
.Columns("eb_kw").HeaderText = "KW"
|
||||
.Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("eb_kw").Width = 80
|
||||
.Columns("eb_mitid").HeaderText = "MID"
|
||||
.Columns("eb_mitid").Width = 40
|
||||
.Columns("eb_mitname").HeaderText = "Mitarbeiter"
|
||||
.Columns("eb_mitname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("eb_abteilung").Visible = False
|
||||
.Columns("eb_datum").Width = 80
|
||||
.Columns("eb_datum").HeaderText = "Datum"
|
||||
@@ -82,13 +83,16 @@ Public Class frmEssensbestellungenAdministration
|
||||
.Columns("eb_freitag").HeaderText = "Freitag"
|
||||
.Columns("eb_freitag").Width = 80
|
||||
.Columns("eb_gebaeude").HeaderText = "Gebäude"
|
||||
.Columns("eb_gebaeude").Width = 80
|
||||
.Columns("eb_gebaeude").Width = 100
|
||||
.Columns("eb_preis").HeaderText = "Preis"
|
||||
.Columns("eb_preis").Width = 40
|
||||
.Columns("eb_preis").DefaultCellStyle.Format = "N"
|
||||
.Columns("eb_storniert_am").HeaderText = "Storniert am"
|
||||
.Columns("eb_storniert_am").Width = 80
|
||||
.Columns("eb_abgerechnet_am").HeaderText = "Abgerechnet am"
|
||||
.Columns("eb_abgerechnet_am").Width = 80
|
||||
.Columns("eb_gesendet_am").HeaderText = "Gesendet am"
|
||||
.Columns("eb_gesendet_am").Width = 80
|
||||
.Columns("eb_storniert").Visible = False
|
||||
.Columns("eb_abgerechnet").Visible = False
|
||||
.Columns("eb_gesendet").Visible = False
|
||||
@@ -269,7 +273,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
Select Case sender.Text
|
||||
Case "abgerechnen"
|
||||
Case "abgerechnet"
|
||||
Select Case dgvBestellungen.SelectedRows.Count
|
||||
Case 1
|
||||
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then
|
||||
@@ -350,7 +354,10 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
End If
|
||||
|
||||
dgvBestellungen.SetOrder()
|
||||
bestellung.SAVE()
|
||||
dgvBestellungen.LOAD()
|
||||
dgvBestellungen.GetOrder()
|
||||
|
||||
|
||||
Next
|
||||
@@ -375,6 +382,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
dgvBestellungen.SetOrder()
|
||||
bestellung.SAVE()
|
||||
dgvBestellungen.LOAD()
|
||||
dgvBestellungen.GetOrder()
|
||||
Next
|
||||
|
||||
@@ -398,6 +406,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
dgvBestellungen.SetOrder()
|
||||
bestellung.SAVE()
|
||||
dgvBestellungen.LOAD()
|
||||
dgvBestellungen.GetOrder()
|
||||
Next
|
||||
|
||||
@@ -420,7 +429,10 @@ Public Class frmEssensbestellungenAdministration
|
||||
Dim dtBestellungenMail = generateDTBestellungen()
|
||||
kw = cbxMailKW._value
|
||||
gebaeude = cbxMailGebäude._value
|
||||
|
||||
If dtBestellungenMail.Rows.Count = 0 Then
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row As DataRow In dtBestellungenMail.Rows
|
||||
|
||||
TextHTMLtable &= "<tr>"
|
||||
@@ -443,9 +455,14 @@ Public Class frmEssensbestellungenAdministration
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
dgvBestellungen.LOAD()
|
||||
|
||||
Else
|
||||
If dgvBestellungen.SelectedRows.Count = 0 Then
|
||||
lblWarning.Text = "keine Bestellungen markiert!"
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
For Each row In dgvBestellungen.SelectedRows
|
||||
|
||||
TextHTMLtable &= "<tr>"
|
||||
@@ -463,6 +480,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
End If
|
||||
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
@@ -470,6 +488,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.To = "info@highway-118.de; service@highway-118.de"
|
||||
|
||||
|
||||
Mail.Subject = "Essensbestellung: " & IIf(kw <> "", kw, "") & " " & IIf(gebaeude <> "", gebaeude, "")
|
||||
@@ -491,7 +510,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
EndTextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE", cAllgemein.FIRMA_ID, True, True) & "</div>"
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -540,6 +559,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Select Case sender.Text
|
||||
|
||||
Case "Email"
|
||||
@@ -567,6 +587,12 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
dtBestellungen = SQL.loadDgvBySql(SQLStringBEstellungen, "AVISO", 100, True)
|
||||
|
||||
If dtBestellungen.Rows.Count = 0 Then
|
||||
lblWarning.Text = "Keine Bestellungen vorhanden!"
|
||||
Me.Cursor = Cursors.Default
|
||||
Return dtBestellungen
|
||||
End If
|
||||
|
||||
|
||||
Dim uniqueMenusMontag = dtBestellungen.AsEnumerable() _
|
||||
.GroupBy(Function(row) _
|
||||
@@ -654,12 +680,6 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
' MessageBox.Show(String.Join(Environment.NewLine, result))
|
||||
|
||||
If dtBestellungen.Rows.Count = 0 Then
|
||||
lblWarning.Text = "keine Datensätze vorhanden"
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Return dtBestellungen
|
||||
|
||||
End Function
|
||||
@@ -685,4 +705,8 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvBestellungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBestellungen.SelectionChanged
|
||||
lblWarning.Text = ""
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user