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

eza

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-15 10:50:09 +01:00
parent eb4fdfaf58
commit cb60a0eb16
3 changed files with 33 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
View File

@@ -1,5 +1,6 @@
Imports System.Globalization
Imports io.konik.zugferd
Imports javax.management.relation
Imports Newtonsoft.Json
Imports VERAG_PROG_ALLGEMEIN
@@ -12,9 +13,9 @@ Public Class cDakosyEZA_Greenpulse
If eza Is Nothing Then Throw New ArgumentNullException(NameOf(eza))
' --- Adressen (Heuristik: CN=Importer, CZ=Exporter, DT=Declarant) ---
Dim importer = GuessAddressByType(eza.eza_ADRESSEN, {"CN", "IM", "IMP", "IMPORTER"})
Dim exporter = GuessAddressByType(eza.eza_ADRESSEN, {"CZ", "EX", "EXP", "EXPORTER"})
Dim declarant = GuessAddressByType(eza.eza_ADRESSEN, {"DT", "DEC", "ANM", "DECLARANT"})
Dim importer = GuessAddressByType(eza.eza_ADRESSEN, cVERAG_CustomsDeclarations.IMPORTER_ROLES)
Dim exporter = GuessAddressByType(eza.eza_ADRESSEN, cVERAG_CustomsDeclarations.EXPORTER_ROLES)
Dim declarant = GuessAddressByType(eza.eza_ADRESSEN, cVERAG_CustomsDeclarations.DECLARANT_ROLES)
' --- Rechnungsdaten (Unterlagen N380) ---
Dim inv = If(eza.eza_UNTERLAGEN IsNot Nothing,
@@ -236,9 +237,9 @@ Public Class cDakosyEZA_Greenpulse
If za Is Nothing Then Throw New ArgumentNullException(NameOf(za))
' --- Parties (Heuristik über zaParty_Role) ---
Dim importer = GuessPartyByRole(za.Parties, {"CN", "IMPORTER", "IM"})
Dim exporter = GuessPartyByRole(za.Parties, {"CZ", "EXPORTER", "EX"})
Dim declarant = GuessPartyByRole(za.Parties, {"CB", "DECLARANT", "DEC"})
Dim importer = GuessPartyByRole(za.Parties, cVERAG_CustomsDeclarations.IMPORTER_ROLES)
Dim exporter = GuessPartyByRole(za.Parties, cVERAG_CustomsDeclarations.EXPORTER_ROLES)
Dim declarant = GuessPartyByRole(za.Parties, cVERAG_CustomsDeclarations.DECLARANT_ROLES)
' --- Rechnungsdaten (Header-Dokument N380) ---
Dim inv = If(za.Documents IsNot Nothing,