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

Abrechnungsmaske, Mailsender

Browse Source
This commit is contained in:
d.breimaier
2025-10-15 09:58:11 +02:00
parent 7b27080152
commit cb47be2ee1
1 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
MailSender/MAILSender.vb
View File

@@ -50,7 +50,7 @@ Module Mail
'Exit Sub 'Exit Sub
'PARAM = "UID_OPS_SYSKA_ABGLEICH" 'PARAM = "ZF_QUARTER"
'PARAM = "JAHRESABRECHNUNG AG-ZS" 'PARAM = "JAHRESABRECHNUNG AG-ZS"
' PARAM = "UID_OPS_SYSKA_ABGLEICH" ' PARAM = "UID_OPS_SYSKA_ABGLEICH"
@@ -331,10 +331,18 @@ Module Mail
Case "ZF_QUARTER" 'umgebaut auf neue Mailsender-Logik Case "ZF_QUARTER" 'umgebaut auf neue Mailsender-Logik
Dim quartal As Integer = ((Now.Month - 1) \ 3) Dim quartal As Integer = ((Now.Month - 1) \ 3) + 1
Dim jahr As Integer = Now.Year
Dim von = CDate("01." & (quartal - 1) * 3 + 1 & "." & Now.Year) If quartal = 1 Then
Dim bis = CDate(von.AddMonths(3).AddDays(-1)) quartal = 4
jahr -= 1
Else
quartal -= 1
End If
Dim von As Date = New Date(jahr, (quartal - 1) * 3 + 1, 1)
Dim bis As Date = von.AddMonths(3).AddDays(-1)
'--------ZF STEYR------------ '--------ZF STEYR------------
@@ -949,6 +957,7 @@ Module Mail
If Subject = "" Then If Subject = "" Then
Select Case KdNr Select Case KdNr
Case "764755" : Subject = "Auswertungen Zollanmeldungen ZF STEYR " Case "764755" : Subject = "Auswertungen Zollanmeldungen ZF STEYR "
Case "714869" : Subject = "Auswertungen Zollanmeldungen ZF PASSAU "
Case Else : Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG " Case Else : Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG "
End Select End Select
@@ -957,9 +966,14 @@ Module Mail
Subject = replaceBodyVariable(Subject, von, bis) Subject = replaceBodyVariable(Subject, von, bis)
End If End If
Dim Typ As String = "Auswertung"
Select Case Auswertungstyp
Case "monthly" : Typ = "monatliche Auswertungen"
Case "quarter" : Typ = "Quartalsauswertung"
End Select
If Body = "" Then If Body = "" Then
Body = "Anbei befinden sich die Auswertungen Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." & Body = "Anbei befinden sich die " & Typ & " der Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." &
"<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString & "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
"<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." & "<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
"<br><br>VERAG SPEDITION AG" "<br><br>VERAG SPEDITION AG"
@@ -2458,7 +2472,7 @@ Module Mail
For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100 Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
Blatt.Range("A" & cnt).Value = cnt - 1 Blatt.Range("A" & cnt).Value = cnt - 1
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
@@ -2499,7 +2513,7 @@ Module Mail
Else Else
Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100 Dim ZollInProzent As Double = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
Blatt.Range("A" & cnt).Value = cnt - 1 Blatt.Range("A" & cnt).Value = cnt - 1
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")