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

dakosy, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-06-10 08:16:40 +02:00
parent 14fd7c2f69
commit 67965acfea
8 changed files with 245 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
MailSender/MAILSender.vb
View File

@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = "BRG_AUSWERTUNG_STANDARD"
'PARAM = "TETRAPAK"
'------------------------------------------------------------------------------------
@@ -3867,7 +3867,7 @@ Module Mail
order by ImporterEORI, importdate"
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr, 300)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPAK_DE_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
@@ -3909,7 +3909,7 @@ Module Mail
order by ImportDate,(SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID ))"
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL")
Dim dt As DataTable = sql.loadDgvBySql(sqlstr, "EZOLL", 300)
System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count)
Dim excelBez = "TETRAPAK_AT_" & von.ToShortDateString.Replace(".", "-") & "_to_ " & bis.ToShortDateString.Replace(".", "-")
genExcel(dt, excelBez, "TETRAPAK")