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

Bankverbindung, Messenger History

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-10 09:06:53 +01:00
parent ea01d6026b
commit 54ab569448
3 changed files with 341 additions and 340 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -836,7 +836,7 @@ Public Class frmMessenger
If dgvChats.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie diesen Chat wirklich deaktivieren?", vbYesNoCancel) Then
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, "100")
SplitContainer1.Enabled = True
CHAT.chat_aktiv = Not CHAT.chat_aktiv
CHAT.SAVE(False)
@@ -1098,7 +1098,8 @@ Public Class frmMessenger
Dim dateTmp = InputBox("Bitte geben Sie das Datum ein, ab dem der Chat dargestellt werden soll:",, Now.AddMonths(-1).ToShortDateString)
If IsDate(dateTmp) Then
topMessagesDateHistory = CDate(dateTmp)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(CHAT.chat_id, 1, topMessagesDateHistory)
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(CHAT.chat_id, "200", topMessagesDateHistory)
SplitContainer1.Enabled = True
RELOAD_CHAT()
Else
MsgBox("Datum ungültig!")