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

cbam importer, sessions, mailsender, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-11-09 14:52:32 +01:00
parent 77b757b031
commit dd1986a0ef
7 changed files with 172 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
MailSender/MAILSender.vb
View File

@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = "KANADEVIA_DETAIL"
'PARAM = "KANADEVIA_INVOICE_REPORT"
'------------------------------------------------------------------------------------
@@ -226,7 +226,7 @@ Module Mail
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Else
System.Console.WriteLine("OPTION erkannt: THYSSENKRUPP_AUSWERTUNG _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für THYSSENKRUPP.")
System.Console.WriteLine("OPTION erkannt: THYSSENKRUPP_AUSWERTUNG _ Erstellt eine monatliche Auswertung der DAKSOY-Abfertigungen für THYSSENKRUPP.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_THYSSENKRUPP_AUSWERTUNG("al@verag.ag", EORI, von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
@@ -370,6 +370,53 @@ Module Mail
Next
Case "KANADEVIA_INVOICE_REPORT"
Dim von As Date
Dim bis As Date
If Now.Month = 1 Then
von = New Date(Now.Year - 1, 1, 1)
bis = New Date(Now.Year - 1, 12, 31)
Else
von = New Date(Now.Year, 1, 1)
bis = New Date(Now.Year, Now.Month, 1).AddDays(-1)
End If
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com;Cansu.Buldum@kanadevia-inova.com;Koray.Genis@kanadevia-inova.com"
Dim mailToBCC = "ml@verag.ag;al@verag.ag;"
'mailToBCC = "d.breimaier@verag.ag;"
'mailTo = "d.breimaier@verag.ag;"
Dim ListOfKdNr As New List(Of Integer)
ListOfKdNr.Add(770931)
ListOfKdNr.Add(772819)
ListOfKdNr.Add(773157)
ListOfKdNr.Add(773143)
For Each kdNr As Integer In ListOfKdNr
Dim Adr As New cAdressen(kdNr)
Dim Body As String = "Please find attached the cost report for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & " from " & Adr.Name_1 & " (Customer-No.: " & Adr.AdressenNr & ") " &
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
"<br><br>VERAG SPEDITION AG"
Dim RPT As New VERAG_PROG_ALLGEMEIN.cInvoiceReport
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_INVOICE(kdNr, von, bis), von, bis,, mailToBCC, PARAM, Body) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Next