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

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

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>

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()