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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2022-11-14 12:13:07 +01:00
parent 6206f4cb02 d25a83ea3f
commit 359e125488
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -82,7 +82,7 @@ Public Class cMessenger
Dim dt = SQL.loadDgvBySql("SELECT [chat_id] FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0", "ADMIN")
For Each r In dt.Rows
Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id"))
Dim CHAT As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(r("chat_id"), 200)
LIST.Add(CHAT)
Next
Return LIST
@@ -112,7 +112,7 @@ Public Class cMessenger
End Sub
Sub New(chat_id As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
Sub New(chat_id As Integer, topMax As String, Optional dateTmp As Object = Nothing)
Me.chat_id = chat_id
Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.chat_erstelltAm = Now
@@ -125,7 +125,6 @@ Public Class cMessenger
Me.chat_art = "LKW_CHAT"
LOAD_ByLKW(chat_AvisoId, chat_SendungsId, chat_art, topMax, dateTmp)
End Sub