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

Anzeige inaktive Chats

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-22 13:01:08 +01:00
parent 0b383aef86
commit d70a5875c5
3 changed files with 46 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -58,6 +58,10 @@ Public Class cMessenger
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_art='" & chat_art & "'", "ADMIN",,, 0)
End Function
Public Shared Function GET_NewMSG_COUNT_ART_INAKTIV(maId, chat_art) As Integer
If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_aktiv=0 AND chat_art='" & chat_art & "'", "ADMIN",,, 0)
End Function
Public Shared Function GET_NewMSG_COUNT_AVISOID(AvisoId As Integer) As Integer
Dim chat_id = SQL.DLookup("chat_id", "tblMessenger_ChatMembers inner join tblMessenger_Chat on chat_id=chatMb_chatId", "chat_AvisoId='" & AvisoId & "' and [chatMb_maId]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN", -1)

21
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -51,6 +51,7 @@ Partial Class frmMessenger
Me.Button9 = New System.Windows.Forms.Button()
Me.btnTEST = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
@@ -226,6 +227,7 @@ Partial Class frmMessenger
'
'Panel6
'
Me.Panel6.Controls.Add(Me.lblLKWChat_MsgCntInaktiv)
Me.Panel6.Controls.Add(Me.cbxInaktiveChats)
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel6.Location = New System.Drawing.Point(0, 773)
@@ -236,7 +238,7 @@ Partial Class frmMessenger
'cbxInaktiveChats
'
Me.cbxInaktiveChats.AutoSize = True
Me.cbxInaktiveChats.Location = New System.Drawing.Point(9, 3)
Me.cbxInaktiveChats.Location = New System.Drawing.Point(8, 3)
Me.cbxInaktiveChats.Name = "cbxInaktiveChats"
Me.cbxInaktiveChats.Size = New System.Drawing.Size(93, 17)
Me.cbxInaktiveChats.TabIndex = 7
@@ -396,10 +398,24 @@ Partial Class frmMessenger
Me.Panel2.Size = New System.Drawing.Size(275, 23)
Me.Panel2.TabIndex = 6
'
'lblLKWChat_MsgCntInaktiv
'
Me.lblLKWChat_MsgCntInaktiv.BackColor = System.Drawing.Color.Red
Me.lblLKWChat_MsgCntInaktiv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblLKWChat_MsgCntInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblLKWChat_MsgCntInaktiv.ForeColor = System.Drawing.Color.White
Me.lblLKWChat_MsgCntInaktiv.Location = New System.Drawing.Point(104, -1)
Me.lblLKWChat_MsgCntInaktiv.Name = "lblLKWChat_MsgCntInaktiv"
Me.lblLKWChat_MsgCntInaktiv.Size = New System.Drawing.Size(26, 23)
Me.lblLKWChat_MsgCntInaktiv.TabIndex = 106
Me.lblLKWChat_MsgCntInaktiv.Text = "99"
Me.lblLKWChat_MsgCntInaktiv.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblLKWChat_MsgCntInaktiv.Visible = False
'
'cbxInaktiveChatsSpecial
'
Me.cbxInaktiveChatsSpecial.AutoSize = True
Me.cbxInaktiveChatsSpecial.Location = New System.Drawing.Point(9, 5)
Me.cbxInaktiveChatsSpecial.Location = New System.Drawing.Point(8, 5)
Me.cbxInaktiveChatsSpecial.Name = "cbxInaktiveChatsSpecial"
Me.cbxInaktiveChatsSpecial.Size = New System.Drawing.Size(93, 17)
Me.cbxInaktiveChatsSpecial.TabIndex = 7
@@ -1068,4 +1084,5 @@ Partial Class frmMessenger
Friend WithEvents UsrCntlChat_Art_Btn_MACHAT As usrCntlChat_Art_Btn
Friend WithEvents UsrCntlChat_Art_Btn_LKWCHAT As usrCntlChat_Art_Btn
Friend WithEvents UsrCntlChat_Art_Btn_SNDCHAT As usrCntlChat_Art_Btn
Friend WithEvents lblLKWChat_MsgCntInaktiv As Label
End Class

23
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -205,6 +205,7 @@ Public Class frmMessenger
Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False)
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, "CHAT")
UsrCntlChat_Art_Btn_MACHAT.setCnt(newMsg)
@@ -214,6 +215,11 @@ Public Class frmMessenger
Dim newMsgSND = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, "SND_CHAT")
UsrCntlChat_Art_Btn_SNDCHAT.setCnt(newMsgSND)
'Anzeige, wenn inaktive Chats:
Dim newMsgLKW_Inaktiv = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART_INAKTIV(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, toggle_CHAT_ART)
lblLKWChat_MsgCntInaktiv.Text = newMsgLKW_Inaktiv
lblLKWChat_MsgCntInaktiv.Visible = (newMsgLKW_Inaktiv > 0)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein._LAN
Case "DE"
@@ -1269,6 +1275,9 @@ Public Class frmMessenger
Me.toggle_CHAT_ART = CHAT_ART
intiDGVChats()
loaded = True
End Sub
@@ -1286,5 +1295,19 @@ Public Class frmMessenger
sender.setAktiv()
End Sub
Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED
End Sub
Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED
End Sub
Private Sub UsrCntlChat_Art_Btn_LKWCHAT_Load(sender As Object, e As EventArgs)
End Sub
Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
End Sub
End Class