BH, Helferfunktionen, CHAT Refactor!!!!!!
This commit is contained in:
@@ -663,10 +663,36 @@ Public Class cIDS
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Shared Function checkInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim sqlTime As String = ""
|
||||
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
sqlTime = " And cast(YearMonthDay as Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
|
||||
End If
|
||||
|
||||
Dim SQLstr = "select Invoicenumber as RechnungsNr,YearMonthDay as Rechnungsdatum, Adressen.AdressenNr as KundenNr,Adressen.[Name 1] as Kunde, kde_keineMWSt from tblIDSInvoicesNew Inner join [tbl_IDS_Kunden] on [tbl_IDS_Kunden].CustomerCode =tblIDSInvoicesNew.CustomerCode and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 Inner join Adressen on Adressen.AdressenNr = [tbl_IDS_Kunden].KdNrVERAG INNER JOIN tblKundenErweitert on Adressen.AdressenNr = kde_KundenNr where DocumentName is null " & sqlTime & " group by Invoicenumber, Adressen.AdressenNr, Adressen.[Name 1], YearMonthDay, kde_keineMWSt"
|
||||
|
||||
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
|
||||
|
||||
Return dt
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function checkPartInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Try
|
||||
'Prüft, ob es zu Gesamtrechnungen Teilrechnungen gibt!
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim SQLstr = " "
|
||||
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
|
||||
@@ -308,7 +308,7 @@ Public Class cMessenger
|
||||
Next
|
||||
Me.LOAD_MEMBERS()
|
||||
If dateTmp Is Nothing Then
|
||||
Me.LOAD_MESSAGES(topMax)
|
||||
Me.LOAD_MESSAGES_NEW(topMax)
|
||||
Else
|
||||
Me.LOAD_MESSAGES_DATE(dateTmp)
|
||||
End If
|
||||
@@ -346,7 +346,7 @@ Public Class cMessenger
|
||||
|
||||
Me.LOAD_MEMBERS()
|
||||
If dateTmp Is Nothing Then
|
||||
Me.LOAD_MESSAGES()
|
||||
Me.LOAD_MESSAGES_NEW()
|
||||
Else
|
||||
Me.LOAD_MESSAGES_DATE(dateTmp)
|
||||
End If
|
||||
@@ -415,9 +415,9 @@ Public Class cMessenger
|
||||
cmd.Parameters.AddWithValue("@top", top)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) ' ----> 100 messages = 101 SQL calls
|
||||
'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) ' ----> 100 messages = 101 SQL calls
|
||||
'Hier werden die einzelnen MSg-Obj nicht mehr per SQL geladen, sondern direkt als Objekt übergeben -> schneller!
|
||||
'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_chatId"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Me.CHAT_MESSAGES.Add(MSG)
|
||||
End While
|
||||
dr.Close()
|
||||
@@ -431,6 +431,64 @@ Public Class cMessenger
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_MESSAGES_NEW(Optional top As Integer = 100)
|
||||
Try
|
||||
Me.CHAT_MESSAGES.Clear()
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
|
||||
Using cmd As New SqlCommand(
|
||||
"SELECT TOP (@top) chatMg_id, chatMg_chatId, chatMg_maId, chatMg_maName, chatMg_maFirma, chatMg_datetime, chatMg_type, chatMg_text, chatMg_anhang_docId, chatMg_referenz_AvisoId, chatMg_referenz_SendungsId, chatMg_referenz_KundenNr
|
||||
FROM tblMessenger_ChatMessages
|
||||
WHERE chatMg_chatId = @chat_id
|
||||
ORDER BY chatMg_datetime DESC", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@chat_id", chat_id)
|
||||
cmd.Parameters.AddWithValue("@top", top)
|
||||
|
||||
Using dr As SqlDataReader = cmd.ExecuteReader()
|
||||
While dr.Read()
|
||||
Dim chatMg_id As Integer? = SafeInt(dr("chatMg_id"))
|
||||
Dim chatMg_chatId As Integer? = SafeInt(dr("chatMg_chatId"))
|
||||
Dim chatMg_maId As Integer? = SafeInt(dr("chatMg_maId"))
|
||||
Dim chatMg_type As String = If(IsDBNull(dr("chatMg_type")), "", dr("chatMg_type").ToString())
|
||||
Dim chatMg_anhang_docId As Integer? = SafeInt(dr("chatMg_anhang_docId"))
|
||||
Dim chatMg_referenz_AvisoId As Integer? = SafeInt(dr("chatMg_referenz_AvisoId"))
|
||||
Dim chatMg_referenz_SendungsId As Integer? = SafeInt(dr("chatMg_referenz_SendungsId"))
|
||||
Dim chatMg_datetime As DateTime = If(IsDBNull(dr("chatMg_datetime")), DateTime.MinValue, Convert.ToDateTime(dr("chatMg_datetime")))
|
||||
Dim chatMg_maName As String = If(IsDBNull(dr("chatMg_maName")), "", dr("chatMg_maName").ToString())
|
||||
Dim chatMg_maFirma As String = If(IsDBNull(dr("chatMg_maFirma")), "", dr("chatMg_maFirma").ToString())
|
||||
Dim chatMg_text As String = If(IsDBNull(dr("chatMg_text")), "", dr("chatMg_text").ToString())
|
||||
Dim chatMg_referenz_KundenNr As String = If(IsDBNull(dr("chatMg_referenz_KundenNr")), "", dr("chatMg_referenz_KundenNr").ToString())
|
||||
|
||||
' Message-Objekt direkt erstellen
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_chatId"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr"))
|
||||
|
||||
Me.CHAT_MESSAGES.Add(MSG)
|
||||
End While
|
||||
End Using
|
||||
End Using
|
||||
End Using
|
||||
|
||||
' Nachrichten umdrehen, damit älteste zuerst angezeigt werden
|
||||
Me.CHAT_MESSAGES.Reverse()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in LOAD_MESSAGES: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function SafeInt(value As Object) As Integer?
|
||||
If IsDBNull(value) Then Return Nothing
|
||||
Dim s As String = value.ToString().Trim()
|
||||
Dim result As Integer
|
||||
If Integer.TryParse(s, result) Then
|
||||
Return result
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_MESSAGES_DATE(dateTmp As Date)
|
||||
Try
|
||||
Me.CHAT_MESSAGES.Clear()
|
||||
@@ -442,9 +500,9 @@ Public Class cMessenger
|
||||
|
||||
While dr.Read
|
||||
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) '----> 100 messages = 101 SQL calls
|
||||
'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id")) '----> 100 messages = 101 SQL calls
|
||||
'Hier werden die einzelnen MSg-Obj nicht mehr per SQL geladen, sondern direkt als Objekt übergeben -> schneller!
|
||||
'Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Dim MSG As New cMessenger_ChatMessages(dr.Item("chatMg_id"), dr.Item("chatMg_chatId"), dr.Item("chatMg_maId"), dr.Item("chatMg_datetime"), dr.Item("chatMg_maName"), dr.Item("chatMg_maFirma"), dr.Item("chatMg_type"), dr.Item("chatMg_text"), IIf(IsDBNull(dr.Item("chatMg_anhang_docId")), Nothing, dr.Item("chatMg_anhang_docId")), IIf(IsDBNull(dr.Item("chatMg_referenz_AvisoId")), Nothing, dr.Item("chatMg_referenz_AvisoId")), IIf(IsDBNull(dr.Item("chatMg_referenz_SendungsId")), Nothing, dr.Item("chatMg_referenz_SendungsId")), dr.Item("chatMg_referenz_KundenNr")) 'Me.chat_id, dr.Item("chatMb_maId")) 'yxc
|
||||
Me.CHAT_MESSAGES.Add(MSG)
|
||||
|
||||
End While
|
||||
@@ -780,7 +838,8 @@ Public Class cMessenger
|
||||
Me.chatMg_maId = chatMg_maId
|
||||
End Sub
|
||||
|
||||
Sub New(chatMg_chatId, chatMg_maId, chatMg_datetime, chatMg_maName, chatMg_maFirma, chatMg_type, chatMg_text, chatMg_anhang_docId, chatMg_referenz_AvisoId, chatMg_referenz_SendungsId, chatMg_referenz_KundenNr)
|
||||
Sub New(chatMg_id, chatMg_chatId, chatMg_maId, chatMg_datetime, chatMg_maName, chatMg_maFirma, chatMg_type, chatMg_text, chatMg_anhang_docId, chatMg_referenz_AvisoId, chatMg_referenz_SendungsId, chatMg_referenz_KundenNr)
|
||||
Me.chatMg_id = chatMg_id
|
||||
Me.chatMg_chatId = chatMg_chatId
|
||||
Me.chatMg_maId = chatMg_maId
|
||||
Me.chatMg_datetime = chatMg_datetime
|
||||
|
||||
@@ -363,6 +363,31 @@ Public Class cRMC
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim sqlTime As String = ""
|
||||
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
sqlTime = " And cast([rmc_reDatum] As Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
|
||||
End If
|
||||
|
||||
Dim SQLstr = "Select rmc_reNr As RechnungsNr,rmc_reDatum As Rechnungsdatum, Adressen.AdressenNr As KundenNr,Adressen.[Name 1] As Kunde, kde_keineMWSt As keineMWST from [tblRMCImport] INNER JOIN Adressen On WölflKundenNr=[rmc_kdNr] Or weitereWölflKundenNr=[rmc_kdNr] INNER JOIN tblKundenErweitert On AdressenNr = kde_KundenNr where rmc_daId Is null " & sqlTime & " group by rmc_reNr, Adressen.AdressenNr, Adressen.[Name 1],rmc_reDatum, kde_keineMWSt"
|
||||
|
||||
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
|
||||
|
||||
Return dt
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
|
||||
Public Class Paramter
|
||||
|
||||
@@ -45,6 +45,31 @@ Public Class cUTA
|
||||
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblUTAImportNew] where InvToCustomer Is null ", "FMZOLL",,, -1)
|
||||
End Function
|
||||
|
||||
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim sqlTime As String = ""
|
||||
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
sqlTime = " And CAST(U.Rechnungsdatum As Date) BETWEEN '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
|
||||
End If
|
||||
|
||||
Dim SQLstr = "Select U.Abrechnungsnummer As Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum As Date) As Rechnungsdatum,A.AdressenNr As KundenNr,A.UTAKundenNr As UTAKundenNr,A.[Name 1] As Kunde,A.LandKz, kde_keineMWSt As keineMWST FROM tblUTAImportNew U INNER JOIN Adressen A On A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert On A.AdressenNr = kde_KundenNr WHERE U.daId Is NULL " & sqlTime & " AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM') GROUP BY U.Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,U.Rechnungsdatum,A.AdressenNr,A.UTAKundenNr ,A.[Name 1],A.LandKz, kde_keineMWSt ORDER BY U.Rechnungsdatum"
|
||||
|
||||
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
|
||||
|
||||
Return dt
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
|
||||
Public Class UTAHeader
|
||||
|
||||
Property Übertragungsnummer As Integer
|
||||
|
||||
@@ -64,7 +64,7 @@ Public Class frmMessenger
|
||||
|
||||
End Sub
|
||||
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellClick '.CellContentClick
|
||||
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
|
||||
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> 0 Then 'If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
|
||||
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
|
||||
intiDGVChats(dgv_ChatID, False) ' Splate ungelesen sol sich ändern
|
||||
End If
|
||||
@@ -216,7 +216,54 @@ Public Class frmMessenger
|
||||
" & where & "
|
||||
) as T " & whereName & " ORDER BY chat_lastMsg DESC"
|
||||
|
||||
.DataSource = SQL.loadDgvBySql(sqlQery, "ADMIN")
|
||||
|
||||
Dim sqlQery_optimiced As String = "SELECT TOP 200
|
||||
c.chat_id,
|
||||
|
||||
CASE
|
||||
WHEN ISNULL(c.chat_name, '') <> '' THEN c.chat_name
|
||||
ELSE names.chat_name
|
||||
END AS chat_name,
|
||||
|
||||
ISNULL(unread.ungelesen, 0) AS ungelesen,
|
||||
|
||||
c.chat_lastMsg
|
||||
|
||||
FROM tblMessenger_Chat c
|
||||
|
||||
-- ensure current user is member
|
||||
INNER JOIN tblMessenger_ChatMembers m
|
||||
ON m.chatMb_chatId = c.chat_id
|
||||
AND m.chatMb_maId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
|
||||
|
||||
-- 🔹 get participant names (distinct!)
|
||||
OUTER APPLY (
|
||||
SELECT STRING_AGG(name, ', ') AS chat_name
|
||||
FROM (
|
||||
SELECT DISTINCT
|
||||
mit.mit_vname + ' ' + mit.mit_nname AS name
|
||||
FROM tblMessenger_ChatMembers m2
|
||||
INNER JOIN tblMitarbeiter mit
|
||||
ON mit.mit_id = m2.chatMb_maId
|
||||
WHERE m2.chatMb_chatId = c.chat_id
|
||||
AND m2.chatMb_maId <> " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
|
||||
) x
|
||||
) names
|
||||
|
||||
-- 🔹 unread count separated (no duplication!)
|
||||
OUTER APPLY (
|
||||
SELECT COUNT(*) AS ungelesen
|
||||
FROM tblMessenger_ChatMessages msg
|
||||
INNER JOIN tblMessenger_ChatMessageStatus s
|
||||
ON s.chatMgSt_chatMsgId = msg.chatMg_id
|
||||
WHERE msg.chatMg_chatId = c.chat_id
|
||||
AND s.chatMgSt_MaId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "
|
||||
AND s.chatMgSt_gelesen = 0
|
||||
) unread WHERE c.chat_aktiv = " & IIf(Not cbxInaktiveChats.Checked, 1, 0) & "" & where & "ORDER BY c.chat_lastMsg DESC"
|
||||
|
||||
|
||||
|
||||
.DataSource = SQL.loadDgvBySql(sqlQery_optimiced, "ADMIN")
|
||||
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
|
||||
@@ -547,10 +594,19 @@ Public Class frmMessenger
|
||||
|
||||
If CHAT IsNot Nothing Then
|
||||
|
||||
CHAT.LOAD_MESSAGES(topMessages)
|
||||
CHAT.LOAD_MESSAGES_NEW(topMessages)
|
||||
|
||||
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
|
||||
Dim newMsg As Boolean = False
|
||||
|
||||
Dim existingIds As New HashSet(Of Integer)
|
||||
|
||||
For Each ctrl In MyFlowLayoutPanel1.Controls
|
||||
existingIds.Add(ctrl.CHAT_MSG.chatMg_id)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
For Each MSG In CHAT.CHAT_MESSAGES
|
||||
Dim found As Boolean = False
|
||||
For Each I In MyFlowLayoutPanel1.Controls
|
||||
@@ -602,6 +658,61 @@ Public Class frmMessenger
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub REFRESH_CHAT_NEW()
|
||||
Try
|
||||
If CHAT Is Nothing Then Exit Sub
|
||||
|
||||
' Load latest messages
|
||||
CHAT.LOAD_MESSAGES_NEW(topMessages)
|
||||
|
||||
' Build fast lookup for existing message IDs
|
||||
Dim existingIds As New HashSet(Of Integer)
|
||||
|
||||
For Each ctrl As Control In MyFlowLayoutPanel1.Controls
|
||||
Select Case ctrl.GetType()
|
||||
Case GetType(usrCntlMessenger_ChatElement)
|
||||
existingIds.Add(DirectCast(ctrl, usrCntlMessenger_ChatElement).CHAT_MSG.chatMg_id)
|
||||
|
||||
Case GetType(usrCntlMessenger_ChatAnhang)
|
||||
existingIds.Add(DirectCast(ctrl, usrCntlMessenger_ChatAnhang).CHAT_MSG.chatMg_id)
|
||||
|
||||
Case GetType(usrCntlMessenger_ChatEmoji)
|
||||
existingIds.Add(DirectCast(ctrl, usrCntlMessenger_ChatEmoji).CHAT_MSG.chatMg_id)
|
||||
|
||||
Case GetType(usrCntlMessenger_ChatElementDEL)
|
||||
existingIds.Add(DirectCast(ctrl, usrCntlMessenger_ChatElementDEL).CHAT_MSG.chatMg_id)
|
||||
End Select
|
||||
Next
|
||||
|
||||
Dim newMessageAdded As Boolean = False
|
||||
|
||||
MyFlowLayoutPanel1.SuspendLayout()
|
||||
|
||||
For Each MSG In CHAT.CHAT_MESSAGES
|
||||
If Not existingIds.Contains(MSG.chatMg_id) Then
|
||||
Dim ctrl = getControlFromMSG(MSG)
|
||||
If ctrl IsNot Nothing Then
|
||||
MyFlowLayoutPanel1.Controls.Add(ctrl)
|
||||
newMessageAdded = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
MyFlowLayoutPanel1.ResumeLayout()
|
||||
|
||||
If newMessageAdded Then
|
||||
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
|
||||
End If
|
||||
|
||||
checkOnlineOffline()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace,
|
||||
System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Sub ORDER_CHAT_MSG()
|
||||
' If Not CHECK_CHATMSG_ORDER() Then
|
||||
|
||||
@@ -689,15 +800,16 @@ 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()
|
||||
End If
|
||||
|
||||
End If
|
||||
SEND_TOKEN_NEW_MESSAGE()
|
||||
CHAT.CHAT_MESSAGES.Add(MSG)
|
||||
SET_ALL_READ()
|
||||
REFRESH_CHAT_NEW()
|
||||
rtbChatMessage.Text = ""
|
||||
rtbChatMessage.Focus()
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -753,13 +865,13 @@ Public Class frmMessenger
|
||||
If CHAT IsNot Nothing And VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True Then
|
||||
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False
|
||||
' MsgBox("asd")
|
||||
REFRESH_CHAT()
|
||||
REFRESH_CHAT_NEW()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
|
||||
loaded = False
|
||||
REFRESH_CHAT()
|
||||
REFRESH_CHAT_NEW()
|
||||
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
|
||||
If checkNewestShit() Then ' prüft, ob neue Nachrichten gekommen sind, sont kein Refresh (stört das scrollen)
|
||||
intiDGVChats(dgv_ChatID, False)
|
||||
@@ -871,7 +983,7 @@ Public Class frmMessenger
|
||||
If dgvChats.Columns.Count > 0 Then
|
||||
|
||||
If e.ColumnIndex = dgvChats.Columns("ungelesen").Index Then
|
||||
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
|
||||
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> 0 Then ' If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
|
||||
dgvChats.Rows(e.RowIndex).Cells("ungelesen").Style.BackColor = Color.Red
|
||||
End If
|
||||
'For Each r As DataGridViewRow In .Rows
|
||||
@@ -946,10 +1058,10 @@ Public Class frmMessenger
|
||||
|
||||
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
|
||||
If reloadChat Then
|
||||
CHAT.CHAT_MESSAGES.Add(MSG)
|
||||
SEND_TOKEN_NEW_MESSAGE()
|
||||
' CHAT.CHAT_MESSAGES.Add(MSG)
|
||||
SET_ALL_READ()
|
||||
REFRESH_CHAT()
|
||||
REFRESH_CHAT_NEW()
|
||||
rtbChatMessage.Text = ""
|
||||
rtbChatMessage.Focus()
|
||||
End If
|
||||
@@ -972,7 +1084,7 @@ Public Class frmMessenger
|
||||
SEND_TOKEN_NEW_MESSAGE()
|
||||
' CHAT.CHAT_MESSAGES.Add(MSG)
|
||||
SET_ALL_READ()
|
||||
REFRESH_CHAT()
|
||||
REFRESH_CHAT_NEW()
|
||||
'rtbChatMessage.Text = filePath
|
||||
'rtbChatMessage.Focus()
|
||||
End If
|
||||
@@ -1155,7 +1267,7 @@ Public Class frmMessenger
|
||||
'CHAT neu laden!
|
||||
SEND_TOKEN_NEW_MESSAGE()
|
||||
SET_ALL_READ()
|
||||
REFRESH_CHAT()
|
||||
REFRESH_CHAT_NEW()
|
||||
rtbChatMessage.Text = ""
|
||||
rtbChatMessage.Focus()
|
||||
End If
|
||||
|
||||
@@ -71,6 +71,31 @@ Public Class cMSEAPI
|
||||
Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblMSEInvoices] where InvToCustomer Is null ", "FMZOLL",,, -1)
|
||||
End Function
|
||||
|
||||
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim sqlTime As String = ""
|
||||
|
||||
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
|
||||
sqlTime = " And cast(invoice_date As Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
|
||||
End If
|
||||
|
||||
Dim SQLstr = "Select invoice_id As RechnungsNr,[invoice_date] As Rechnungsdatum, Adressen.AdressenNr As KundenNr,Adressen.[Name 1] As Kunde, kde_keineMWSt As keineMWST from tblMSEInvoices inner join [tblMSECustomers] On [customer_number] = [customer_id] INNER JOIN Adressen On Adressen.MSEKundenNr = [customer_number] INNER JOIN tblKundenErweitert On AdressenNr = kde_KundenNr where daId Is null " & sqlTime & " group by invoice_id, Adressen.AdressenNr, Adressen.[Name 1], invoice_date, kde_keineMWSt"
|
||||
|
||||
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
|
||||
|
||||
Return dt
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return Nothing
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user