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

Anpassung Dakosy BOX 9.2,

Browse Source 
CHAT->Aus Zw.Ablage einfügen
This commit is contained in:
Andreas Luxbauer
2022-10-30 22:30:38 +01:00
parent 5958224ac0
commit ab22b659af
10 changed files with 2038 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -1,4 +1,5 @@
Imports System.Drawing
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
@@ -11,6 +12,7 @@ Public Class frmMessenger
Dim loaded = False
Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
Public EMOJI_PATH = ""
Public AvisoId As Integer = -1
Dim alloweasteregg = False
@@ -23,6 +25,8 @@ Public Class frmMessenger
End Sub
Sub initEMOJI_PATH()
EMOJI_PATH = EMOJI_PATH_MAIN
@@ -77,7 +81,26 @@ Public Class frmMessenger
rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START()
TimerNEW_MESSAGE.Enabled = True
intiDGVChats()
If AvisoId > 0 Then
CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(AvisoId, -1, topMessages, topMessagesDateHistory)
SplitContainer1.Enabled = True
RELOAD_CHAT()
SplitContainer.Panel1Collapsed = True
SplitContainer.Panel1.Enabled = False
' Panel3.Enabled = True
SplitContainer1.Enabled = True
'MsgBox("O")
Else
intiDGVChats()
End If
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
' Button8.Visible = True
@@ -358,6 +381,7 @@ Public Class frmMessenger
Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged
If Not loaded Then Exit Sub
topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate
@@ -389,10 +413,10 @@ Public Class frmMessenger
If CHAT.chat_name <> "" Then
lblChatName.Text = CHAT.chat_name
Button5.BackgroundImage = My.Resources.people
btnTeilnehmer.BackgroundImage = My.Resources.people
Else
lblChatName.Text = SQL.getValueTxtBySql("SELECT isnull(mit_vname,'') + ' ' + isnull(mit_nname,'') FROM [tblMessenger_ChatMembers] inner join tblMitarbeiter on mit_id=chatMb_maId where chatMb_chatId ='" & CHAT.chat_id & "' and chatMb_maId<>'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN")
Button5.BackgroundImage = My.Resources.person
btnTeilnehmer.BackgroundImage = My.Resources.person
End If
End If
checkOnlineOffline()
@@ -416,18 +440,18 @@ Public Class frmMessenger
Try
If CHAT Is Nothing OrElse CHAT.chat_name <> "" Then
lblOnlineOffline.Visible = False
Else
lblOnlineOffline.Visible = False
Else
lblOnlineOffline.Visible = True
Dim cntOnline = SQL.getValueTxtBySql("SELECT count(*) 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 & "'", "ADMIN")
If cntOnline > 0 Then
lblOnlineOffline.Text = "ONLINE"
lblOnlineOffline.BackColor = Color.MediumSeaGreen
Else
lblOnlineOffline.Text = "OFFLINE"
lblOnlineOffline.BackColor = Color.Red
lblOnlineOffline.Text = "ONLINE"
lblOnlineOffline.BackColor = Color.MediumSeaGreen
Else
lblOnlineOffline.Text = "OFFLINE"
lblOnlineOffline.BackColor = Color.Red
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -721,6 +745,9 @@ Public Class frmMessenger
AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' ORDER BY chat_lastMsg DESC", "ADMIN")
Dim Dt_Current As DataTable = dgvChats.DataSource
If Dt_New Is Nothing Then Return True
If Dt_Current Is Nothing Then Return True
If Dt_Current.Rows.Count <> Dt_New.Rows.Count Then Return True
For Each r As DataRow In Dt_New.Rows
@@ -742,7 +769,7 @@ Public Class frmMessenger
Private Sub frmMessenger_Shown(sender As Object, e As EventArgs) Handles Me.Shown
dgvChats.ClearSelection()
SplitContainer1.Enabled = False
If AvisoId <= 0 Then SplitContainer1.Enabled = False
loaded = True
End Sub
@@ -864,7 +891,7 @@ Public Class frmMessenger
End If
End Sub
Sub saveFileAtt(filePath)
Sub saveFileAtt(filePath, Optional reloadChat = True)
Dim fileName = New IO.FileInfo(filePath).Name
Dim docId = -1
If saveToDS(fileName, filePath, docId) Then
@@ -877,12 +904,14 @@ Public Class frmMessenger
MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
SEND_TOKEN_NEW_MESSAGE()
' CHAT.CHAT_MESSAGES.Add(MSG)
SET_ALL_READ()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
If reloadChat Then
SEND_TOKEN_NEW_MESSAGE()
' CHAT.CHAT_MESSAGES.Add(MSG)
SET_ALL_READ()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
End If
End If
End If
End Sub
@@ -984,7 +1013,7 @@ Public Class frmMessenger
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnTeilnehmer.Click
If CHAT Is Nothing Then Exit Sub
If CHAT.chat_name <> "" Then
@@ -1045,4 +1074,62 @@ Public Class frmMessenger
Dim f As New frmMessenger_SonstigeNEW()
f.ShowDialog(Me)
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT IsNot Nothing Then
Dim data As IDataObject = Clipboard.GetDataObject
If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
Dim added = False
If My.Computer.Clipboard.ContainsImage() Then
Dim grabpicture As System.Drawing.Image
grabpicture = My.Computer.Clipboard.GetImage()
Dim imagePath = IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
While IO.File.Exists(imagePath)
imagePath = IO.Path.GetTempPath & "\Screenshot_" & Now.ToString("ddMMyyyy_HHmmss") & ".jpg"
End While
grabpicture.Save(imagePath)
saveFileAtt(imagePath, False)
added = True
Else
For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If IO.File.Exists(s) Then
saveFileAtt(s, False)
added = True
End If
Next
End If
If added Then
'CHAT neu laden!
SEND_TOKEN_NEW_MESSAGE()
SET_ALL_READ()
REFRESH_CHAT()
rtbChatMessage.Text = ""
rtbChatMessage.Focus()
End If
End If
End If
End Sub
Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean
Select Case extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF"
Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
Return True
End Function
End Class