diff --git a/SDL/Resources/KVI_report.xlsx b/SDL/Resources/KVI_report.xlsx
index 4dfb7447..1f276e66 100644
Binary files a/SDL/Resources/KVI_report.xlsx and b/SDL/Resources/KVI_report.xlsx differ
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index a17f5f67..6978cc3d 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -3280,10 +3280,12 @@ Public Class usrCntlSpeditionsBuchSuche
                                             Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
                                             Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
                                             Blatt.Range("X" & cnt).Value = row.Item("Herkunft")
-                                            Blatt.Range("Y" & cnt).Value = ZOLLANMELDUNG.Incoterms
-                                            Blatt.Range("Z" & cnt).Value = row.Item("Verfahren")
-                                            Blatt.Range("AA" & cnt).Value = row.Item("Preferenz")
-                                            Blatt.Range("AB" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
+                                            Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
+                                            Blatt.Range("z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
+                                            Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
+                                            Blatt.Range("AB" & cnt).Value = row.Item("Verfahren")
+                                            Blatt.Range("AC" & cnt).Value = row.Item("Preferenz")
+                                            Blatt.Range("AD" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
 
                                             If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
                                                 Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
@@ -3332,20 +3334,22 @@ Public Class usrCntlSpeditionsBuchSuche
                                         Blatt.Range("V" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
                                         Blatt.Range("W" & cnt).Value = ZOLLANMELDUNG.Absender
                                         Blatt.Range("X" & cnt).Value = ""
-                                        Blatt.Range("Y" & cnt).Value = ZOLLANMELDUNG.Incoterms
-                                        Blatt.Range("Z" & cnt).Value = ""
-                                        Blatt.Range("AA" & cnt).Value = ""
+                                        Blatt.Range("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
+                                        Blatt.Range("Z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
+                                        Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
                                         Blatt.Range("AB" & cnt).Value = ""
+                                        Blatt.Range("AC" & cnt).Value = ""
+                                        Blatt.Range("AD" & cnt).Value = ""
 
 
                                         If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("G" & cnt).Value = "" Then
                                             Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ATCMRN
                                         End If
-                                        cnt += 1
+
                                     End If
                                 End If
 
-
+                                cnt += 1
 
                             Catch ex As Exception
                                 MsgBox(ex.Message & ex.StackTrace)
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
index edcd09a3..cf4db2ed 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
@@ -1158,7 +1158,7 @@ Public Class SQL
                         If dt.Rows.Count > 1 Then
                             If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then
                                 '    MsgBox("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical)
-                                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                                ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die EORI-Nr. " & eori & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                             End If
                         End If
                     End If
@@ -1411,7 +1411,7 @@ Public Class SQL
                     If dt.Rows.Count > 1 Then
                         If VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW Then
                             '   MsgBox("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", vbCritical)
-                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                            ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Die Zollnummer " & ZollNr & " ist in " & dt.Rows.Count & " Kundenstammsätzen eingetragen.", "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
                         End If
                     End If
                     s = dt.Rows(0).Item(0)
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb
index e0ddfacd..e711160e 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb
@@ -211,6 +211,29 @@ Public Class cGreendeal_CBAM_Trn
     End Function
 
 
+    Public Shared Function isCBAMTnr(TNR As String, Optional LIST As List(Of String) = Nothing) As Boolean
+
+        If LIST Is Nothing Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST Is Nothing Then VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST = cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers
+            LIST = VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST
+        End If
+
+        If TNR Is Nothing Then Return False
+        If String.IsNullOrWhiteSpace(TNR) Then Return False
+
+
+        For Each cbamTnr As String In LIST
+            If Not String.IsNullOrWhiteSpace(cbamTnr) Then
+                If TNR.StartsWith(cbamTnr.Replace("%", "").Trim) Then
+                    Return True
+                End If
+            End If
+        Next
+
+        Return False
+
+    End Function
+
     Public Shared Function LoadCBAMTariffNumbers(Optional onlyActive As Boolean = True,
                                              Optional includeExclusions As Boolean = False) _
                                              As List(Of String)
diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
index d2672d54..f94c6a19 100644
--- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb
@@ -28,6 +28,8 @@ Public Class cAllgemein
 
     Public Shared AVISO_LAYOUT_NEW As Boolean = False
 
+    Public Shared CBAM_LIST As List(Of String) = Nothing
+
 
     'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
     Public Shared FMZOLL_ATLAS_Datensicherung_OLD As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"