Fakturierung(dplt.RgNr), UID/EORI prfg Neukunden, Chat Korr.

VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb

@@ -178,10 +178,8 @@ Public Class cKunde
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe))
 
-
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport))
-       
 
         Return list
     End Function
@@ -189,11 +187,21 @@ Public Class cKunde
 
 
     Function VALID(ByRef ERROR_TXT) As Boolean
-        '   If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
-
+        If Not hasEntry Then
+            'Prüfung Neuanlage:
+            If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
+            If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
+        End If
         Return True
     End Function
-
+    Function checkEORI() As Boolean
+        If If(EORITIN, String.Empty) <> String.Empty Then
+            If SQL.getValueTxtBySql("SELECT COUNT(*) FROM Kunden WHERE EORITIN='" & EORITIN & "' AND  kunden.FilialenNr='" & FilialenNr & "' ", "FMZOLL") > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
 
     Sub INIT_NEWKD_DATA()