CBAM

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb

@@ -46,6 +46,13 @@ Public Class cATEZ_Greenpulse_KafkaDecs
         Dim m = (mrn).ToUpperInvariant()
         Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m})
     End Function
+    Public Shared Function GetUniqueKey_Pipe_FromVERAG_CustomsDec(CD As VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations, Optional mrn As String = "") As String
+
+        Dim c = (If(CD.za_CountryImport, CD.za_CustomsSystemCountry)).ToUpperInvariant()
+        Dim s = (If(CD.za_System, CD.za_CustomsSystem)).ToUpperInvariant()
+        Dim m = (If(mrn = "", CD.za_MRN, mrn)).ToUpperInvariant()
+        Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m})
+    End Function
 
     '========================
     '== Datenobjekte lt. UDM-Schema