eza greenpulse

2025-10-16 16:02:49 +02:00
parent 3bdd07c272
commit 69c9ce6746
4 changed files with 8 additions and 6 deletions
--- a/DAKOSY_Worker/cZOLL_IMPORT.vb
+++ b/DAKOSY_Worker/cZOLL_IMPORT.vb
@@ -1491,10 +1491,10 @@ Public Class cZOLL_IMPORT



-    Shared Function getAdresseFromEORI(EORI, EORI_NL, Firma)
+    Shared Function getAdresseFromEORI(EORI, EORI_NL, Firma, Optional ignoreCountOver1 = False)
        If EORI Is Nothing Then Return Nothing
        If If(EORI, "") <> "" Then
-            Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
+            Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma, ignoreCountOver1)
            If IsNumeric(kdNrTmp) Then
                Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
                Return ADRESSE