From cb47be2ee1779401ea52521b437eb97028a54383 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 15 Oct 2025 09:58:11 +0200
Subject: [PATCH] Abrechnungsmaske, Mailsender

---
 MailSender/MAILSender.vb | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb
index af45b9f..685053a 100644
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -50,7 +50,7 @@ Module Mail
             'Exit Sub
 
 
-            'PARAM = "UID_OPS_SYSKA_ABGLEICH"
+            'PARAM = "ZF_QUARTER"
             'PARAM = "JAHRESABRECHNUNG AG-ZS"
             ' PARAM = "UID_OPS_SYSKA_ABGLEICH"
 
@@ -331,10 +331,18 @@ Module Mail
 
                     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)
-                        Dim bis = CDate(von.AddMonths(3).AddDays(-1))
+                        If quartal = 1 Then
+                            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------------
@@ -949,6 +957,7 @@ Module Mail
                 If Subject = "" Then
                     Select Case KdNr
                         Case "764755" : Subject = "Auswertungen Zollanmeldungen ZF STEYR "
+                        Case "714869" : Subject = "Auswertungen Zollanmeldungen ZF PASSAU "
                         Case Else : Subject = "Auswertungen Zollanmeldungen ZF Friedrichshafen AG "
 
                     End Select
@@ -957,9 +966,14 @@ Module Mail
                     Subject = replaceBodyVariable(Subject, von, bis)
                 End If
 
+                Dim Typ As String = "Auswertung"
+                Select Case Auswertungstyp
+                    Case "monthly" : Typ = "monatliche Auswertungen"
+                    Case "quarter" : Typ = "Quartalsauswertung"
+                End Select
 
                 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><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
                      "<br><br>VERAG SPEDITION AG"
@@ -2458,7 +2472,7 @@ Module Mail
 
                                     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("B" & cnt).Value = r("Abfertigungsdatum")
@@ -2499,7 +2513,7 @@ Module Mail
 
                                 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("B" & cnt).Value = r("Abfertigungsdatum")