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

Formulare, Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2025-02-25 14:02:23 +01:00
parent d0e3e811e5
commit aecfcaffe0
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -6586,6 +6586,8 @@ Public Class FormularManagerNEU
If embeddedFiles IsNot Nothing Then
Dim filespecs As PdfArray = embeddedFiles.GetAsArray(PdfName.NAMES)
If filespecs Is Nothing Then Return False
For i As Integer = 0 To filespecs.Size - 1 Step 2
' Get the attachment's file specification
Dim fileArray As PdfDictionary = filespecs.GetAsDict(i + 1)

12
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -562,7 +562,7 @@ Public Class frmEssensbestellungenAdministration
If isReminder Then
Mail.Subject = "Essensgeld für "
DETextHTML &= "Bitte zahlt diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & ".<br>"
DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br>"
Else
Mail.Subject = "Essensbestellung: "
DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
@@ -1111,7 +1111,7 @@ Public Class frmEssensbestellungenAdministration
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) & ", "
Else
kw &= kwRow("eb_kw").ToString
End If
@@ -1122,7 +1122,7 @@ Public Class frmEssensbestellungenAdministration
For Each row As DataRow In distinctDT.Rows
If row("eb_mitid") = 678 Then 'chef, chefin row("eb_mitid") <> 144 AndAlso row("eb_mitid") <> 267
If row("eb_mitid") <> 144 AndAlso row("eb_mitid") <> 267 Then 'chef, chefin
Dim mit As New cMitarbeiter(row("eb_mitid"))
@@ -1130,7 +1130,7 @@ Public Class frmEssensbestellungenAdministration
Dim result = dt_nichtBezahlteEB.Compute("SUM(eb_preis)", "")
If result IsNot Nothing AndAlso IsNumeric(result) Then
result = CDbl(result)
Select Case mit.mit_abteilung
Case "MDM" ' -> per Mail weil SDL keine Benachrichtigungen:
If mit.mit_email <> "" Then
@@ -1139,7 +1139,7 @@ Public Class frmEssensbestellungenAdministration
Case Else
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Nothing, Nothing, 21, "", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
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
@@ -1155,7 +1155,7 @@ Public Class frmEssensbestellungenAdministration
If emailEmpf <> "" Then
generateEmail(emailEmpf, kw, cboGebaeude._value, "")
generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, "", True)
End If