AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- poner el número de usuarios

Browse Source
This commit is contained in:
rrene
2024-12-03 18:30:47 -07:00
parent acec523465
commit e80f0d2d99
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Sistemas/SessionesActivas.aspx
View File

@@ -33,11 +33,11 @@
<asp:UpdatePanel runat="server" ID="Updatos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="Updatos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet light smmallpadding bordered" id="portlet19"> <div class="portlet light smallpadding bordered" id="portlet19">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <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>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>

3
Sistemas/SessionesActivas.aspx.vb
View File

@@ -87,6 +87,7 @@ Partial Class SessionesActivas
dtF.Rows.Add(row.ItemArray()) dtF.Rows.Add(row.ItemArray())
End If End If
Next Next
dtU.Dispose() dtU.Dispose()
Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"} Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"}
DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"}) DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"})
@@ -94,6 +95,8 @@ Partial Class SessionesActivas
dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,) dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,)
GVDatos.DataSource = dtF GVDatos.DataSource = dtF
GVDatos.DataBind() GVDatos.DataBind()
LblNumero.Text = $" ({dtF.COUNT("CveUsuario", "CveUsuario > 0")})"
objUsuarios.Dispose() objUsuarios.Dispose()
End Sub End Sub
Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)