LKW CHAT OnlineStatus; SDL Bestelldatum Überfällige BEstellungen (PLOSE); REchnugnsnsuche (Abs+Empf); VZ-Preise IMEX +Avisokosten

2023-10-04 10:12:10 +02:00
parent c75aab7a87
commit 4fea6e3470
8 changed files with 142 additions and 46 deletions
--- a/SDL/Fakturierung/frmRechnungenSuche.vb
+++ b/SDL/Fakturierung/frmRechnungenSuche.vb
@@ -527,14 +527,30 @@ Public Class frmRechnungenSuche
    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
+
+        Dim sqlstr As String = ""
+        ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+        sqlstr &= "SELECT  RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum,  isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
+                "  isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " &
+                " FROM [Rechnungsausgang] WHERE 1=1 "
+        Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList)
+
+
+
        Me.Cursor = Cursors.WaitCursor
        'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
        If brexitXLS Then
-            cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
+            cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£")
        Else
-            cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
+            cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)})
        End If
        Me.Cursor = Cursors.Default
+        'If brexitXLS Then
+        '    cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
+        'Else
+        '    cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)})
+        'End If
+        'Me.Cursor = Cursors.Default
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
@@ -171,6 +171,7 @@
                        dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")

                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2"))
@@ -199,6 +200,7 @@
                        dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))

@@ -221,6 +223,7 @@
                        '    dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))

                    Case "VZ_FISKAL"

@@ -242,6 +245,7 @@
                        dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))
                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))

                       ' cboFirma.changeItem("CS")
@@ -267,6 +271,7 @@
                        dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))
                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))

                       ' cboFirma.changeItem("AG")
@@ -287,6 +292,7 @@

                        dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
                        dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
+                        dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))

                    Case "EUST"

--- 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("1.2.5.5")>
-<Assembly: AssemblyFileVersion("1.2.5.5")>
+<Assembly: AssemblyVersion("1.2.5.7")>
+<Assembly: AssemblyFileVersion("1.2.5.7")>
--- a/SDL/mdm/usrCntlKartenDaten.vb
+++ b/SDL/mdm/usrCntlKartenDaten.vb
@@ -1088,15 +1088,20 @@ Public Class usrCntlKartenDaten
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

-        cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
+        Dim von = Now.AddMonths(-6)

+        Select Case aktSDLNr
+            Case "213", "214", "215", "216", "217", "211" : von = "01.01.2000"
+        End Select
+        cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
+        'Now.AddMonths(-6) -_> Lieferdatum vormals -6M

        Exit Sub

        If kdNr > 0 Then
-            cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
+            cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
        ElseIf dgvSDL.SelectedRows.Count > 0 Then
-            cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
+            cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
        End If
    End Sub

--- a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb
@@ -140,6 +140,25 @@ Public Class cSession
        Return False

    End Function
+    Public Shared Function IS_ONLINE_Status(sess_maId, Optional andIsRealUser = False) As String
+        Try
+            Dim SQL As New SQL
+            Dim where = ""
+            If andIsRealUser Then where = " AND  mit_pseudoUser=0 "
+            Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_lastRm FROM   tblSessions   where  sess_maId='" & sess_maId & "' and  sess_lastActivity > dateadd(MINUTE,-120, getdate()) and sess_lastRm > dateadd(MINUTE,-2, getdate()) AND  sess_logout is null ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, Nothing)
+            If sess_IdOnline IsNot Nothing AndAlso IsDate(sess_IdOnline) AndAlso sess_IdOnline > CDate("01.01.2000") Then
+                If DateDiff(DateInterval.Minute, CDate(sess_IdOnline), Now) > 10 Then
+                    Return "AFK"
+                Else
+                    Return "ONLINE"
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return "OFFLINE"
+
+    End Function


    Public Shared Function GET_IP_FROM_MAID(sess_maId) As String
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
@@ -24,6 +24,7 @@ Partial Class frmMessenger
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        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()
@@ -38,11 +39,11 @@ Partial Class frmMessenger
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
        Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Panel6 = New System.Windows.Forms.Panel()
        Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
        Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
-        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -63,7 +64,7 @@ Partial Class frmMessenger
        Me.btnNeu = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -76,9 +77,6 @@ Partial Class frmMessenger
        Me.pnlTeilnehmer = New System.Windows.Forms.Panel()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
-        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Panel8 = New System.Windows.Forms.Panel()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Panel9 = New System.Windows.Forms.Panel()
@@ -90,14 +88,18 @@ Partial Class frmMessenger
        Me.btnSendAtt = New System.Windows.Forms.Button()
        Me.btnSenden = New System.Windows.Forms.Button()
        Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
-        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
-        Me.Timer_REFRESH = New System.Windows.Forms.Timer()
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
+        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer.Panel1.SuspendLayout()
        Me.SplitContainer.Panel2.SuspendLayout()
@@ -744,7 +746,7 @@ Partial Class frmMessenger
        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma})
+        Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma, Me.clmnStatus})
        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -771,31 +773,6 @@ Partial Class frmMessenger
        Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146)
        Me.dgvChatMembers.TabIndex = 8
        '
-        'clmnMaId
-        '
-        Me.clmnMaId.HeaderText = "Column1"
-        Me.clmnMaId.MinimumWidth = 8
-        Me.clmnMaId.Name = "clmnMaId"
-        Me.clmnMaId.ReadOnly = True
-        Me.clmnMaId.Visible = False
-        Me.clmnMaId.Width = 150
-        '
-        'clmnName
-        '
-        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.clmnName.HeaderText = "Name"
-        Me.clmnName.MinimumWidth = 8
-        Me.clmnName.Name = "clmnName"
-        Me.clmnName.ReadOnly = True
-        '
-        'clmnFirma
-        '
-        Me.clmnFirma.HeaderText = "Firma"
-        Me.clmnFirma.MinimumWidth = 8
-        Me.clmnFirma.Name = "clmnFirma"
-        Me.clmnFirma.ReadOnly = True
-        Me.clmnFirma.Width = 85
-        '
        'Panel8
        '
        Me.Panel8.BackColor = System.Drawing.SystemColors.Control
@@ -978,6 +955,38 @@ Partial Class frmMessenger
        Me.DataGridViewTextBoxColumn3.ReadOnly = True
        Me.DataGridViewTextBoxColumn3.Width = 150
        '
+        'clmnMaId
+        '
+        Me.clmnMaId.HeaderText = "Column1"
+        Me.clmnMaId.MinimumWidth = 8
+        Me.clmnMaId.Name = "clmnMaId"
+        Me.clmnMaId.ReadOnly = True
+        Me.clmnMaId.Visible = False
+        Me.clmnMaId.Width = 150
+        '
+        'clmnName
+        '
+        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnName.HeaderText = "Name"
+        Me.clmnName.MinimumWidth = 8
+        Me.clmnName.Name = "clmnName"
+        Me.clmnName.ReadOnly = True
+        '
+        'clmnFirma
+        '
+        Me.clmnFirma.HeaderText = "Firma"
+        Me.clmnFirma.MinimumWidth = 8
+        Me.clmnFirma.Name = "clmnFirma"
+        Me.clmnFirma.ReadOnly = True
+        Me.clmnFirma.Width = 85
+        '
+        'clmnStatus
+        '
+        Me.clmnStatus.HeaderText = ""
+        Me.clmnStatus.Name = "clmnStatus"
+        Me.clmnStatus.ReadOnly = True
+        Me.clmnStatus.Width = 20
+        '
        'frmMessenger
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1080,9 +1089,6 @@ Partial Class frmMessenger
    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
-    Friend WithEvents clmnMaId As DataGridViewTextBoxColumn
-    Friend WithEvents clmnName As DataGridViewTextBoxColumn
-    Friend WithEvents clmnFirma As DataGridViewTextBoxColumn
    Friend WithEvents Panel9 As Panel
    Friend WithEvents Panel2 As Panel
    Friend WithEvents Panel1 As Panel
@@ -1094,4 +1100,8 @@ Partial Class frmMessenger
    Friend WithEvents UsrCntlChat_Art_Btn_SNDCHAT As usrCntlChat_Art_Btn
    Friend WithEvents lblLKWChat_MsgCntInaktiv As Label
    Friend WithEvents toolChatReminder As ToolStripMenuItem
+    Friend WithEvents clmnMaId As DataGridViewTextBoxColumn
+    Friend WithEvents clmnName As DataGridViewTextBoxColumn
+    Friend WithEvents clmnFirma As DataGridViewTextBoxColumn
+    Friend WithEvents clmnStatus As DataGridViewTextBoxColumn
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx
@@ -126,6 +126,9 @@
  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="clmnStatus.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="TimerNEW_MESSAGE.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
@@ -826,6 +826,8 @@ Public Class frmMessenger
                End If
            Next

+
+
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
@@ -1227,7 +1229,19 @@ Public Class frmMessenger

            For Each MB In CHAT.CHAT_MEMBERS
                Dim MA As New cMitarbeiter(MB.chatMb_maId)
-                .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
+
+                .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma), VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE_Status((MA.mit_id))})
+            Next
+
+
+            For Each row As DataGridViewRow In .Rows
+                Select Case row.Cells("clmnStatus").Value
+                    Case "AFK" : row.Cells("clmnStatus").Style.BackColor = Color.Orange : row.Cells("clmnStatus").Style.ForeColor = Color.Orange
+                    Case "ONLINE" : row.Cells("clmnStatus").Style.BackColor = Color.Green : row.Cells("clmnStatus").Style.ForeColor = Color.Green
+                    Case "OFFLINE" : row.Cells("clmnStatus").Style.BackColor = Color.Red : row.Cells("clmnStatus").Style.ForeColor = Color.Red
+                    Case Else : row.Cells("clmnStatus").Style.BackColor = Color.White
+                End Select
+
            Next
            .ClearSelection()
        End With
@@ -1235,6 +1249,29 @@ Public Class frmMessenger



+    'Function checkOnlineOfflineMA(mit_id)
+    '    Try
+
+    '        Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT sess_Id FROM [tblMessenger_ChatMembers] inner join tblSessions  ON sess_maId=[chatMb_maId] and sess_lastRm > dateadd(MINUTE,-2, getdate()) where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1)
+    '        If sess_IdOnline > 0 Then
+
+    '                Dim SESSION As New cSession(sess_IdOnline)
+    '                If DateDiff(DateInterval.Minute, If(SESSION.sess_lastActivity, Now), Now) > 10 Then
+    '                    Return "AFK"
+    '                Else
+    '                    Return "ONLINE"
+    '                End If
+    '            Else
+    '                Return "OFFLINE"
+    '            End If
+
+
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message & ex.StackTrace)
+    '    End Try
+    '    Return ""
+    'End Function
+
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnMemberAdd.Click
        Dim f As New frmMessenger_NeuerChat(CHAT)
        f.ShowDialog()