edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-04 10:12:10 +02:00
parent c75aab7a87
commit 4fea6e3470
8 changed files with 142 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

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