Layout Sendungen/LKWDetails

Aviso/My 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: AssemblyVersion("3.8.2.3")>
-<Assembly: AssemblyFileVersion("3.8.1.9")>
+<Assembly: AssemblyFileVersion("3.8.2.3")>

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
 

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.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label12.Location = New System.Drawing.Point(266, 42)
+        Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
-        Me.Label12.Name = "Label12"
+        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
-        Me.Label12.Size = New System.Drawing.Size(40, 13)
+        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
-        Me.Label12.TabIndex = 64
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(1073, 41)
-        Me.Label12.Text = "Fracht:"
+        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

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">

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

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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 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 DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 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.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
-        Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
+        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
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle2.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))
+        DataGridViewCellStyle2.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
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.dgvSendungen.ColumnHeadersHeight = 34
         Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.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))
+        DataGridViewCellStyle3.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
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13
+        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
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.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))
+        DataGridViewCellStyle4.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
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
+        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]
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15
+        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
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle7.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))
+        DataGridViewCellStyle7.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
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
         Me.gridVermerke.ColumnHeadersHeight = 34
         Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.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))
+        DataGridViewCellStyle8.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
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
+        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
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.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))
+        DataGridViewCellStyle9.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
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        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]
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
+        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.lblSNDChat_MsgCnt.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.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Bold)
+        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
-        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(197, 105)
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
-        Me.Label1.Name = "Label1"
+        Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
-        Me.Label1.Size = New System.Drawing.Size(20, 13)
+        Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
-        Me.Label1.TabIndex = 104
+        Me.lblSNDChat_MsgCnt.TabIndex = 111
-        Me.Label1.Text = "99"
+        Me.lblSNDChat_MsgCnt.Text = "99"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.Label1.Visible = False
+        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.picAVISOMessengerSNDChat.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.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
-        Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessenger.Location = New System.Drawing.Point(168, 75)
+        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
-        Me.picAVISOMessenger.Name = "picAVISOMessenger"
+        Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
-        Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40)
+        Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
-        Me.picAVISOMessenger.TabIndex = 103
+        Me.picAVISOMessengerSNDChat.TabIndex = 110
-        Me.picAVISOMessenger.TabStop = False
+        Me.picAVISOMessengerSNDChat.TabStop = False
-        Me.picAVISOMessenger.Visible = 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

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
+        Me.Cursor = Cursors.Default
-                If vbYes <> MsgBox("Möchten Sie dem LKW Chat beitreten?", vbYesNoCancel) Then
+
-                    Exit Sub
+
-                Else 'weiter...
+
-                End If
+    End Sub
-            End If
+
+    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()
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
-            f.Location = Cursor.Position
+            If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SND) Then
-            f.AvisoId = AvisoID
+                initSND_CHAT(SND.tblSnd_SendungID)
-            f.Show(Me)
+            End If
+
             Me.Cursor = Cursors.Default
-        End If
 
+        End If
 
     End Sub
 End Class