edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2025-03-04 10:12:43 +01:00
parent ab5c1a3bd8
commit 76bb2b2ad9
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -1100,6 +1100,8 @@ Public Class frmEssensbestellungenAdministration
dt_nichtBezahlteEB = dt_nichtBezahlteEB.Select("eb_abgerechnet = 0", "eb_mitid").CopyToDataTable
If dt_nichtBezahlteEB.Rows.Count = 0 Then MsgBox("Keine unbezahlten Essensbestellungen vorhanden!") : Exit Sub
If vbYes = MsgBox("Möchten Sie einen Reminder für die noch nicht bezahlten Essensbestellungen verschicken?" & vbNewLine & IIf(cboAbteilung._value Is "", "Alle Abteilungen", "Abteilung " & cboAbteilung._value) & " im Gebäude: " & cboGebaeude._value, vbYesNoCancel) Then
Dim displayView = New DataView(dt_nichtBezahlteEB, "", "eb_mitid", DataViewRowState.CurrentRows)
@@ -1109,11 +1111,15 @@ Public Class frmEssensbestellungenAdministration
Dim displayViewKW = New DataView(dt_nichtBezahlteEB, "", "eb_kw", DataViewRowState.CurrentRows)
Dim distinctDTKW As DataTable = displayView.ToTable(True, "eb_kw")
Dim count As Integer = 0
For Each kwRow In distinctDTKW.Rows
If kwRow("eb_kw").ToString.Length > 10 Then
kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6) & ", "
kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6) & IIf(count > 0, ", ", "")
count += 1
Else
kw &= kwRow("eb_kw").ToString
count += 1
End If
Next
@@ -1126,8 +1132,8 @@ Public Class frmEssensbestellungenAdministration
Dim mit As New cMitarbeiter(row("eb_mitid"))
dt_nichtBezahlteEB = dt_nichtBezahlteEB.Select("eb_abgerechnet = 0 and eb_mitid = " & row("eb_mitid")).CopyToDataTable
Dim result = dt_nichtBezahlteEB.Compute("SUM(eb_preis)", "")
Dim dt_nichtBezahlteEBSum As DataTable = dt_nichtBezahlteEB.Select("isnull(eb_abgerechnet,0) = 0 and eb_mitid = " & row("eb_mitid")).CopyToDataTable
Dim result = dt_nichtBezahlteEBSum.Compute("SUM(eb_preis)", "")
If result IsNot Nothing AndAlso IsNumeric(result) Then
result = CDbl(result)
@@ -1138,8 +1144,14 @@ Public Class frmEssensbestellungenAdministration
End If
Case Else
'aktuell per Mail, weil Benachrichtigungen noch umbauen wegen inner join!
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(-1, -1, 21, "B", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
If mit.mit_email <> "" AndAlso Not emailEmpf.Contains(mit.mit_email) Then
emailEmpf &= mit.mit_email & ";"
End If
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(-1, -1, 21, "B", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
End Select