LKW CHAT Basis

Aviso/usrcntlAktDetails.vb

@@ -203,6 +203,12 @@ Public Class usrcntlAktDetails
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
             Button2.Visible = True
         End If
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then
+                picAVISOMessenger.Visible = True
+            End If
+        End If
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
         '    tbcntlVermerke.TabPages.Remove(tbAnhang)
         'End If
@@ -3503,5 +3509,46 @@ Public Class usrcntlAktDetails
     Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
         Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
     End Sub
+
+    Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
+        Dim CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(AvisoID, -1)
+
+        If CHAT.chat_id <= 0 Then
+            'Neuer Chat
+            Dim chatName = "LKW CHAT: " & AVISO.LKW_Nr & " (LKW-Id: " & AVISO.AvisoID & ")"
+
+            Dim MB_LIST As New List(Of Integer)
+            MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+
+            VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT, "LKW_CHAT", AvisoID, -1)
+
+        End If
+        If CHAT IsNot Nothing Then
+
+            If Not CHAT.CHAT_MEMBERS.Exists(Function(x) x.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) Then
+                If vbYes <> MsgBox("Möchten Sie dem LKW Chat beitreten?", vbYesNoCancel) Then
+                    Exit Sub
+                Else 'weiter...
+                End If
+            End If
+
+            Me.Cursor = Cursors.WaitCursor
+            'For Each openForm In Application.OpenForms()
+            '    If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+            '        CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
+            '        CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
+            '        Me.Cursor = Cursors.Default : Exit Sub
+            '    End If
+            'Next
+
+            Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger()
+            f.Location = Cursor.Position
+            f.AvisoId = AvisoID
+            f.Show(Me)
+            Me.Cursor = Cursors.Default
+        End If
+
+
+    End Sub
 End Class