Mahnlauf Fakt.Dat., SDL Abholung (Medpass, Parkpl.), SDL Brief (Medpass, Parkpl.), Chatgruppen --> Buhchaltung

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -53,6 +53,17 @@ Public Class frmMessenger_NeuerChat
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
         MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         MyComboBox1.changeItem("")
+
+        dgvChatgruppe.Rows.Clear()
+        dgvChatgruppe.Rows.Add({"BUCHHALTUNG", "BUCHHALTUNG"})
+        dgvChatgruppe.ClearSelection()
+
+        Select Case CHAT.chat_art
+            Case "SND_CHAT", "LKW_CHAT"
+                Label3.Visible = True
+                dgvChatgruppe.Visible = True
+        End Select
+
         loaded = True
         initDGV()
         If CHAT IsNot Nothing Then
@@ -103,6 +114,22 @@ Public Class frmMessenger_NeuerChat
         End If
     End Sub
 
+    Sub addSelMAGruppe()
+        If dgvChatgruppe.SelectedRows.Count > 0 Then
+            Select Case dgvChatgruppe.SelectedRows(0).Cells(0).Value
+                Case "BUCHHALTUNG"
+                    dgvChatMembers.Rows.Add(405, "Anna Stockenhuber", "VERAG")
+                    dgvChatMembers.Rows.Add(599, "Isabella Miesenbeck", "VERAG")
+                    dgvChatMembers.Rows.Add(170, "Kerstin Bauböck", "VERAG")
+            End Select
+
+            initAddRemoveDGV()
+            MyTextBox1.Text = ""
+            MyTextBox1.Focus()
+            dgvChatgruppe.ClearSelection()
+        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
@@ -174,6 +201,11 @@ Public Class frmMessenger_NeuerChat
     End Sub
 
 
+    Private Sub dgvChatgruppe_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatgruppe.CellDoubleClick
+        addSelMAGruppe()
+    End Sub
+
+
     Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
         initAddRemoveDGV()
     End Sub