From e80f0d2d99fc0f2dd5ddef2b0ecacf3c16decc83 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 3 Dec 2024 18:30:47 -0700
Subject: [PATCH] =?UTF-8?q?--=20poner=20el=20n=C3=BAmero=20de=20usuarios?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Sistemas/SessionesActivas.aspx    | 4 ++--
 Sistemas/SessionesActivas.aspx.vb | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Sistemas/SessionesActivas.aspx b/Sistemas/SessionesActivas.aspx
index 580cd16d9..a5e6d36a3 100644
--- a/Sistemas/SessionesActivas.aspx
+++ b/Sistemas/SessionesActivas.aspx
@@ -33,11 +33,11 @@
 
     <asp:UpdatePanel runat="server" ID="Updatos"  UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet light smmallpadding bordered" id="portlet19">
+            <div class="portlet light smallpadding bordered" id="portlet19">
                 <div class="portlet-title">
                     <div class="caption font-green">
                         <i class="icon-pin font-green"></i>
-                        <span class="caption-subject bold uppercase">Filtros</span>
+                        <span class="caption-subject bold uppercase">Filtros<asp:Label ID="LblNumero" runat="server" Text=""></asp:Label></span>
                     </div>
                     <div class="tools">
                         <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
diff --git a/Sistemas/SessionesActivas.aspx.vb b/Sistemas/SessionesActivas.aspx.vb
index 36c3c06e8..29ae129ea 100644
--- a/Sistemas/SessionesActivas.aspx.vb
+++ b/Sistemas/SessionesActivas.aspx.vb
@@ -87,6 +87,7 @@ Partial Class SessionesActivas
                 dtF.Rows.Add(row.ItemArray())
             End If
         Next
+
         dtU.Dispose()
         Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"}
         DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"})
@@ -94,6 +95,8 @@ Partial Class SessionesActivas
         dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,)
         GVDatos.DataSource = dtF
         GVDatos.DataBind()
+        LblNumero.Text = $" ({dtF.COUNT("CveUsuario", "CveUsuario > 0")})"
+
         objUsuarios.Dispose()
     End Sub
     Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)