diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 61e34cfb..9ef3492a 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -527,14 +527,30 @@ Public Class frmRechnungenSuche End Sub Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + + Dim sqlstr As String = "" + ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & + " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & + " FROM [Rechnungsausgang] WHERE 1=1 " + Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) + + + Me.Cursor = Cursors.WaitCursor 'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) If brexitXLS Then - cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£") Else - cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)}) End If Me.Cursor = Cursors.Default + 'If brexitXLS Then + ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + 'Else + ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + 'End If + 'Me.Cursor = Cursors.Default End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 36242e9e..1a211f99 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -171,6 +171,7 @@ dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) @@ -199,6 +200,7 @@ dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) @@ -221,6 +223,7 @@ ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) Case "VZ_FISKAL" @@ -242,6 +245,7 @@ dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) ' cboFirma.changeItem("CS") @@ -267,6 +271,7 @@ dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) ' cboFirma.changeItem("AG") @@ -287,6 +292,7 @@ dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) Case "EUST" diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d0089b9a..4fe1efbb 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index 0d84a2f6..a1874211 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -1088,15 +1088,20 @@ Public Class usrCntlKartenDaten End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click - cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) + Dim von = Now.AddMonths(-6) + Select Case aktSDLNr + Case "213", "214", "215", "216", "217", "211" : von = "01.01.2000" + End Select + cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) + 'Now.AddMonths(-6) -_> Lieferdatum vormals -6M Exit Sub If kdNr > 0 Then - cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) + cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) ElseIf dgvSDL.SelectedRows.Count > 0 Then - cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) + cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1)) End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb index 01fc22ec..a984afff 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb @@ -140,6 +140,25 @@ Public Class cSession Return False End Function + Public Shared Function IS_ONLINE_Status(sess_maId, Optional andIsRealUser = False) As String + Try + Dim SQL As New SQL + Dim where = "" + If andIsRealUser Then where = " AND mit_pseudoUser=0 " + Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_lastRm FROM tblSessions where sess_maId='" & sess_maId & "' and sess_lastActivity > dateadd(MINUTE,-120, getdate()) and sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_logout is null ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, Nothing) + If sess_IdOnline IsNot Nothing AndAlso IsDate(sess_IdOnline) AndAlso sess_IdOnline > CDate("01.01.2000") Then + If DateDiff(DateInterval.Minute, CDate(sess_IdOnline), Now) > 10 Then + Return "AFK" + Else + Return "ONLINE" + End If + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return "OFFLINE" + + End Function Public Shared Function GET_IP_FROM_MAID(sess_maId) As String diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 455f96cc..2e8b30d7 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,6 +24,7 @@ Partial Class frmMessenger 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -38,11 +39,11 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -63,7 +64,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -76,9 +77,6 @@ Partial Class frmMessenger Me.pnlTeilnehmer = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() Me.dgvChatMembers = New System.Windows.Forms.DataGridView() - Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() @@ -90,14 +88,18 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() - Me.Timer_REFRESH = New System.Windows.Forms.Timer() - Me.cntxt = New System.Windows.Forms.ContextMenuStrip() + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) + Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -744,7 +746,7 @@ Partial Class frmMessenger DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) + Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma, Me.clmnStatus}) DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -771,31 +773,6 @@ Partial Class frmMessenger Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146) Me.dgvChatMembers.TabIndex = 8 ' - 'clmnMaId - ' - Me.clmnMaId.HeaderText = "Column1" - Me.clmnMaId.MinimumWidth = 8 - Me.clmnMaId.Name = "clmnMaId" - Me.clmnMaId.ReadOnly = True - Me.clmnMaId.Visible = False - Me.clmnMaId.Width = 150 - ' - 'clmnName - ' - Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnName.HeaderText = "Name" - Me.clmnName.MinimumWidth = 8 - Me.clmnName.Name = "clmnName" - Me.clmnName.ReadOnly = True - ' - 'clmnFirma - ' - Me.clmnFirma.HeaderText = "Firma" - Me.clmnFirma.MinimumWidth = 8 - Me.clmnFirma.Name = "clmnFirma" - Me.clmnFirma.ReadOnly = True - Me.clmnFirma.Width = 85 - ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.SystemColors.Control @@ -978,6 +955,38 @@ Partial Class frmMessenger Me.DataGridViewTextBoxColumn3.ReadOnly = True Me.DataGridViewTextBoxColumn3.Width = 150 ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.MinimumWidth = 8 + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.ReadOnly = True + Me.clmnMaId.Visible = False + Me.clmnMaId.Width = 150 + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.MinimumWidth = 8 + Me.clmnName.Name = "clmnName" + Me.clmnName.ReadOnly = True + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.MinimumWidth = 8 + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + Me.clmnFirma.Width = 85 + ' + 'clmnStatus + ' + Me.clmnStatus.HeaderText = "" + Me.clmnStatus.Name = "clmnStatus" + Me.clmnStatus.ReadOnly = True + Me.clmnStatus.Width = 20 + ' 'frmMessenger ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1080,9 +1089,6 @@ Partial Class frmMessenger Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn - Friend WithEvents clmnMaId As DataGridViewTextBoxColumn - Friend WithEvents clmnName As DataGridViewTextBoxColumn - Friend WithEvents clmnFirma As DataGridViewTextBoxColumn Friend WithEvents Panel9 As Panel Friend WithEvents Panel2 As Panel Friend WithEvents Panel1 As Panel @@ -1094,4 +1100,8 @@ Partial Class frmMessenger Friend WithEvents UsrCntlChat_Art_Btn_SNDCHAT As usrCntlChat_Art_Btn Friend WithEvents lblLKWChat_MsgCntInaktiv As Label Friend WithEvents toolChatReminder As ToolStripMenuItem + Friend WithEvents clmnMaId As DataGridViewTextBoxColumn + Friend WithEvents clmnName As DataGridViewTextBoxColumn + Friend WithEvents clmnFirma As DataGridViewTextBoxColumn + Friend WithEvents clmnStatus As DataGridViewTextBoxColumn End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx index 00287be3..e91fe8af 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx @@ -126,6 +126,9 @@ True + + True + 17, 17 diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 687e8c25..7f29026e 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -826,6 +826,8 @@ Public Class frmMessenger End If Next + + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -1227,7 +1229,19 @@ Public Class frmMessenger For Each MB In CHAT.CHAT_MEMBERS Dim MA As New cMitarbeiter(MB.chatMb_maId) - .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)}) + + .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma), VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE_Status((MA.mit_id))}) + Next + + + For Each row As DataGridViewRow In .Rows + Select Case row.Cells("clmnStatus").Value + Case "AFK" : row.Cells("clmnStatus").Style.BackColor = Color.Orange : row.Cells("clmnStatus").Style.ForeColor = Color.Orange + Case "ONLINE" : row.Cells("clmnStatus").Style.BackColor = Color.Green : row.Cells("clmnStatus").Style.ForeColor = Color.Green + Case "OFFLINE" : row.Cells("clmnStatus").Style.BackColor = Color.Red : row.Cells("clmnStatus").Style.ForeColor = Color.Red + Case Else : row.Cells("clmnStatus").Style.BackColor = Color.White + End Select + Next .ClearSelection() End With @@ -1235,6 +1249,29 @@ Public Class frmMessenger + 'Function checkOnlineOfflineMA(mit_id) + ' Try + + ' Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT sess_Id 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 & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1) + ' If sess_IdOnline > 0 Then + + ' Dim SESSION As New cSession(sess_IdOnline) + ' If DateDiff(DateInterval.Minute, If(SESSION.sess_lastActivity, Now), Now) > 10 Then + ' Return "AFK" + ' Else + ' Return "ONLINE" + ' End If + ' Else + ' Return "OFFLINE" + ' End If + + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + ' Return "" + 'End Function + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnMemberAdd.Click Dim f As New frmMessenger_NeuerChat(CHAT) f.ShowDialog()