cAutomailversand, etc.

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"

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