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

CBAM/VERAG Zollanmeldungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:01:43 +01:00
parent 11bc5bfa95
commit a8504ac3a2
10 changed files with 158 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
MailSender/MAILSender.vb
View File

@@ -50,7 +50,7 @@ Module Mail
'Exit Sub
'PARAM = "ZF_QUARTER"
' PARAM = "TETRAPAK_OKT"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
' PARAM = "UID_OPS_SYSKA_ABGLEICH"
@@ -472,6 +472,23 @@ Module Mail
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
End If
'Case "TETRAPAK_OKT" 'umgebaut auf neue Mailsender-Logik
' Dim von = CDate("01.10.2025")
' Dim bis = CDate("31.10.2025")
' If dtParam.Rows.Count = 1 Then
' System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
' System.Console.WriteLine("Auswertung Details gestartet...")
' If SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "DE", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) AndAlso SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "AT", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
' System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
' End If
' Else
' System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
' System.Console.WriteLine("Auswertung Details gestartet...")
' If SendEmail_Tetrapak("Maria.mendez@tetrapak.com; Andrea.Ronceria@tetrapak.com; nikhil.mediratta@tetrapak.com", von, bis, "DE") AndAlso SendEmail_Tetrapak("Maria.mendez@tetrapak.com;Andrea.Ronceria@tetrapak.com;nikhil.mediratta@tetrapak.com", von, bis, "AT") Then
' System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
' End If
' End If
Case "Imex_Kunden_keine_Abfertigung" 'umgebaut auf neue Mailsender-Logik
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)