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

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -144,16 +144,28 @@ Public Class cAdressen
 
 
 
-    Function VALID(ByRef ERROR_TXT) As Boolean
+    Function VALID(ByRef ERROR_TXT, KD) As Boolean
         If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False
         If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False
         If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False
         If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False
         If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False
         If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
+        If Not hasEntry Then
+            'Prüfung Neuanlage:
+            If checkUID(KD) Then ERROR_TXT = "Die UID 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 checkUID(KD As cKunde) As Boolean
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+            If SQL.getValueTxtBySql("SELECT  COUNT(*) FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr  WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and  kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL") > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
     Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         If newFlag Then INIT_NEWKD_DATA()
         If AdressenNr <= 0 Then

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()
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -81,13 +81,13 @@ Public Class cRechnungsnummern
     End Function
 
 
-    Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
+    Public Function CHECK_RGNR(Optional sleep = False) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
         Dim increased = False
-        System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+        If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
         While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
             LfdRechnungsNr += 1
             increased = True
-            System.Threading.Thread.Sleep(100) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+            System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
         End While
         If increased Then SAVE()
         Return LfdRechnungsNr

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1263,6 +1263,10 @@ Public Class frmMessenger
         For Each c In FlowLayoutPanel1.Controls
             DirectCast(c, usrCntlChat_Art_Btn).setInAktiv()
         Next
+        MyFlowLayoutPanel1.Controls.Clear()
+        CHAT = Nothing
+        topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate
+
         Me.toggle_CHAT_ART = CHAT_ART
         intiDGVChats()
         loaded = True
@@ -1282,19 +1286,5 @@ Public Class frmMessenger
         sender.setAktiv()
     End Sub
 
-    Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED
 
-    End Sub
-
-    Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED
-
-    End Sub
-
-    Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
-
-    End Sub
-
-    Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles MyFlowLayoutPanel1.Paint
-
-    End Sub
 End Class