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

Prozeduren, Mailsender, MSE-Automatik

Browse Source
This commit is contained in:
d.breimaier
2024-10-18 09:50:30 +02:00
parent 3950f2f100
commit ad16598414
13 changed files with 1158 additions and 1870 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
MailSender/MAILSender.vb
View File

@@ -2380,7 +2380,7 @@ Module Mail
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & von.ToShortDateString.Replace(".", "-")
Dim excelBez = "TETRAPACK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK")
Return sPath & excelBez & ".xlsx"
@@ -2421,7 +2421,7 @@ Module Mail
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL")
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPACK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & von.ToShortDateString.Replace(".", "-")
Dim excelBez = "TETRAPACK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPACK")
Return sPath & excelBez & ".xlsx"