"
@@ -463,6 +478,7 @@ Public Class frmEssensbestellungenAdministration
End If
+
lblWarning.Text = ""
Dim outl As New Outlook.Application
@@ -470,6 +486,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 +508,7 @@ Public Class frmEssensbestellungenAdministration
EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
"
EndTextHTML &= "
"
- Mail.HTMLBody = "" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "
"
+ Mail.HTMLBody = "" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE", cAllgemein.FIRMA_ID, True, True) & "
"
Mail.Display()
Catch ex As Exception
@@ -540,6 +557,7 @@ Public Class frmEssensbestellungenAdministration
Exit Sub
End If
+
Select Case sender.Text
Case "Email"
@@ -567,6 +585,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 +678,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 +703,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
\ No newline at end of file
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 90c924f..7d3b4cf 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -547,7 +547,7 @@ Public Class frmHauptfenster
btnKassenbuch.Visible = True
End If
- If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "AVISO") Then
+ If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "SDL") Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE", "VERAG", "IMEX"
EssensbestellungenToolStripMenuItem.Visible = True
@@ -4330,7 +4330,7 @@ Public Class frmHauptfenster
End Sub
Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
- Dim f As New frmEssensbestellungen()
+ Dim f As New SDL.frmEssensbestellungen()
f.ShowDialog(Me)
End Sub