CBAM/VERAG Zollanmeldungen

2026-01-13 10:01:43 +01:00
parent 11bc5bfa95
commit a8504ac3a2
10 changed files with 158 additions and 77 deletions
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
@@ -431,6 +431,18 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
        End Try
        Return LOADByAnmID
    End Function
+    Sub loadAll()
+
+        Me.LOAD_Unterlagen()
+        Me.LOAD_Warenposition()
+
+        Me.LOAD_Adressen()
+        Me.LOAD_Aufschub()
+        Me.LOAD_BEAnteilZLAVUV()
+        Me.LOAD_SumABeendigungsAnteil()
+
+
+    End Sub
    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA
        Try
            Dim EZA As New cDakosyEZA
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
@@ -208,6 +208,30 @@ Public Class cDakosyEZA_Greenpulse
        Return dest
    End Function

+    Public Shared Sub INSERT_KAFKA(za As cVERAG_CustomsDeclarations)
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS Is Nothing Then
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS = New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+            End If
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CBAM_INSERT_KAFKA") Then
+                Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe_FromVERAG_CustomsDec(za, za.za_MRN)
+                Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(za)
+                Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync_Bool(rec, key, 30000)
+                'Unlerlagen
+                If za.za_SendungsId IsNot Nothing AndAlso za.za_SendungsId > 0 Then
+                    Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(za.za_SendungsId)
+                    Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000)
+                End If
+            End If
+
+        Catch ex As Exception
+            Try
+                cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & za.za_MRN, Reflection.MethodInfo.GetCurrentMethod.Name)
+            Catch ex2 As Exception
+                cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Try
+    End Sub
    Public Shared Function BuildByMrn(za As cVERAG_CustomsDeclarations) As cATEZ_Greenpulse_KafkaDecs
        If za Is Nothing Then Throw New ArgumentNullException(NameOf(za))

--- a/DAKOSY_Worker/cImporter_DHFToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_DHFToVERAG.vb
@@ -13,7 +13,7 @@ Public Class cImporter_DHFToVERAG
    ' =====================================================================
    ' MAIN ENTRY
    ' =====================================================================
-    Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean
+    Public Function ImportEZOLLByLRN(CRN As String, EZOLL_DB As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
        Try
            If String.IsNullOrWhiteSpace(CRN) Then Return False

@@ -192,10 +192,12 @@ Public Class cImporter_DHFToVERAG
                ZA.checkfreshCBAMWarning()
            End If

-            ' ---------------------------------------------------------------
            ' SAVE
-            ' ---------------------------------------------------------------
-            Return ZA.SAVE()
+            Dim saved = ZA.SAVE()
+            ' ======KAFKA==========================================================
+            If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
+            ' ================================================================
+            Return saved

        Catch ex As Exception
            cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
--- a/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_DakosyToVERAG.vb
@@ -34,92 +34,92 @@ Public Class cImporter_DakosyToVERAG
            ' ================================================================
            ' HEADER
            ' ================================================================
-            Dim VERAG_ZA As cVERAG_CustomsDeclarations
+            Dim ZA As cVERAG_CustomsDeclarations
            If If(eza.eza_MRN, If(eza.eza_ANR, "")) = "" Then
-                VERAG_ZA = New cVERAG_CustomsDeclarations
+                ZA = New cVERAG_CustomsDeclarations
            Else
-                VERAG_ZA = cVERAG_CustomsDeclarations.loadByMRN(If(eza.eza_MRN, If(eza.eza_ANR, "")), False)
+                ZA = cVERAG_CustomsDeclarations.loadByMRN(If(eza.eza_MRN, If(eza.eza_ANR, "")), False)
            End If

-            VERAG_ZA.za_System = "DAKOSY"
-            VERAG_ZA.za_CustomsSystem = "ATLAS"
-            VERAG_ZA.za_REGIME = "IMPORT"
-            VERAG_ZA.za_CustomsSystemCountry = "DE"
-            VERAG_ZA.za_IsExternalSystem = False
-            VERAG_ZA.za_IsFinalDeclaration = True
+            ZA.za_System = "DAKOSY"
+            ZA.za_CustomsSystem = "ATLAS"
+            ZA.za_REGIME = "IMPORT"
+            ZA.za_CustomsSystemCountry = "DE"
+            ZA.za_IsExternalSystem = False
+            ZA.za_IsFinalDeclaration = True

-            VERAG_ZA.za_Firma = eza.eza_firma
-            VERAG_ZA.za_Niederlassung = eza.eza_niederlassung
+            ZA.za_Firma = eza.eza_firma
+            ZA.za_Niederlassung = eza.eza_niederlassung


-            VERAG_ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR)
-            VERAG_ZA.za_LRN = eza.eza_ObjectName
+            ZA.za_MRN = If(eza.eza_MRN, eza.eza_ANR)
+            ZA.za_LRN = eza.eza_ObjectName

-            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(VERAG_ZA.za_Firma, VERAG_ZA.za_Niederlassung, "", VERAG_ZA.za_LRN)
-            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(VERAG_ZA.za_LRN, VERAG_ZA.za_AvisoId, VERAG_ZA.za_SendungsId)
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetFirmaNiederlassung(ZA.za_Firma, ZA.za_Niederlassung, "", ZA.za_LRN)
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.tryGetAvisoId_SndId_ByLRN(ZA.za_LRN, ZA.za_AvisoId, ZA.za_SendungsId)

            Dim DY = cDakosy_Zollanmeldungen.LOADById(eza.eza_dyaAnmID)
            If DY IsNot Nothing Then
-                If VERAG_ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then VERAG_ZA.za_AvisoId = DY.dy_AvisoId
-                If VERAG_ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then VERAG_ZA.za_SendungsId = DY.dy_SendungsId
+                If ZA.za_AvisoId Is Nothing AndAlso DY.dy_AvisoId IsNot Nothing Then ZA.za_AvisoId = DY.dy_AvisoId
+                If ZA.za_SendungsId Is Nothing AndAlso DY.dy_SendungsId IsNot Nothing Then ZA.za_SendungsId = DY.dy_SendungsId
            End If


            If eza.eza_Anmeldedatum IsNot Nothing AndAlso eza.eza_Anmeldedatum.ToString <> "" Then
-                VERAG_ZA.za_DeclarationDate = CDate(eza.eza_Anmeldedatum)
-                VERAG_ZA.za_ReleaseDate = CDate(eza.eza_Anmeldedatum)
+                ZA.za_DeclarationDate = CDate(eza.eza_Anmeldedatum)
+                ZA.za_ReleaseDate = CDate(eza.eza_Anmeldedatum)
            Else

                Dim dateumRelease As String = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(dySt_DakosyTransaktionsDatum,'')", "[tblDakosy_Statusmeldungen]", " dySt_status = 60 And dySt_dyId = '" & eza.eza_dyaAnmID & "' Order By [dySt_DakosyTransaktionsDatum] desc", "FMZOLL",)
                If dateumRelease <> "" AndAlso IsDate(dateumRelease) Then
-                    VERAG_ZA.za_DeclarationDate = CDate(dateumRelease)
-                    VERAG_ZA.za_ReleaseDate = CDate(dateumRelease)
+                    ZA.za_DeclarationDate = CDate(dateumRelease)
+                    ZA.za_ReleaseDate = CDate(dateumRelease)
                Else
-                    VERAG_ZA.za_DeclarationDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
-                    VERAG_ZA.za_ReleaseDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
+                    ZA.za_DeclarationDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
+                    ZA.za_ReleaseDate = ToNullableDate(If(eza.eza_Anmeldedatum, eza.eza_LetzteBearbeitung))
                End If
            End If

-            VERAG_ZA.za_MainProcedure = eza.eza_VerfahrenBeantragtCode
-            VERAG_ZA.za_RepresentationCode = eza.eza_VertretungsVerhaeltnisCode
-            VERAG_ZA.za_FiscalRepFlag = ToNullableBool(eza.eza_FiskalvertretungKz)
-            VERAG_ZA.za_ApplicantVATNo = ToStringSafe(eza.eza_UstIdAnmelder)
-            VERAG_ZA.za_ApplicantTaxOffice = ToStringSafe(eza.eza_FinanzamtAnmelder)
-            VERAG_ZA.za_TaxDeduction = ToNullableBool(eza.eza_Vorsteuerabzug)
+            ZA.za_MainProcedure = eza.eza_VerfahrenBeantragtCode
+            ZA.za_RepresentationCode = eza.eza_VertretungsVerhaeltnisCode
+            ZA.za_FiscalRepFlag = ToNullableBool(eza.eza_FiskalvertretungKz)
+            ZA.za_ApplicantVATNo = ToStringSafe(eza.eza_UstIdAnmelder)
+            ZA.za_ApplicantTaxOffice = ToStringSafe(eza.eza_FinanzamtAnmelder)
+            ZA.za_TaxDeduction = ToNullableBool(eza.eza_Vorsteuerabzug)

-            VERAG_ZA.za_CountryDispatch = eza.eza_VersendungsLandCode
-            VERAG_ZA.za_CountryDestination = eza.eza_Bestimmungsland
-            VERAG_ZA.za_CountryDestinationState = eza.eza_Bestimmungsbundesland
+            ZA.za_CountryDispatch = eza.eza_VersendungsLandCode
+            ZA.za_CountryDestination = eza.eza_Bestimmungsland
+            ZA.za_CountryDestinationState = eza.eza_Bestimmungsbundesland

-            VERAG_ZA.za_ContainerNr1 = eza.eza_ContainerNr1
-            VERAG_ZA.za_ContainerNr2 = eza.eza_ContainerNr2
-            VERAG_ZA.za_ContainerNr3 = eza.eza_ContainerNr3
-            VERAG_ZA.za_ContainerNr4 = eza.eza_ContainerNr4
-            VERAG_ZA.za_ContainerNr5 = eza.eza_ContainerNr5
-            VERAG_ZA.za_ContainerNr6 = eza.eza_ContainerNr6
-            VERAG_ZA.za_ContainerNr7 = eza.eza_ContainerNr7
-            VERAG_ZA.za_ContainerNr8 = eza.eza_ContainerNr8
-            VERAG_ZA.za_ContainerNr9 = eza.eza_ContainerNr9
+            ZA.za_ContainerNr1 = eza.eza_ContainerNr1
+            ZA.za_ContainerNr2 = eza.eza_ContainerNr2
+            ZA.za_ContainerNr3 = eza.eza_ContainerNr3
+            ZA.za_ContainerNr4 = eza.eza_ContainerNr4
+            ZA.za_ContainerNr5 = eza.eza_ContainerNr5
+            ZA.za_ContainerNr6 = eza.eza_ContainerNr6
+            ZA.za_ContainerNr7 = eza.eza_ContainerNr7
+            ZA.za_ContainerNr8 = eza.eza_ContainerNr8
+            ZA.za_ContainerNr9 = eza.eza_ContainerNr9

-            VERAG_ZA.za_MeansOfTransport_Vehicle = eza.eza_KennzeichenNameBefoerderungsmittelAnkunft
-            VERAG_ZA.za_MeansOfTransport_Nationality = eza.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode
-            VERAG_ZA.za_MeansOfTransport_Type = eza.eza_BeförderungsmittelGrenzeArt
-            VERAG_ZA.za_CountryImport = "DE"
-            VERAG_ZA.za_WarehouseCode = eza.eza_Warenort
-            VERAG_ZA.za_InvoiceAmount = eza.eza_Rechnungspreis
-            VERAG_ZA.za_InvoiceCurrency = eza.eza_Rechnungswaehrung
-            VERAG_ZA.za_DV1Flag = ToNullableBool(eza.eza_DV1Kz)
-            VERAG_ZA.za_PrevDocument_No = eza.eza_VorpapierNr
-            VERAG_ZA.za_PrevDocument_Type = eza.eza_VorpapierArtCode
+            ZA.za_MeansOfTransport_Vehicle = eza.eza_KennzeichenNameBefoerderungsmittelAnkunft
+            ZA.za_MeansOfTransport_Nationality = eza.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode
+            ZA.za_MeansOfTransport_Type = eza.eza_BeförderungsmittelGrenzeArt
+            ZA.za_CountryImport = "DE"
+            ZA.za_WarehouseCode = eza.eza_Warenort
+            ZA.za_InvoiceAmount = eza.eza_Rechnungspreis
+            ZA.za_InvoiceCurrency = eza.eza_Rechnungswaehrung
+            ZA.za_DV1Flag = ToNullableBool(eza.eza_DV1Kz)
+            ZA.za_PrevDocument_No = eza.eza_VorpapierNr
+            ZA.za_PrevDocument_Type = eza.eza_VorpapierArtCode

-            VERAG_ZA.za_Incoterms = eza.eza_LieferbedingungCode
-            VERAG_ZA.za_IncotermsPlace = eza.eza_LieferbedingungOrt
+            ZA.za_Incoterms = eza.eza_LieferbedingungCode
+            ZA.za_IncotermsPlace = eza.eza_LieferbedingungOrt

-            VERAG_ZA.za_Sachbearbeiter = eza.eza_AnmeldenderBearbeiterName
-            VERAG_ZA.za_TotGrossMass = ToNullableDecimal(eza.eza_GesamtRohmasse)
+            ZA.za_Sachbearbeiter = eza.eza_AnmeldenderBearbeiterName
+            ZA.za_TotGrossMass = ToNullableDecimal(eza.eza_GesamtRohmasse)


-            VERAG_ZA.za_TransportModeBorder = ToStringSafe(eza.eza_VerkehrszweigGrenze)
+            ZA.za_TransportModeBorder = ToStringSafe(eza.eza_VerkehrszweigGrenze)

            ' ================================================================
            ' ADRESSEN 
@@ -160,7 +160,7 @@ Public Class cImporter_DakosyToVERAG
                    End If


-                    VERAG_ZA.Parties.Add(party)
+                    ZA.Parties.Add(party)
                Next
            End If

@@ -185,7 +185,7 @@ Public Class cImporter_DakosyToVERAG
                    duty.zaDuty_Currency = "EUR"
                    duty.zaDuty_LimitDate = ToNullableDate(d.ezaAfb_Faelligkeit)

-                    VERAG_ZA.Duties.Add(duty)
+                    ZA.Duties.Add(duty)
                Next
            End If

@@ -205,7 +205,7 @@ Public Class cImporter_DakosyToVERAG



-                    VERAG_ZA.Documents.Add(doc)
+                    ZA.Documents.Add(doc)
                Next
            End If

@@ -285,7 +285,7 @@ Public Class cImporter_DakosyToVERAG
                        Next
                    End If

-                    VERAG_ZA.Items.Add(item)
+                    ZA.Items.Add(item)
                Next
            End If

@@ -293,16 +293,16 @@ Public Class cImporter_DakosyToVERAG
            'CBAM WARNING
            ' ================================================================
            If freshInsert Then
-                VERAG_ZA.checkfreshCBAMWarning()
+                ZA.checkfreshCBAMWarning()
            End If
            ' ================================================================

-
-            ' ================================================================
            ' SAVE
+            Dim saved = ZA.SAVE()
+            ' ======KAFKA==========================================================
+            If freshInsert Then cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
            ' ================================================================
-
-            Return VERAG_ZA.SAVE()
+            Return saved


        Catch ex As Exception
--- a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb
@@ -11,7 +11,7 @@ Public Class cImporter_TelotecToVERAG
    ' =====================================================================
    ' MAIN ENTRY
    ' =====================================================================
-    Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean
+    Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean

        If CRN Is Nothing Then Return False
        If CRN = "" Then Return False
@@ -22,7 +22,7 @@ Public Class cImporter_TelotecToVERAG
        Return False
    End Function

-    Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = True) As Boolean
+    Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = False) As Boolean
        Try
            If tel Is Nothing Then Return False
            If String.IsNullOrWhiteSpace(ToStringSafe(tel.Refs_LRN)) AndAlso
@@ -187,8 +187,11 @@ Public Class cImporter_TelotecToVERAG
            ' ================================================================
            ' ================================================================
            ' SAVE
+            Dim saved = ZA.SAVE()
+            ' ======KAFKA==========================================================
+            cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
            ' ================================================================
-            Return ZA.SAVE()
+            Return saved

        Catch ex As Exception
            cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -50,7 +50,7 @@ Module Mail
            'Exit Sub


-            'PARAM = "ZF_QUARTER"
+            ' PARAM = "TETRAPAK_OKT"
            'PARAM = "JAHRESABRECHNUNG AG-ZS"
            ' PARAM = "UID_OPS_SYSKA_ABGLEICH"

@@ -472,6 +472,23 @@ Module Mail
                                System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
                            End If
                        End If
+                    'Case "TETRAPAK_OKT" 'umgebaut auf neue Mailsender-Logik
+                    '    Dim von = CDate("01.10.2025")
+                    '    Dim bis = CDate("31.10.2025")
+                    '    If dtParam.Rows.Count = 1 Then
+                    '        System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
+                    '        System.Console.WriteLine("Auswertung Details gestartet...")
+                    '        If SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "DE", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) AndAlso SendEmail_Tetrapak(dtParam.Rows(0).Item("ms_an"), von, bis, "AT", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
+                    '            System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                    '        End If
+                    '    Else
+                    '        System.Console.WriteLine("OPTION erkannt: TETRA_PAK _ Erstellt eine monatliche Auswertung der DAKSOY/EZOLL-Abfertigungen für TETRAPAK.")
+                    '        System.Console.WriteLine("Auswertung Details gestartet...")
+
+                    '        If SendEmail_Tetrapak("Maria.mendez@tetrapak.com; Andrea.Ronceria@tetrapak.com; nikhil.mediratta@tetrapak.com", von, bis, "DE") AndAlso SendEmail_Tetrapak("Maria.mendez@tetrapak.com;Andrea.Ronceria@tetrapak.com;nikhil.mediratta@tetrapak.com", von, bis, "AT") Then
+                    '            System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                    '        End If
+                    '    End If

                    Case "Imex_Kunden_keine_Abfertigung" 'umgebaut auf neue Mailsender-Logik
                        Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -9120,6 +9120,7 @@ Public Class frmDYNachrichtenVerarbeitung
                Else
                    EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
                End If
+                EZA_TMP.loadAll()

                'Anmlededatum setzen
                EZA_TMP.eza_Anmeldedatum = zp
@@ -9135,7 +9136,7 @@ Public Class frmDYNachrichtenVerarbeitung

                '=====IMPORT IN VERAG DATENMODELL==========
                Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
-                IMP.ImportDakosyEZA(EZA_TMP, False)
+                IMP.ImportDakosyEZA(EZA_TMP, False, True)
                '==================================

                '=====ATEZ BEREITSTELLUNG==========
@@ -10265,7 +10266,7 @@ Public Class frmDYNachrichtenVerarbeitung
                        Else
                            EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
                        End If
-
+                        EZA_TMP.loadAll()

                        Dim firma = ""
                        Dim nl = ""
@@ -10337,6 +10338,7 @@ Public Class frmDYNachrichtenVerarbeitung
                        EZA_TMP.insertIntoSpedBuch(DY_TMP)


+
                        '=====IMPORT IN VERAG DATENMODELL==========
                        Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
                        IMP.ImportDakosyEZA(EZA_TMP, False, True)
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -363,6 +363,7 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button29 = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1158,6 +1159,7 @@ Partial Class frmStartOptions
        '
        'TabPage1
        '
+        Me.TabPage1.Controls.Add(Me.Button29)
        Me.TabPage1.Controls.Add(Me.LinkLabel68)
        Me.TabPage1.Controls.Add(Me.PictureBox26)
        Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -4856,6 +4858,18 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
+        'Button29
+        '
+        Me.Button29.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button29.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button29.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button29.Location = New System.Drawing.Point(1072, 67)
+        Me.Button29.Name = "Button29"
+        Me.Button29.Size = New System.Drawing.Size(123, 24)
+        Me.Button29.TabIndex = 152
+        Me.Button29.Text = "testKK"
+        Me.Button29.UseVisualStyleBackColor = True
+        '
        'frmStartOptions
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5273,4 +5287,5 @@ Partial Class frmStartOptions
    Friend WithEvents lblBackToCustomer_RMC As LinkLabel
    Friend WithEvents lblBackToCustomer_UTA As LinkLabel
    Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel
+    Friend WithEvents Button29 As Button
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
+Imports DAKOSY_Worker
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -1001,7 +1002,7 @@ Public Class frmStartOptions
                                    '=====IMPORT IN VERAG DATENMODELL==========
                                    Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG
                                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                                        Case "UNIDPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False)
+                                        Case "UNISPED" : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL_UNISPED", False, True)
                                        Case Else : IMP.ImportEZOLLByLRN(cDHF_Anhaenge.CRN, "EZOLL", False)
                                    End Select
                                    '==========================================
@@ -7193,4 +7194,9 @@ repeatRequest:

    End Sub

+    Private Sub Button29_Click_1(sender As Object, e As EventArgs) Handles Button29.Click
+        Dim ZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN("26DE7458ACA000YYR2", True)
+        ZA.checkfreshCBAMWarning()
+
+    End Sub
 End Class
--- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
@@ -1058,7 +1058,7 @@ Public Class frmTCNachrichtenVerarbeitung
                        '=====IMPORT IN VERAG DATENMODELL==========
                        If TC.Hea_DecTy = "EUA" Then
                            Dim IMP As New DAKOSY_Worker.cImporter_TelotecToVERAG
-                            IMP.ImportTelotec(TC, False)
+                            IMP.ImportTelotec(TC, False, True)
                        End If
                        '==================================