neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -73,18 +73,23 @@ Public Class frmMessenger_NeuerChat
     Sub addSelMA()
         If dgvMitarbeiter.SelectedRows.Count > 0 Then
             dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
-            If dgvChatMembers.Rows.Count = 1 Then
-                MyTextBox2.Text = dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
-                MyTextBox2.Enabled = False
-            Else
-                MyTextBox2.Text = ""
-                MyTextBox2.Enabled = True
-            End If
+            initAddRemoveDGV()
             MyTextBox1.Text = ""
             MyTextBox1.Focus()
         End If
     End Sub
 
+    Sub initAddRemoveDGV()
+        If dgvChatMembers.Rows.Count = 1 Then
+            MyTextBox2.Text = dgvChatMembers.Rows(0).Cells("clmnName").Value 'dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
+            MyTextBox2.Enabled = False
+        Else
+            MyTextBox2.Text = ""
+            MyTextBox2.Enabled = True
+        End If
+    End Sub
+
+
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
 
         If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
@@ -99,10 +104,20 @@ Public Class frmMessenger_NeuerChat
         Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
 
         Dim MB_LIST As New List(Of Integer)
-        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
         For Each r As DataGridViewRow In dgvChatMembers.Rows
             MB_LIST.Add(r.Cells("clmnMaId").Value)
         Next
+        If chatName = "" And MB_LIST.Count = 1 Then
+            If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
+                If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
+                    Me.DialogResult = DialogResult.OK
+                    Me.Close()
+                    Exit Sub
+                End If
+            End If
+        End If
+        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
+
         Dim CHAT As cMessenger.cMessenger_Chat = Nothing
         If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
             If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
@@ -118,4 +133,9 @@ Public Class frmMessenger_NeuerChat
     Private Sub dgvMitarbeiter_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiter.CellDoubleClick
         addSelMA()
     End Sub
+
+
+    Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
+        initAddRemoveDGV()
+    End Sub
 End Class