CBAM kafka, NCTS Fremd(Tobb), realyhub

VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb

@@ -200,4 +200,29 @@ Public Class cZollArtikel
 
         Return result
     End Function
+    Public Shared Function FindZollArtikelByNummer(artikelListe As List(Of cZollArtikel), artikelnummer As String) As cZollArtikel
+        If artikelListe Is Nothing OrElse artikelnummer Is Nothing Then Return Nothing
+
+        Dim suchNr As String = artikelnummer.Trim().ToUpperInvariant()
+
+        ' Finde alle Artikel mit gleicher Artikelnummer
+        Dim treffer = artikelListe.
+        Where(Function(a) a IsNot Nothing AndAlso
+                         a.zollArt_Artikelnummer IsNot Nothing AndAlso
+                         a.zollArt_Artikelnummer.ToString().Trim().ToUpperInvariant() = suchNr).
+        ToList()
+
+        If treffer.Count = 0 Then Return Nothing
+        If treffer.Count = 1 Then Return treffer(0)
+
+        ' Wenn mehrere gefunden: wähle den mit längster Warencodenummer (zollArt_Warencodenummer)
+        Dim bester = treffer.OrderByDescending(Function(a)
+                                                   Dim code = If(a.zollArt_Warencodenummer, "").ToString().Trim()
+                                                   Return code.Length
+                                               End Function).
+        FirstOrDefault()
+
+        Return bester
+    End Function
+
 End Class