KVI KdAtrNr

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -315,6 +315,39 @@ Public Class cSendungen
         End If
     End Function
 
+    Public Function getKdAtrNrByEORI(EORI As String) As String
+        Dim KdNR = -1
+        Dim KdAtrNr = Nothing
+
+        If Me.tblSnd_AuftraggeberKdNr > 0 Then
+            Dim KdNrTmp = Me.tblSnd_AuftraggeberKdNr
+            Dim KD_tmp As New VERAG_PROG_ALLGEMEIN.cKunde(KdNrTmp)
+            If KD_tmp IsNot Nothing And KD_tmp.hasEntry Then
+                If If(KD_tmp.EORITIN, "") = EORI Then
+                    KdAtrNr = Me.tblSnd_KdAuftragsNr
+                End If
+            End If
+        End If
+
+        If Me.tblSnd_EmpfaengerKdNr > 0 Then
+            Dim KdNrTmp = Me.tblSnd_EmpfaengerKdNr
+            Dim KD_tmp As New VERAG_PROG_ALLGEMEIN.cKunde(KdNrTmp)
+            If KD_tmp IsNot Nothing And KD_tmp.hasEntry Then
+                If If(KD_tmp.EORITIN, "") = EORI Then
+                    KdAtrNr = Me.tblSnd_KdAuftragsNrEmpfaenger
+                End If
+            End If
+        End If
+
+
+
+        If If(KdAtrNr, "").Trim <> String.Empty Then
+            Return KdAtrNr
+        Else
+            Return ""
+        End If
+    End Function
+
     Public Function getKdAtrNr(art As String) As String
         Try