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
 

DAKOSY_Worker/cImporter_DakosyToVERAG.vb

@@ -214,6 +214,7 @@ Public Class cImporter_DakosyToVERAG
                 Next
             End If
 
+            Dim hasValidCBAMDocNr_VERAG As Boolean = False
             ' ================================================================
             ' POSITIONEN + POSITIONS-UNTERLAGEN
             ' ================================================================
@@ -290,7 +291,10 @@ Public Class cImporter_DakosyToVERAG
                             doc.zaDoc_DepreciationUnitmeasurement = ul.ezaWpUl_AbschreibungsMengeMasseinheit
                             doc.zaDoc_DepreciationUnitmeasurementQualifier = ul.ezaWpUl_AbschreibungsMengeMasseinheitQualifier
 
-
+                            'CBAM-CHECK
+                            If doc.zaDoc_Code = "Y128" And doc.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
+                                hasValidCBAMDocNr_VERAG = True
+                            End If
 
                             item.Documents.Add(doc)
                         Next
@@ -333,7 +337,7 @@ Public Class cImporter_DakosyToVERAG
             'CBAM WARNING
             ' ================================================================
             If freshInsert Then
-                ZA.checkfreshCBAMWarning()
+                ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
             End If
             ' ================================================================
 

DAKOSY_Worker/cImporter_TelotecToVERAG.vb

@@ -103,6 +103,8 @@ Public Class cImporter_TelotecToVERAG
             AddParty(ZA, "EXPORTER", tel.ExpTra_TIN, tel.ExpTra_Na, tel.ExpTra_Strt, tel.ExpTra_Pst, tel.ExpTra_Cty, tel.ExpTra_Ctry, tel.ExpTra_UID)
             AddParty(ZA, "DECLARANT", tel.Declarant_TIN, tel.Declarant_Na, tel.Declarant_Strt, tel.Declarant_Pst, tel.Declarant_Cty, tel.Declarant_Ctry, tel.Declarant_UID)
 
+            Dim hasValidCBAMDocNr_VERAG As Boolean = False
+
             ' ================================================================
             ' ABGABEN (HEADER)
             ' ================================================================
@@ -181,6 +183,12 @@ Public Class cImporter_TelotecToVERAG
                                 .zaDoc_Date = Doc_Date
                             }
                             it.Documents.Add(dd)
+
+                            'CBAM-CHECK
+                            If dd.zaDoc_Code = "Y128" And dd.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
+                                hasValidCBAMDocNr_VERAG = True
+                            End If
+
                         Catch ex As Exception
                             cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
                         End Try
@@ -196,7 +204,7 @@ Public Class cImporter_TelotecToVERAG
             'CBAM WARNING
             ' ================================================================
             If freshinsert Then
-                ZA.checkfreshCBAMWarning()
+                ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
             End If
             ' ================================================================
             ' ================================================================