Layout Sendungen/LKWDetails

Aviso/usrcntlAktDetails.vb

@@ -116,6 +116,10 @@ Public Class usrcntlAktDetails
         lblSendungsanzahl.Visible = False
         '___________
 
+
+        initLKW_CHAT()
+
+
         If dgvSendungen.RowCount = 0 Then
             pnlAlt.Visible = True
         Else
@@ -125,7 +129,39 @@ Public Class usrcntlAktDetails
         End If
     End Sub
 
+    Sub initLKW_CHAT()
 
+        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
+                lblLKWChat_MsgCnt.Visible = False
+                Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_AVISOID(AvisoID)
+                If newMsg > 0 Then
+                    lblLKWChat_MsgCnt.Text = newMsg
+                    lblLKWChat_MsgCnt.Visible = True
+                    lblLKWChat_MsgCnt.BringToFront()
+                End If
+            End If
+        End If
+
+    End Sub
+    Sub initSND_CHAT(SendungsID)
+
+        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
+
+                picAVISOMessengerSNDChat.Visible = True
+                lblSNDChat_MsgCnt.Visible = False
+                Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID)
+                If newMsgSnd > 0 Then
+                    lblSNDChat_MsgCnt.Text = newMsgSnd
+                    lblSNDChat_MsgCnt.Visible = True
+                    lblSNDChat_MsgCnt.BringToFront()
+                End If
+            End If
+        End If
+
+    End Sub
 
     'Private Sub Me_shown(sender As Object, e As EventArgs) Handles Me.Shown
     '     MsgBox("shown")
@@ -204,11 +240,7 @@ Public Class usrcntlAktDetails
             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
@@ -813,6 +845,8 @@ Public Class usrcntlAktDetails
                         sendwhere = " AND VermerkArt='S'  AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
 
 
+                        initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+
                         '---------------------------------------------------------
                         'MA INFO
                         '---------------------------------------------------------
@@ -3511,43 +3545,34 @@ Public Class usrcntlAktDetails
     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)
 
+        Me.Cursor = Cursors.WaitCursor
+        If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openLKW_Chat(AVISO) Then
+            initLKW_CHAT()
         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.Default
+
+
+
+    End Sub
+
+    Private Sub picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click
+
+        If dgvSendungen.SelectedRows.Count > 0 Then
+
+            If dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value = "0/0" Then MsgBox("Bitte zuerst AbfertigungsNr/FilialenNr vergeben!") : Exit Sub
 
             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)
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+            If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SND) Then
+                initSND_CHAT(SND.tblSnd_SendungID)
+            End If
+
             Me.Cursor = Cursors.Default
-        End If
 
+        End If
 
     End Sub
 End Class