edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Länderausschluss für Ursprungsland implementiert

Browse Source
This commit is contained in:
m.ilhan
2026-09-14 14:59:01 +02:00
parent d397579b4f
commit 1034b62747
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
View File

@@ -727,6 +727,12 @@ Public Class cVERAG_CustomsDeclarations
p.zaParty_Role IN ('CZ','EX','EXP','EXPORTER','CONSIGNOR'))") & " p.zaParty_Role IN ('CZ','EX','EXP','EXPORTER','CONSIGNOR'))") & "
WHERE z.za_ReleaseDate BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' 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 ( AND EXISTS (
SELECT 1 SELECT 1
FROM VERAG.dbo.tblGreendeal_CBAM_Trn t FROM VERAG.dbo.tblGreendeal_CBAM_Trn t
@@ -788,11 +794,19 @@ Public Class cVERAG_CustomsDeclarations
Dim prefixes As HashSet(Of String) = Dim prefixes As HashSet(Of String) =
New HashSet(Of String)(cbamHsCodes) 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. Return Me.Items.
Where(Function(it) Where(Function(it)
Dim hs As String = If(it.zaItem_HSCode, "").Trim() Dim hs As String = If(it.zaItem_HSCode, "").Trim()
If hs = "" Then Return False 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 For Each p In prefixes
If hs.StartsWith(p) Then If hs.StartsWith(p) Then
Return True Return True