KVI Report

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("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
-                                            Blatt.Range("Z" & cnt).Value = row.Item("Verfahren")
+                                            Blatt.Range("z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
-                                            Blatt.Range("AA" & cnt).Value = row.Item("Preferenz")
+                                            Blatt.Range("AA" & cnt).Value = ZOLLANMELDUNG.Incoterms_ort
-                                            Blatt.Range("AB" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
+                                            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("Y" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Length >= 2, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(ZOLLANMELDUNG.VerBestLandZst.ToString.Length - 2, 2), "")
-                                        Blatt.Range("Z" & cnt).Value = ""
+                                        Blatt.Range("Z" & cnt).Value = ZOLLANMELDUNG.Incoterms_code
-                                        Blatt.Range("AA" & cnt).Value = ""
+                                        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
+
+                                    End If
+                                End If
+
                                 cnt += 1
-                                    End If
-                                End If
-
-
 
                             Catch ex As Exception
                                 MsgBox(ex.Message & ex.StackTrace)

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)

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)

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"