Filtros de fechas en bitacora de usuario

App_Code/ClsSisUsuarios.vb

@@ -1065,12 +1065,14 @@ Public Class ClsSisUsuarios
 #End Region
 
 #Region "B I T A C O R A   D E   U S A R I O S"
-    Public Function GetBitacora(CveUsuario As Integer) As Boolean
+    Public Function GetBitacora(CveUsuario As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Sis_UsuariosBitacoraGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
         End With
 
         Try

Sistemas/UsuarioDetalle.aspx

@@ -2563,19 +2563,51 @@
                                                     </div>
                                                     <div class="actions">
                                                         <div class="btn-group">
+                                                            <asp:LinkButton ID="LnkExportarBitacora" runat="server" CssClass="btn font-red" data-original-title="" title="" Text="<i class='fa fa-file-pdf-o font-red'></i>&nbsp;" OnClick="LnkExportarBitacora_Click"></asp:LinkButton>
                                                         </div>
                                                     </div>
                                                     <div class="tools">
-                                                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                                     </div>
                                                 </div>
                                                 <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
+                                                    <div class="portlet solid grey-cascade portlet-filter" style="">
+                                                        <div class="portlet-title portlet-filterT smalltitle" style="position: relative;">
+                                                            <div class="tools">
+                                                                <asp:Button ID="BtnConsultarBitacora" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultarBitacora" Text="Consultar" OnClick="BtnConsultarBitacora_Click" />
+                                                            </div>
+                                                            <div class="titlefiltros caption magindate">
+                                                                <div class="row">
+                                                                    <div class="col-md-2 truncate">Fecha Inicio: </div>
+                                                                    <div class="col-md-3 col-sm-3">
+                                                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                                                            <asp:TextBox Style="width: 80px !important;" ID="TxtFechaIBitacora" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                                                            <span class="input-group-btn ">
+                                                                                <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                            </span>
+                                                                        </div>
+                                                                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaIBitacora" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaIBitacora" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                    </div>
+                                                                    <div class="col-md-2 truncate">Fecha Fin: </div>
+                                                                    <div class="col-md-3 col-sm-3">
+                                                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                                                            <asp:TextBox Style="width: 80px !important;" ID="TxtFechaFBitacora" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                                                            <span class="input-group-btn ">
+                                                                                <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                            </span>
+                                                                        </div>
+                                                                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaFBitacora" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                        <ajax:CalendarExtender runat="server" ID="CEFechaF" TargetControlID="TxtFechaFBitacora" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                    </div>
+                                                                </div>
+                                                            </div>
+                                                        </div>
+                                                    </div>
                                                     <div class="text-right">
                                                         <input type="text" id="TxtBusqueda4" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GVBitacora.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                                     </div>
-                                                    <div style="max-height: 300px; overflow-y: auto;">
+                                                    <div style="padding-top: 20px; max-height: 300px; overflow-y: auto;">
                                                         <asp:GridView ID="GVBitacora" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                                             <Columns>
                                                                 <asp:BoundField DataField="Modulo" HeaderText="Módulo" ItemStyle-HorizontalAlign="Left" />
@@ -2592,6 +2624,9 @@
                                         </div>
                                     </div>
                                 </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="LnkExportarBitacora" />
+                                </Triggers>
                             </asp:UpdatePanel>
                         </ContentTemplate>
                     </ajax:TabPanel>

Sistemas/UsuarioDetalle.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Sistemas_UsuarioDetalle
     Inherits ClsPaginas
@@ -419,6 +420,8 @@ Partial Class Sistemas_UsuarioDetalle
                 Exit Sub
             End If
 
+            TxtFechaIBitacora.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
+            TxtFechaFBitacora.Text = Now.ToString("dd/MM/yyyy")
 
             ViewState("CveUsuario") = PreviousPage.CurrentUsuario
             ViewState("CveRol") = -1
@@ -756,7 +759,7 @@ Partial Class Sistemas_UsuarioDetalle
     Public Sub CargaBitacora()
         Dim ObjUsuario As New ClsSisUsuarios
 
-        If ObjUsuario.GetBitacora(CveUsuario) Then
+        If ObjUsuario.GetBitacora(CveUsuario, TxtFechaIBitacora.Text.ToDateTime(), TxtFechaFBitacora.Text.ToDateTime()) Then
             GVBitacora.DataSource = ObjUsuario.DtResultados
         Else
             GVBitacora.DataSource = Nothing
@@ -4959,4 +4962,44 @@ Partial Class Sistemas_UsuarioDetalle
 
     End Sub
 
+    Protected Sub BtnConsultarBitacora_Click(sender As Object, e As EventArgs)
+        CargaBitacora()
+
+        UpSistema.Update()
+    End Sub
+    Protected Sub LnkExportarBitacora_Click(sender As Object, e As EventArgs)
+        Dim DtDatos As DataTable = Nothing
+        Dim ObjUsuario As New ClsSisUsuarios
+        If ObjUsuario.GetBitacora(CveUsuario, TxtFechaIBitacora.Text.ToDateTime(), TxtFechaFBitacora.Text.ToDateTime()) Then
+            DtDatos = ObjUsuario.DtResultados.Copy()
+        End If
+        ObjUsuario.Dispose()
+
+        Dim StrFiltro As New StringBuilder
+
+        If TxtFechaIBitacora.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", TxtFechaIBitacora.Text.ToDate.ToShortDateString)
+        If TxtFechaFBitacora.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", TxtFechaFBitacora.Text.ToDate.ToShortDateString)
+
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+        Dim FechaI, FechaF As String
+        FechaI = TxtFechaIBitacora.Text
+        FechaF = TxtFechaFBitacora.Text
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("FechaInicio", FechaI))
+        params.Add(New ReportParameter("FechaFin", FechaF))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        ImprimirPDF("Empresas/Grales/Formatos/BitacoraLogin.rdlc", DtDatos, params, String.Format("BitacoraRegistro-{0}", Now.ToDateTime.ToShortDateString))
+    End Sub
 End Class