Layout Sendungen/LKWDetails

Aviso/frmSendungsdetailsNEU.vb

@@ -1392,6 +1392,9 @@ Public Class frmSendungsdetailsNEU
             initGesColliGewicht()
             '  initKdInfo(-1)
 
+            initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+
+
             SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
             If tbcntr.SelectedTab Is tbBAR Then
                 initDGVBelege()
@@ -5439,4 +5442,43 @@ Public Class frmSendungsdetailsNEU
 
         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 picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click
+        SAVE_ME()
+
+        If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub
+        If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub
+
+
+
+        Me.Cursor = Cursors.WaitCursor
+
+        If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SENDUNG_LIST(CURRENT_INDEX)) Then
+            initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+        End If
+
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class