From 119ff9973d8c9e30c5b2bc0fd7a44b351e163ca7 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 23 Oct 2026 10:07:13 +0200
Subject: [PATCH] cAutomailversand, etc.

---
 SDL/Fakturierung/cAutomailversand.vb           |  4 ++--
 SDL/seriendruck/usrCntlFakturierung.vb         | 18 +++++++++++++-----
 .../cVERAG_CustomsDeclarations.vb              |  2 +-
 VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb      |  4 ++++
 4 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb
index bbc88c3f..5f7377f5 100644
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -1376,7 +1376,7 @@ Public Class cAutomailversand
                 Next
             End If
 
-            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
+            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
                 API.UPDTAE_OK()
 
 
@@ -1732,7 +1732,7 @@ Public Class cAutomailversand
                 LoadZollAttachments(SPEDBUCH, SPEDBUCH.FilialenNr, FirmaID, False, attachList, Nothing, True)
 
                 Dim accountToSend = setAccountToSend(FirmaID)
-                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
 
                 ''-----------------------------------------------------------------
                 ''Steuerbescheid anfügen
diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb
index 6d7a45f7..50ca353b 100644
--- a/SDL/seriendruck/usrCntlFakturierung.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.vb
@@ -629,7 +629,7 @@ Public Class usrcntlFakturierung
 
                 If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then
 
-                    If Not cbxFixeTaxe.Checked OrElse r("BetragExclusivFT") < 500 Then
+                    If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then
                         intZlr = r("AnzahlFT") - 1
                     Else
                         intZlr = r("AnzahlFT")
@@ -637,16 +637,24 @@ Public Class usrcntlFakturierung
 
                 Else
 
-                    If Not cbxFixeTaxe.Checked OrElse (0 - r("BetragExclusivFT")) < 500 Then
-                        intZlr = r("AnzahlFT") - 1
+                    If cbxFixeTaxe.Checked Then
+
+                        If (0 - r("BetragExclusivFT")) < 500 Then
+                            intZlr = r("AnzahlFT") - 1
+                        Else
+                            intZlr = r("AnzahlFT") - 1
+                        End If
+
                     Else
-                        intZlr = r("AnzahlFT") - 1
+
+                        intZlr = r("AnzahlFT")
+
                     End If
 
                 End If
 
 
-                If intZlr > 0 Then
+                    If intZlr > 0 Then
 
 
                     Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
index a53aafed..64b02e95 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
@@ -824,7 +824,7 @@ Public Class cVERAG_CustomsDeclarations
         Dim bis As Date
         Dim CBAMZertifikatKosten As Double = 0
 
-        If CountryOfOrigin = "" Then Return False
+        'If CountryOfOrigin = "" Then Return False
 
         Select Case cbamQquarter
             Case "1"
diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index ec3bb089..fbd0a0a7 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -897,6 +897,10 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             Select Case art
                 Case "3", "4" 'Export
                     sqlWHere = " AND mail_kindOfMail = 'EXP'"
+
+                Case "5" 'Buchhaltung
+                    sqlWHere = " AND mail_kindOfMail = 'BH'"
+
                 Case Else
                     sqlWHere = " AND mail_kindOfMail = 'IMP'"
             End Select