20200108

2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
@@ -0,0 +1,104 @@
+Imports System.Windows.Forms
+
+Public Class frmMessenger_NeuerChat
+
+    Dim SQL As New SQL
+
+    Dim loaded = False
+
+    Sub initDGV()
+        If Not loaded Then Exit Sub
+        With dgvMitarbeiter
+            Dim FirmaTMP = MyComboBox1._value
+            Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname,mit_firma  FROM [tblMitarbeiter]"
+            sqlStr &= " WHERE  mit_gekuendigt=0 AND mit_abteilung IN ('QS','ZOLL','DISPO') AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0"
+            sqlStr &= " AND  mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
+            If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"
+
+            sqlStr &= "    order by mit_nname,mit_vname"
+
+            .DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN")
+
+            If .Columns.Count = 0 Then Exit Sub
+
+            .Columns("mit_id").Visible = False
+            .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
+        End With
+    End Sub
+
+    Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        MyComboBox1.changeItem("VERAG")
+        loaded = True
+        initDGV()
+
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
+        initDGV()
+    End Sub
+
+    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown
+        If dgvMitarbeiter.Rows.Count = 0 Then Exit Sub
+
+        If e.KeyCode = Keys.Down Then
+            If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
+            If dgvMitarbeiter.Rows.Count > dgvMitarbeiter.SelectedRows(0).Index + 1 Then
+                Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index + 1
+                dgvMitarbeiter.ClearSelection()
+                dgvMitarbeiter.Rows(newIndex).Selected = True
+                MyTextBox1.Focus()
+            End If
+        End If
+
+        If e.KeyCode = Keys.Up Then
+            If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
+            If dgvMitarbeiter.SelectedRows(0).Index > 0 Then
+                Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index - 1
+                dgvMitarbeiter.ClearSelection()
+                dgvMitarbeiter.Rows(newIndex).Selected = True
+                MyTextBox1.Focus()
+            End If
+        End If
+        If e.KeyCode = Keys.Return Then
+            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
+                Else
+                    MyTextBox2.Text = ""
+                End If
+                MyTextBox1.Text = ""
+                MyTextBox1.Focus()
+            End If
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        If MyTextBox2.Text = "" Then
+            MsgBox("Chat-Name eingeben!")
+            Exit Sub
+        End If
+        If dgvChatMembers.Rows.Count = 0 Then
+            MsgBox("Mitglieder eingeben!")
+            Exit Sub
+        End If
+
+        Dim MB_LIST As New List(Of Integer)
+        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
+        For Each r As DataGridViewRow In dgvMitarbeiter.Rows
+            MB_LIST.Add(r.Cells("mit_id").Value)
+        Next
+        If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(MyTextBox2.Text, MB_LIST) Then
+            Me.Close()
+        End If
+
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        initDGV()
+    End Sub
+End Class