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

div Änderungen (Mailsender, MDM-Einarbeitung, USTVA, Aufschubkonen,etc.)

Browse Source
This commit is contained in:
d.breimaier
2026-10-06 10:19:35 +02:00
parent c174cd55c7
commit c22a536646
2 changed files with 86 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
MailSender/MAILSender.vb
View File

@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = ""
'PARAM = "KANADEVIA_DETAIL"
'------------------------------------------------------------------------------------
@@ -278,21 +278,25 @@ Module Mail
Case "KANADEVIA_DETAIL"
Dim von = CDate("01.01." & Now.Year)
Dim bis As Date = New Date(Now.Year, Now.Month, 1).AddDays(-1)
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"
Dim mailToBCC = "ml@verag.ag;al@verag.ag"
'mailToBCC = "d.breimaier@verag.ag;"
'mailTo = "d.breimaier@verag.ag;"
'mailToBCC = "d.breimaier@verag.ag"
'mailTo = "d.breimaier@verag.ag"
Dim ListOfKdNr As New List(Of Integer)
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
"<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"
ListOfKdNr.Add(770931)
ListOfKdNr.Add(772819)
@@ -301,6 +305,13 @@ Module Mail
For Each kdNr As Integer In ListOfKdNr
Dim Adr As New cAdressen(kdNr)
Dim Body As String = "Please find attached the reports on customs declarations 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.cSpeditionsbuchReport
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
@@ -311,13 +322,18 @@ Module Mail
Next
Case "KANADEVIA_GENERAL"
Dim von = CDate("01.01." & Now.Year)
Dim bis As Date = New Date(Now.Year, Now.Month, 1).AddDays(-1)
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;"
Dim mailToBCC = "ml@verag.ag;al@verag.ag;"
@@ -327,10 +343,6 @@ Module Mail
Dim ListOfKdNr As New List(Of Integer)
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
"<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"
ListOfKdNr.Add(770931)
@@ -340,6 +352,15 @@ Module Mail
For Each kdNr As Integer In ListOfKdNr
Dim Adr As New cAdressen(kdNr)
Dim Body As String = "Please find attached the reports on customs declarations 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.cSpeditionsbuchReport
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
@@ -1118,6 +1139,8 @@ Module Mail
Body = replaceBodyVariable(Body, von, bis)
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 0 Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 1
Dim anhenge As New List(Of String)
anhenge.Add(excel)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body, getAbsenderEmail(),, False, cc, bcc, anhenge) Then