Layout Sendungen/LKWDetails

2022-11-08 14:05:13 +01:00
parent 4917250a4d
commit 1d39579548
7 changed files with 516 additions and 353 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("3.8.1.9")>
-<Assembly: AssemblyFileVersion("3.8.1.9")>
+<Assembly: AssemblyVersion("3.8.2.3")>
+<Assembly: AssemblyFileVersion("3.8.2.3")>
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -1138,9 +1138,9 @@ Public Class frmHauptfenster
                            sqlStr &= " AND (Status = 3 ) "
                        Case Color.Orange
                            ' sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
-                            sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
+                            sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
                        Case Color.Yellow
-                            sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY,2,GETDATE()) AS DATE) AND  cast(DATEADD(DAY,3,GETDATE()) AS DATE) ) ) "
+                            sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND  cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
                    End Select
                End If
                ''Farbe
@@ -1439,9 +1439,15 @@ Public Class frmHauptfenster
                                        '    r.DefaultCellStyle.BackColor = Color.LightYellow
                                        'End If

-                                        If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
+                                        'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
+                                        '    r.DefaultCellStyle.BackColor = Color.Orange
+                                        'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
+                                        '    r.DefaultCellStyle.BackColor = Color.LightYellow
+                                        'End If
+
+                                        If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute
                                            r.DefaultCellStyle.BackColor = Color.Orange
-                                        ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
+                                        ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen
                                            r.DefaultCellStyle.BackColor = Color.LightYellow
                                        End If

@@ -1478,6 +1484,25 @@ Public Class frmHauptfenster



+    Function getDateVorschreiben(addDays) As Date
+        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
+
+        While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
+            addDays += 1
+        End While
+        Return Now.AddDays(addDays)
+    End Function
+
+    Function getDaysVorschreiben(addDays) As Integer
+        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
+
+        While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
+            addDays += 1
+        End While
+        Return addDays
+    End Function
+
+
    Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick
        Try
            If e.RowIndex > 0 Then
@@ -5371,6 +5396,7 @@ Public Class AvisoStatusFunctions

            SendFreigabeEmail(Aviso)

+            VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_INAKTIV(Aviso.AvisoID)

            If True Then

--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -114,6 +114,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlDetails = New System.Windows.Forms.Panel()
        Me.tbcntr = New System.Windows.Forms.TabControl()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button()
        Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -392,7 +393,8 @@ Partial Class frmSendungsdetailsNEU
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Label12 = New System.Windows.Forms.Label()
+        Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
+        Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -451,6 +453,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ctxtWeitereFormulare.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnl
@@ -1545,6 +1548,15 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage4.Text = "Aktendeckel"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(266, 42)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(40, 13)
+        Me.Label12.TabIndex = 64
+        Me.Label12.Text = "Fracht:"
+        '
        'Label10
        '
        Me.Label10.AutoSize = True
@@ -3885,6 +3897,8 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel5.Controls.Add(Me.lblSNDChat_MsgCnt)
+        Me.Panel5.Controls.Add(Me.picAVISOMessengerSNDChat)
        Me.Panel5.Controls.Add(Me.txtAnzahlPos)
        Me.Panel5.Controls.Add(Me.Label4)
        Me.Panel5.Controls.Add(Me.lblAbfNrExists)
@@ -5113,14 +5127,32 @@ Partial Class frmSendungsdetailsNEU
        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
-        'Label12
+        'lblSNDChat_MsgCnt
        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(266, 42)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(40, 13)
-        Me.Label12.TabIndex = 64
-        Me.Label12.Text = "Fracht:"
+        Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
+        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(1073, 41)
+        Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
+        Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 13)
+        Me.lblSNDChat_MsgCnt.TabIndex = 113
+        Me.lblSNDChat_MsgCnt.Text = "99"
+        Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblSNDChat_MsgCnt.Visible = False
+        '
+        'picAVISOMessengerSNDChat
+        '
+        Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(1040, 7)
+        Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
+        Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(42, 44)
+        Me.picAVISOMessengerSNDChat.TabIndex = 112
+        Me.picAVISOMessengerSNDChat.TabStop = False
+        Me.picAVISOMessengerSNDChat.Visible = False
        '
        'frmSendungsdetailsNEU
        '
@@ -5215,6 +5247,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ctxtWeitereFormulare.ResumeLayout(False)
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -5584,4 +5617,6 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents txtFrachtkostenGesamt As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label10 As Label
    Friend WithEvents Label12 As Label
+    Friend WithEvents lblSNDChat_MsgCnt As Label
+    Friend WithEvents picAVISOMessengerSNDChat As PictureBox
 End Class
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/Aviso/frmSendungsdetailsNEU.resx
@@ -117,45 +117,7 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
-  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>765, 17</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
-        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
-        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
-        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
-        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
-        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
-        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
-        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
-        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
-</value>
-  </data>
-  <data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
-        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
-        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
-        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
-        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
-        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
-        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
-        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
-        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
-</value>
-  </data>
  <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1800,6 +1762,44 @@
        rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
        rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
        eWpiMRXkm9o//9k=
+</value>
+  </data>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
+  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>765, 17</value>
+  </metadata>
+  <data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
+</value>
+  </data>
+  <data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
 </value>
  </data>
  <data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/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
--- a/Aviso/usrcntlAktDetails.Designer.vb
+++ b/Aviso/usrcntlAktDetails.Designer.vb
@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails
        Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.lnlSendungText = New System.Windows.Forms.Label()
-        Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.pnlSBG = New System.Windows.Forms.Panel()
        Me.lblSndFremd = New System.Windows.Forms.Label()
        Me.Label21 = New System.Windows.Forms.Label()
-        Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.lblFiskde = New System.Windows.Forms.Label()
-        Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblFiskAT = New System.Windows.Forms.Label()
-        Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
@@ -73,14 +69,11 @@ Partial Class usrcntlAktDetails
        Me.Button12 = New System.Windows.Forms.Button()
        Me.Button11 = New System.Windows.Forms.Button()
        Me.btnKasse_User = New System.Windows.Forms.Button()
-        Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.btnLZDruck = New System.Windows.Forms.Button()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.btnKasse_LG = New System.Windows.Forms.Button()
-        Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
-        Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
        Me.Button18 = New System.Windows.Forms.Button()
        Me.gridVermerke = New System.Windows.Forms.DataGridView()
        Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -104,7 +97,9 @@ Partial Class usrcntlAktDetails
        Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
        Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
        Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label()
        Me.lblBarZuKassierenSumme = New System.Windows.Forms.Label()
+        Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
        Me.btnAktUebernehmen = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.btnLkwBeleg = New System.Windows.Forms.Button()
@@ -169,8 +164,15 @@ Partial Class usrcntlAktDetails
        Me.btnÄndern = New System.Windows.Forms.Button()
        Me.btnTV = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
+        Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
+        Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
+        Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
        Me.pnlDetailsRechts.SuspendLayout()
        Me.Panel3.SuspendLayout()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -193,6 +195,7 @@ Partial Class usrcntlAktDetails
        CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel8.SuspendLayout()
+        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlAbgeschlossen.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.FlowLayoutPanel.SuspendLayout()
@@ -206,7 +209,7 @@ Partial Class usrcntlAktDetails
        Me.conMenuVermerke.SuspendLayout()
        Me.cntxtFormulare.SuspendLayout()
        Me.pnlOptionen.SuspendLayout()
-        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnlDetailsRechts
@@ -364,32 +367,6 @@ Partial Class usrcntlAktDetails
        Me.lnlSendungText.TabIndex = 2
        Me.lnlSendungText.Text = "Sendung"
        '
-        'txtSendungen
-        '
-        Me.txtSendungen._DateTimeOnly = False
-        Me.txtSendungen._numbersOnly = True
-        Me.txtSendungen._numbersOnlyKommastellen = ""
-        Me.txtSendungen._numbersOnlyTrennzeichen = True
-        Me.txtSendungen._Prozent = False
-        Me.txtSendungen._ShortDateNew = False
-        Me.txtSendungen._ShortDateOnly = False
-        Me.txtSendungen._TimeOnly = False
-        Me.txtSendungen._TimeOnly_Seconds = False
-        Me.txtSendungen._value = ""
-        Me.txtSendungen._Waehrung = False
-        Me.txtSendungen._WaehrungZeichen = True
-        Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSendungen.ForeColor = System.Drawing.Color.Black
-        Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
-        Me.txtSendungen.MaxLineLength = -1
-        Me.txtSendungen.MaxLines_Warning = ""
-        Me.txtSendungen.MaxLines_Warning_Label = Nothing
-        Me.txtSendungen.Name = "txtSendungen"
-        Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
-        Me.txtSendungen.TabIndex = 1
-        Me.txtSendungen.Text = "1"
-        Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'pnlSBG
        '
        Me.pnlSBG.Controls.Add(Me.lblSndFremd)
@@ -426,33 +403,6 @@ Partial Class usrcntlAktDetails
        Me.Label21.Text = "1"
        Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
-        'txtSndFremd
-        '
-        Me.txtSndFremd._DateTimeOnly = False
-        Me.txtSndFremd._numbersOnly = True
-        Me.txtSndFremd._numbersOnlyKommastellen = ""
-        Me.txtSndFremd._numbersOnlyTrennzeichen = True
-        Me.txtSndFremd._Prozent = False
-        Me.txtSndFremd._ShortDateNew = False
-        Me.txtSndFremd._ShortDateOnly = False
-        Me.txtSndFremd._TimeOnly = False
-        Me.txtSndFremd._TimeOnly_Seconds = False
-        Me.txtSndFremd._value = ""
-        Me.txtSndFremd._Waehrung = False
-        Me.txtSndFremd._WaehrungZeichen = True
-        Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
-        Me.txtSndFremd.MaxLineLength = -1
-        Me.txtSndFremd.MaxLines_Warning = ""
-        Me.txtSndFremd.MaxLines_Warning_Label = Nothing
-        Me.txtSndFremd.Name = "txtSndFremd"
-        Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFremd.TabIndex = 83
-        Me.txtSndFremd.Text = "0"
-        Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.txtSndFremd.Visible = False
-        '
        'Label20
        '
        Me.Label20.AutoSize = True
@@ -480,32 +430,6 @@ Partial Class usrcntlAktDetails
        Me.lblFiskde.TabIndex = 6
        Me.lblFiskde.Text = "Fiskal DE"
        '
-        'txtSndFiskalDE
-        '
-        Me.txtSndFiskalDE._DateTimeOnly = False
-        Me.txtSndFiskalDE._numbersOnly = True
-        Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
-        Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
-        Me.txtSndFiskalDE._Prozent = False
-        Me.txtSndFiskalDE._ShortDateNew = False
-        Me.txtSndFiskalDE._ShortDateOnly = False
-        Me.txtSndFiskalDE._TimeOnly = False
-        Me.txtSndFiskalDE._TimeOnly_Seconds = False
-        Me.txtSndFiskalDE._value = ""
-        Me.txtSndFiskalDE._Waehrung = False
-        Me.txtSndFiskalDE._WaehrungZeichen = True
-        Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
-        Me.txtSndFiskalDE.MaxLineLength = -1
-        Me.txtSndFiskalDE.MaxLines_Warning = ""
-        Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
-        Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
-        Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFiskalDE.TabIndex = 5
-        Me.txtSndFiskalDE.Text = "0"
-        Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'lblFiskAT
        '
        Me.lblFiskAT.AutoSize = True
@@ -515,32 +439,6 @@ Partial Class usrcntlAktDetails
        Me.lblFiskAT.TabIndex = 4
        Me.lblFiskAT.Text = "Fiskal AT"
        '
-        'txtSndFiskalAT
-        '
-        Me.txtSndFiskalAT._DateTimeOnly = False
-        Me.txtSndFiskalAT._numbersOnly = True
-        Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
-        Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
-        Me.txtSndFiskalAT._Prozent = False
-        Me.txtSndFiskalAT._ShortDateNew = False
-        Me.txtSndFiskalAT._ShortDateOnly = False
-        Me.txtSndFiskalAT._TimeOnly = False
-        Me.txtSndFiskalAT._TimeOnly_Seconds = False
-        Me.txtSndFiskalAT._value = ""
-        Me.txtSndFiskalAT._Waehrung = False
-        Me.txtSndFiskalAT._WaehrungZeichen = True
-        Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
-        Me.txtSndFiskalAT.MaxLineLength = -1
-        Me.txtSndFiskalAT.MaxLines_Warning = ""
-        Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
-        Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
-        Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFiskalAT.TabIndex = 3
-        Me.txtSndFiskalAT.Text = "0"
-        Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'cbxSammelakt
        '
        Me.cbxSammelakt.AutoSize = True
@@ -600,46 +498,46 @@ Partial Class usrcntlAktDetails
        Me.dgvSendungen.AllowUserToAddRows = False
        Me.dgvSendungen.AllowUserToDeleteRows = False
        Me.dgvSendungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
        Me.dgvSendungen.ColumnHeadersHeight = 34
        Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3
        Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
        Me.dgvSendungen.MultiSelect = False
        Me.dgvSendungen.Name = "dgvSendungen"
        Me.dgvSendungen.ReadOnly = True
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.dgvSendungen.RowHeadersVisible = False
        Me.dgvSendungen.RowHeadersWidth = 62
        Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
        Me.dgvSendungen.RowTemplate.Height = 20
        Me.dgvSendungen.RowTemplate.ReadOnly = True
        Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -667,7 +565,7 @@ Partial Class usrcntlAktDetails
        Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
        Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnQuckScan.Location = New System.Drawing.Point(468, 202)
+        Me.btnQuckScan.Location = New System.Drawing.Point(468, 203)
        Me.btnQuckScan.Name = "btnQuckScan"
        Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
        Me.btnQuckScan.TabIndex = 107
@@ -682,9 +580,9 @@ Partial Class usrcntlAktDetails
        Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange
        Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.picArrowDown.Location = New System.Drawing.Point(1, 234)
+        Me.picArrowDown.Location = New System.Drawing.Point(1, 221)
        Me.picArrowDown.Name = "picArrowDown"
-        Me.picArrowDown.Size = New System.Drawing.Size(34, 34)
+        Me.picArrowDown.Size = New System.Drawing.Size(36, 50)
        Me.picArrowDown.TabIndex = 104
        Me.picArrowDown.TabStop = False
        Me.picArrowDown.Visible = False
@@ -841,17 +739,6 @@ Partial Class usrcntlAktDetails
        Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnKasse_User.UseVisualStyleBackColor = False
        '
-        'cboFormulareRgAn
-        '
-        Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
-        Me.cboFormulareRgAn._allowFreiText = False
-        Me.cboFormulareRgAn._value = ""
-        Me.cboFormulareRgAn.FormattingEnabled = True
-        Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
-        Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
-        Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
-        Me.cboFormulareRgAn.TabIndex = 108
-        '
        'Label4
        '
        Me.Label4.AutoSize = True
@@ -926,42 +813,13 @@ Partial Class usrcntlAktDetails
        Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
        Me.btnKasse_LG.UseVisualStyleBackColor = False
        '
-        'cbxLZRg
-        '
-        Me.cbxLZRg._value = ""
-        Me.cbxLZRg.AutoSize = True
-        Me.cbxLZRg.Checked = True
-        Me.cbxLZRg.Checked_value = False
-        Me.cbxLZRg.CheckedValue = False
-        Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
-        Me.cbxLZRg.Name = "cbxLZRg"
-        Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
-        Me.cbxLZRg.TabIndex = 115
-        Me.cbxLZRg.Text = "Rechnungen"
-        Me.cbxLZRg.UseVisualStyleBackColor = True
-        '
-        'cbxLZT1
-        '
-        Me.cbxLZT1._value = ""
-        Me.cbxLZT1.AutoSize = True
-        Me.cbxLZT1.Checked_value = False
-        Me.cbxLZT1.CheckedValue = False
-        Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
-        Me.cbxLZT1.Name = "cbxLZT1"
-        Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
-        Me.cbxLZT1.TabIndex = 114
-        Me.cbxLZT1.Text = "T1"
-        Me.cbxLZT1.UseVisualStyleBackColor = True
-        Me.cbxLZT1.Visible = False
-        '
        'Button18
        '
        Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
        Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button18.Location = New System.Drawing.Point(447, 235)
+        Me.Button18.Location = New System.Drawing.Point(447, 236)
        Me.Button18.Name = "Button18"
        Me.Button18.Size = New System.Drawing.Size(128, 34)
        Me.Button18.TabIndex = 103
@@ -975,53 +833,53 @@ Partial Class usrcntlAktDetails
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
        Me.gridVermerke.ColumnHeadersHeight = 34
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
        Me.gridVermerke.MultiSelect = False
        Me.gridVermerke.Name = "gridVermerke"
        Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidth = 62
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.gridVermerke.ShowCellErrors = False
        Me.gridVermerke.ShowRowErrors = False
-        Me.gridVermerke.Size = New System.Drawing.Size(575, 214)
+        Me.gridVermerke.Size = New System.Drawing.Size(575, 208)
        Me.gridVermerke.TabIndex = 70
        Me.gridVermerke.TabStop = False
        '
@@ -1162,25 +1020,27 @@ Partial Class usrcntlAktDetails
        '
        'pnlMAInfo
        '
+        Me.pnlMAInfo.Controls.Add(Me.lblSNDChat_MsgCnt)
        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_TRVorgeschrieben)
        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_TRVorgeschrieben)
        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR)
+        Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat)
        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben)
        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_VorbereitetQs)
        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_AbklaerungTR)
        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
        Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlMAInfo.Location = New System.Drawing.Point(0, 244)
+        Me.pnlMAInfo.Location = New System.Drawing.Point(0, 238)
        Me.pnlMAInfo.Name = "pnlMAInfo"
-        Me.pnlMAInfo.Size = New System.Drawing.Size(575, 28)
+        Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34)
        Me.pnlMAInfo.TabIndex = 106
        '
        'picMAinfo_TRVorgeschrieben
        '
        Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
        Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(437, 3)
+        Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 3)
        Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben"
        Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21)
        Me.picMAinfo_TRVorgeschrieben.TabIndex = 111
@@ -1194,11 +1054,11 @@ Partial Class usrcntlAktDetails
        Me.txtMAinfo_TRVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
        Me.txtMAinfo_TRVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
        Me.txtMAinfo_TRVorgeschrieben.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(469, 5)
+        Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(481, 5)
        Me.txtMAinfo_TRVorgeschrieben.MaxLength = 0
        Me.txtMAinfo_TRVorgeschrieben.Name = "txtMAinfo_TRVorgeschrieben"
        Me.txtMAinfo_TRVorgeschrieben.ReadOnly = True
-        Me.txtMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(105, 14)
+        Me.txtMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(90, 14)
        Me.txtMAinfo_TRVorgeschrieben.TabIndex = 112
        Me.txtMAinfo_TRVorgeschrieben.TabStop = False
        Me.txtMAinfo_TRVorgeschrieben.Text = "-"
@@ -1208,7 +1068,7 @@ Partial Class usrcntlAktDetails
        '
        Me.picMAinfo_AbklaerungTR.BackgroundImage = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv
        Me.picMAinfo_AbklaerungTR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(36, 4)
+        Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(76, 4)
        Me.picMAinfo_AbklaerungTR.Name = "picMAinfo_AbklaerungTR"
        Me.picMAinfo_AbklaerungTR.Size = New System.Drawing.Size(26, 21)
        Me.picMAinfo_AbklaerungTR.TabIndex = 109
@@ -1218,7 +1078,7 @@ Partial Class usrcntlAktDetails
        '
        Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
        Me.picMAinfo_Vorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(304, 4)
+        Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(326, 4)
        Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben"
        Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21)
        Me.picMAinfo_Vorgeschrieben.TabIndex = 107
@@ -1228,7 +1088,7 @@ Partial Class usrcntlAktDetails
        '
        Me.picMAinfo_VorbereitetQs.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorbereitet_InAktiv
        Me.picMAinfo_VorbereitetQs.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(160, 4)
+        Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(200, 4)
        Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs"
        Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21)
        Me.picMAinfo_VorbereitetQs.TabIndex = 0
@@ -1241,7 +1101,7 @@ Partial Class usrcntlAktDetails
        Me.txtMAinfo_AbklaerungTR.Cursor = System.Windows.Forms.Cursors.Hand
        Me.txtMAinfo_AbklaerungTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
        Me.txtMAinfo_AbklaerungTR.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(68, 6)
+        Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(105, 6)
        Me.txtMAinfo_AbklaerungTR.MaxLength = 0
        Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR"
        Me.txtMAinfo_AbklaerungTR.ReadOnly = True
@@ -1257,11 +1117,11 @@ Partial Class usrcntlAktDetails
        Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
        Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
        Me.txtMAinfo_Vorgeschrieben.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(336, 6)
+        Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(355, 6)
        Me.txtMAinfo_Vorgeschrieben.MaxLength = 0
        Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben"
        Me.txtMAinfo_Vorgeschrieben.ReadOnly = True
-        Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(105, 14)
+        Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(90, 14)
        Me.txtMAinfo_Vorgeschrieben.TabIndex = 108
        Me.txtMAinfo_Vorgeschrieben.TabStop = False
        Me.txtMAinfo_Vorgeschrieben.Text = "-"
@@ -1273,11 +1133,11 @@ Partial Class usrcntlAktDetails
        Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand
        Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
        Me.txtMAinfo_VorbereitetQs.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(192, 6)
+        Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(230, 6)
        Me.txtMAinfo_VorbereitetQs.MaxLength = 0
        Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs"
        Me.txtMAinfo_VorbereitetQs.ReadOnly = True
-        Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(105, 14)
+        Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(90, 14)
        Me.txtMAinfo_VorbereitetQs.TabIndex = 106
        Me.txtMAinfo_VorbereitetQs.TabStop = False
        Me.txtMAinfo_VorbereitetQs.Text = "-"
@@ -1285,7 +1145,7 @@ Partial Class usrcntlAktDetails
        'Panel8
        '
        Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel8.Controls.Add(Me.Label1)
+        Me.Panel8.Controls.Add(Me.lblLKWChat_MsgCnt)
        Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme)
        Me.Panel8.Controls.Add(Me.picAVISOMessenger)
        Me.Panel8.Controls.Add(Me.btnAktUebernehmen)
@@ -1313,6 +1173,20 @@ Partial Class usrcntlAktDetails
        Me.Panel8.Size = New System.Drawing.Size(575, 120)
        Me.Panel8.TabIndex = 92
        '
+        'lblLKWChat_MsgCnt
+        '
+        Me.lblLKWChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblLKWChat_MsgCnt.BackColor = System.Drawing.Color.Red
+        Me.lblLKWChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblLKWChat_MsgCnt.ForeColor = System.Drawing.Color.White
+        Me.lblLKWChat_MsgCnt.Location = New System.Drawing.Point(187, 106)
+        Me.lblLKWChat_MsgCnt.Name = "lblLKWChat_MsgCnt"
+        Me.lblLKWChat_MsgCnt.Size = New System.Drawing.Size(25, 13)
+        Me.lblLKWChat_MsgCnt.TabIndex = 104
+        Me.lblLKWChat_MsgCnt.Text = "99"
+        Me.lblLKWChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblLKWChat_MsgCnt.Visible = False
+        '
        'lblBarZuKassierenSumme
        '
        Me.lblBarZuKassierenSumme.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1326,6 +1200,19 @@ Partial Class usrcntlAktDetails
        Me.lblBarZuKassierenSumme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblBarZuKassierenSumme.Visible = False
        '
+        'picAVISOMessenger
+        '
+        Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessenger.Location = New System.Drawing.Point(167, 74)
+        Me.picAVISOMessenger.Name = "picAVISOMessenger"
+        Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40)
+        Me.picAVISOMessenger.TabIndex = 103
+        Me.picAVISOMessenger.TabStop = False
+        Me.picAVISOMessenger.Visible = False
+        '
        'btnAktUebernehmen
        '
        Me.btnAktUebernehmen.BackColor = System.Drawing.Color.WhiteSmoke
@@ -2174,32 +2061,177 @@ Partial Class usrcntlAktDetails
        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button10.UseVisualStyleBackColor = False
        '
-        'Label1
+        'lblSNDChat_MsgCnt
        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label1.BackColor = System.Drawing.Color.Red
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Bold)
-        Me.Label1.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(197, 105)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(20, 13)
-        Me.Label1.TabIndex = 104
-        Me.Label1.Text = "99"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.Label1.Visible = False
+        Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
+        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
+        Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
+        Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
+        Me.lblSNDChat_MsgCnt.TabIndex = 111
+        Me.lblSNDChat_MsgCnt.Text = "99"
+        Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblSNDChat_MsgCnt.Visible = False
        '
-        'picAVISOMessenger
+        'picAVISOMessengerSNDChat
        '
-        Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
-        Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessenger.Location = New System.Drawing.Point(168, 75)
-        Me.picAVISOMessenger.Name = "picAVISOMessenger"
-        Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40)
-        Me.picAVISOMessenger.TabIndex = 103
-        Me.picAVISOMessenger.TabStop = False
-        Me.picAVISOMessenger.Visible = False
+        Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
+        Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
+        Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
+        Me.picAVISOMessengerSNDChat.TabIndex = 110
+        Me.picAVISOMessengerSNDChat.TabStop = False
+        Me.picAVISOMessengerSNDChat.Visible = False
+        '
+        'txtSendungen
+        '
+        Me.txtSendungen._DateTimeOnly = False
+        Me.txtSendungen._numbersOnly = True
+        Me.txtSendungen._numbersOnlyKommastellen = ""
+        Me.txtSendungen._numbersOnlyTrennzeichen = True
+        Me.txtSendungen._Prozent = False
+        Me.txtSendungen._ShortDateNew = False
+        Me.txtSendungen._ShortDateOnly = False
+        Me.txtSendungen._TimeOnly = False
+        Me.txtSendungen._TimeOnly_Seconds = False
+        Me.txtSendungen._value = ""
+        Me.txtSendungen._Waehrung = False
+        Me.txtSendungen._WaehrungZeichen = True
+        Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSendungen.ForeColor = System.Drawing.Color.Black
+        Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
+        Me.txtSendungen.MaxLineLength = -1
+        Me.txtSendungen.MaxLines_Warning = ""
+        Me.txtSendungen.MaxLines_Warning_Label = Nothing
+        Me.txtSendungen.Name = "txtSendungen"
+        Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
+        Me.txtSendungen.TabIndex = 1
+        Me.txtSendungen.Text = "1"
+        Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtSndFremd
+        '
+        Me.txtSndFremd._DateTimeOnly = False
+        Me.txtSndFremd._numbersOnly = True
+        Me.txtSndFremd._numbersOnlyKommastellen = ""
+        Me.txtSndFremd._numbersOnlyTrennzeichen = True
+        Me.txtSndFremd._Prozent = False
+        Me.txtSndFremd._ShortDateNew = False
+        Me.txtSndFremd._ShortDateOnly = False
+        Me.txtSndFremd._TimeOnly = False
+        Me.txtSndFremd._TimeOnly_Seconds = False
+        Me.txtSndFremd._value = ""
+        Me.txtSndFremd._Waehrung = False
+        Me.txtSndFremd._WaehrungZeichen = True
+        Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
+        Me.txtSndFremd.MaxLineLength = -1
+        Me.txtSndFremd.MaxLines_Warning = ""
+        Me.txtSndFremd.MaxLines_Warning_Label = Nothing
+        Me.txtSndFremd.Name = "txtSndFremd"
+        Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFremd.TabIndex = 83
+        Me.txtSndFremd.Text = "0"
+        Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtSndFremd.Visible = False
+        '
+        'txtSndFiskalDE
+        '
+        Me.txtSndFiskalDE._DateTimeOnly = False
+        Me.txtSndFiskalDE._numbersOnly = True
+        Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
+        Me.txtSndFiskalDE._Prozent = False
+        Me.txtSndFiskalDE._ShortDateNew = False
+        Me.txtSndFiskalDE._ShortDateOnly = False
+        Me.txtSndFiskalDE._TimeOnly = False
+        Me.txtSndFiskalDE._TimeOnly_Seconds = False
+        Me.txtSndFiskalDE._value = ""
+        Me.txtSndFiskalDE._Waehrung = False
+        Me.txtSndFiskalDE._WaehrungZeichen = True
+        Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
+        Me.txtSndFiskalDE.MaxLineLength = -1
+        Me.txtSndFiskalDE.MaxLines_Warning = ""
+        Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
+        Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
+        Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFiskalDE.TabIndex = 5
+        Me.txtSndFiskalDE.Text = "0"
+        Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtSndFiskalAT
+        '
+        Me.txtSndFiskalAT._DateTimeOnly = False
+        Me.txtSndFiskalAT._numbersOnly = True
+        Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
+        Me.txtSndFiskalAT._Prozent = False
+        Me.txtSndFiskalAT._ShortDateNew = False
+        Me.txtSndFiskalAT._ShortDateOnly = False
+        Me.txtSndFiskalAT._TimeOnly = False
+        Me.txtSndFiskalAT._TimeOnly_Seconds = False
+        Me.txtSndFiskalAT._value = ""
+        Me.txtSndFiskalAT._Waehrung = False
+        Me.txtSndFiskalAT._WaehrungZeichen = True
+        Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
+        Me.txtSndFiskalAT.MaxLineLength = -1
+        Me.txtSndFiskalAT.MaxLines_Warning = ""
+        Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
+        Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
+        Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFiskalAT.TabIndex = 3
+        Me.txtSndFiskalAT.Text = "0"
+        Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'cboFormulareRgAn
+        '
+        Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
+        Me.cboFormulareRgAn._allowFreiText = False
+        Me.cboFormulareRgAn._value = ""
+        Me.cboFormulareRgAn.FormattingEnabled = True
+        Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
+        Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
+        Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
+        Me.cboFormulareRgAn.TabIndex = 108
+        '
+        'cbxLZRg
+        '
+        Me.cbxLZRg._value = ""
+        Me.cbxLZRg.AutoSize = True
+        Me.cbxLZRg.Checked = True
+        Me.cbxLZRg.Checked_value = False
+        Me.cbxLZRg.CheckedValue = False
+        Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
+        Me.cbxLZRg.Name = "cbxLZRg"
+        Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
+        Me.cbxLZRg.TabIndex = 115
+        Me.cbxLZRg.Text = "Rechnungen"
+        Me.cbxLZRg.UseVisualStyleBackColor = True
+        '
+        'cbxLZT1
+        '
+        Me.cbxLZT1._value = ""
+        Me.cbxLZT1.AutoSize = True
+        Me.cbxLZT1.Checked_value = False
+        Me.cbxLZT1.CheckedValue = False
+        Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
+        Me.cbxLZT1.Name = "cbxLZT1"
+        Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
+        Me.cbxLZT1.TabIndex = 114
+        Me.cbxLZT1.Text = "T1"
+        Me.cbxLZT1.UseVisualStyleBackColor = True
+        Me.cbxLZT1.Visible = False
        '
        'usrcntlAktDetails
        '
@@ -2237,6 +2269,7 @@ Partial Class usrcntlAktDetails
        CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel8.ResumeLayout(False)
        Me.Panel8.PerformLayout()
+        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlAbgeschlossen.ResumeLayout(False)
        Me.pnlAbgeschlossen.PerformLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2258,7 +2291,7 @@ Partial Class usrcntlAktDetails
        Me.conMenuVermerke.ResumeLayout(False)
        Me.cntxtFormulare.ResumeLayout(False)
        Me.pnlOptionen.ResumeLayout(False)
-        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -2398,6 +2431,8 @@ Partial Class usrcntlAktDetails
    Friend WithEvents Button16 As Button
    Friend WithEvents picMAinfo_TRVorgeschrieben As PictureBox
    Friend WithEvents txtMAinfo_TRVorgeschrieben As TextBox
-    Friend WithEvents Label1 As Label
+    Friend WithEvents lblLKWChat_MsgCnt As Label
    Friend WithEvents picAVISOMessenger As PictureBox
+    Friend WithEvents lblSNDChat_MsgCnt As Label
+    Friend WithEvents picAVISOMessengerSNDChat As PictureBox
 End Class
--- a/Aviso/usrcntlAktDetails.vb
+++ b/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