cbam importer, sessions, mailsender, etc.

DAKOSY_Worker/cImporter_DHFToVERAG.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports com.sun.tools.doclets.internal.toolkit.resources
 Imports java.lang
 Imports TELOTEC_Worker
 Imports VERAG_PROG_ALLGEMEIN
@@ -147,7 +148,7 @@ Public Class cImporter_DHFToVERAG
             Dim dtItems = SQL.loadDgvBySql(
                 $"SELECT * FROM zsAnmGdsitem WHERE LizenzNr='{LizenzNr}' AND OperatorID={OperatorID} AND VorgangID='{VorgangID}' AND AnmID={AnmID} ORDER BY GdsItemID",
                 EZOLL_DB)
-
+            Dim hasValidCBAMDocNr_VERAG As Boolean = False
             For Each r In dtItems.Rows
                 Dim it As New cVERAG_CustomsDeclarations_Item
 
@@ -160,7 +161,7 @@ Public Class cImporter_DHFToVERAG
                 it.zaItem_StatisticalValueEUR = ToNullableDecimal(r("StatVal"))
 
                 LoadEZOLL_HSAddCodes(it, LizenzNr, OperatorID, VorgangID, AnmID, r("GdsItemID"))
-                LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID)
+                LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID, hasValidCBAMDocNr_VERAG)
 
                 it.zaItem_MainProcedure = ToStringSafe(r("ProcCd"))
                 it.zaItem_AdditionalProc = ToStringSafe(r("ProcAddCd"))
@@ -189,7 +190,7 @@ Public Class cImporter_DHFToVERAG
             'CBAM WARNING
             ' ================================================================
             If freshInsert Then
-                ZA.checkfreshCBAMWarning()
+                ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
             End If
 
             ' SAVE
@@ -282,7 +283,8 @@ Public Class cImporter_DHFToVERAG
                                       LizenzNr As String,
                                       OperatorID As Integer,
                                       VorgangID As String,
-                                      AnmID As Integer)
+                                      AnmID As Integer,
+                                      ByRef hasValidCBAMDocNr_VERAG As Boolean)
 
         Dim sql As String =
         "SELECT * FROM zsAnmGdsItemDocCerts " &
@@ -323,6 +325,11 @@ Public Class cImporter_DHFToVERAG
             doc.zaDoc_DepreciationUnitmeasurement = ToStringSafe(r("Unit"))
             doc.zaDoc_DepreciationUnitmeasurementQualifier = ToStringSafe(r("WOUnit"))
 
+            'CBAM-CHECK
+            If doc.zaDoc_Code = "Y128" And doc.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
+                hasValidCBAMDocNr_VERAG = True
+            End If
+
             IT.Documents.Add(doc)
         Next