From 1034b6274755bb6a0a0609aa5036c89381c4d529 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Mon, 14 Sep 2026 14:59:01 +0200 Subject: [PATCH] =?UTF-8?q?L=C3=A4nderausschluss=20f=C3=BCr=20Ursprungslan?= =?UTF-8?q?d=20implementiert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../cVERAG_CustomsDeclarations.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb index 845fc7d1..909f6554 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb @@ -727,6 +727,12 @@ Public Class cVERAG_CustomsDeclarations p.zaParty_Role IN ('CZ','EX','EXP','EXPORTER','CONSIGNOR'))") & " WHERE z.za_ReleaseDate BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' + AND i.zaItem_OriginCountry NOT IN ( + 'EU','AT','BE','BG','HR','CY','CZ','DK','EE','FI','FR', + 'DE','GR','HU','IE','IT','LV','LT','LU','MT','NL', + 'PL','PT','RO','SK','SI','ES','SE', + 'CH','NO','IS','LI','XI' + ) AND EXISTS ( SELECT 1 FROM VERAG.dbo.tblGreendeal_CBAM_Trn t @@ -788,11 +794,19 @@ Public Class cVERAG_CustomsDeclarations Dim prefixes As HashSet(Of String) = New HashSet(Of String)(cbamHsCodes) + Dim excludedCountries As New HashSet(Of String) From { + "EU", "AT", "BE", "BG", "HR", "CY", "CZ", "DK", "EE", "FI", "FR", + "DE", "GR", "HU", "IE", "IT", "LV", "LT", "LU", "MT", "NL", + "PL", "PT", "RO", "SK", "SI", "ES", "SE", + "CH", "NO", "IS", "LI", "XI" + } + Return Me.Items. Where(Function(it) Dim hs As String = If(it.zaItem_HSCode, "").Trim() If hs = "" Then Return False - ' linksseitiger Prefix-Abgleich + Dim origin As String = If(it.zaItem_OriginCountry, "").Trim().ToUpper() + If origin <> "" AndAlso excludedCountries.Contains(origin) Then Return False For Each p In prefixes If hs.StartsWith(p) Then Return True