Filtros de fechas en bitacora de usuario
This commit is contained in:
@@ -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> " 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>
|
||||
|
||||
@@ -3,10 +3,11 @@ Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Sistemas_UsuarioDetalle
|
||||
Inherits ClsPaginas
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "P R O P I E D A D E S"
|
||||
Private Property DTEstatusSubProyectos As DataTable
|
||||
Get
|
||||
@@ -403,10 +404,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Set(value As Integer)
|
||||
ViewState("CveEmpresaAnterior") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
@@ -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
|
||||
@@ -482,17 +485,17 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End Using
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'DOCUMENTACION
|
||||
'LOS CAMPOS DE DATATABLE "ACCION" SE REFIERE AL ESTATUS DE LOS CAMBIOS QUE OCURRIERON ANTES DE DARLE GUARDAR
|
||||
' 0/NULL/VACIO = ORIGINAL (SIN CAMBIO)
|
||||
' 1 = AGREGADO
|
||||
' 2 = ELIMINADO
|
||||
' 3 = NADA (AGREGADO Y ELIMINADO): CUANDO AGREGA UN REGISTRO Y LO ELIMINA, ES DECIR, NO SE GUARDA NADA
|
||||
' 4 = UPDATE
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
'DOCUMENTACION
|
||||
'LOS CAMPOS DE DATATABLE "ACCION" SE REFIERE AL ESTATUS DE LOS CAMBIOS QUE OCURRIERON ANTES DE DARLE GUARDAR
|
||||
' 0/NULL/VACIO = ORIGINAL (SIN CAMBIO)
|
||||
' 1 = AGREGADO
|
||||
' 2 = ELIMINADO
|
||||
' 3 = NADA (AGREGADO Y ELIMINADO): CUANDO AGREGA UN REGISTRO Y LO ELIMINA, ES DECIR, NO SE GUARDA NADA
|
||||
' 4 = UPDATE
|
||||
|
||||
|
||||
#Region " C A R G A R - D A T O S "
|
||||
Private Sub CargaDatos()
|
||||
|
||||
@@ -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
|
||||
@@ -782,23 +785,23 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
If CveTipoDocumentoAsignado <> "-1" Then DdlTipoDocumento.SelectedValueExist(CveTipoDocumentoAsignado)
|
||||
UpFiltrosAsignarPermiso.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
'Private Sub CargaSucursal()
|
||||
' DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
|
||||
' If DtSubProyectos2.Rows.Count > 0 Then
|
||||
' Dim dr As DataRow
|
||||
' dr = DtSubProyectos2(0)
|
||||
' CveSucursal = dr("CveSucursal").ToString.ToEntero
|
||||
' Else
|
||||
' CveSucursal = -1
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaSucursal()
|
||||
' DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
|
||||
' If DtSubProyectos2.Rows.Count > 0 Then
|
||||
' Dim dr As DataRow
|
||||
' dr = DtSubProyectos2(0)
|
||||
' CveSucursal = dr("CveSucursal").ToString.ToEntero
|
||||
' Else
|
||||
' CveSucursal = -1
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
#Region " G U A R D A R - U P D A T E "
|
||||
|
||||
|
||||
Private Function ValidaUsername(Username As String, Correo As String) As Boolean
|
||||
Dim Retorno As Boolean = True
|
||||
'If CveUsuario = -1 Then
|
||||
@@ -1441,10 +1444,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió error al mandar MAIL", ex)
|
||||
End Try
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " E L I M I N A R - U S U A R I O "
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
||||
''DENTRO DEL PROCEDIMIENTO ELIMINA TODO LO RELACIONADO CON EL USUARIO (ALMACENES, SUBPROYECTOS, ACCESO A EMPRESAS...)
|
||||
@@ -1456,10 +1459,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Alert("Ocurrió un error al eliminar el usuario. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
End If
|
||||
ObjUsuario.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CONTRASEÑA "
|
||||
Protected Sub LnkRestablecer_Click(sender As Object, e As EventArgs) Handles LnkRestablecer.Click
|
||||
Dim Usuario As New ClsSisUsuarios
|
||||
@@ -1476,12 +1479,12 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End Sub
|
||||
Protected Sub LnkVerCodigoAcceso_Click(sender As Object, e As EventArgs) Handles LnkVerCodigoAcceso.Click
|
||||
Alert(CodigoAcceso)
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - ASIGNACIONES"
|
||||
Protected Sub DdlEmpresaAsignaciones_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEmpresaAsignaciones.SelectedIndexChanged
|
||||
|
||||
@@ -1543,8 +1546,8 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
DtAsignacionesMultiEmpresa.Columns.Add("CveSucursal", GetType(Integer))
|
||||
DtAsignacionesMultiEmpresa.Columns.Add("CveAlmacen", GetType(Integer))
|
||||
DtAsignacionesMultiEmpresa.Columns.Add("CveTipoDocumento", GetType(String))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " PROYECTOS-SUBPROYECTOS "
|
||||
Private Sub CargaProyectos()
|
||||
DdlProyecto.Items.Clear()
|
||||
@@ -1932,8 +1935,8 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
End If
|
||||
ChkAsignarAllProyectos.Checked = False
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "GV SUBPROYECTOS"
|
||||
Protected Sub GvSubProyectos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSubProyectos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -2035,14 +2038,14 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
GvSubProyectos.EditIndex = -1
|
||||
|
||||
CargaGvSubProyectos()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACENES "
|
||||
|
||||
|
||||
Private Function GetAlmacenesSinGV() As String
|
||||
Dim SB As New StringBuilder
|
||||
Dim prefix As String = ""
|
||||
@@ -2151,8 +2154,8 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Private Sub CargaGVAlmacen()
|
||||
GvAlmacenes.DataSource = DtAlmacenes.FiltraParametros(String.Format("CveEmpresa = {0} And (isnull(Accion,0) < 2 Or Accion = 4)", DdlEmpresaAsignaciones.SelectedValue.ToEntero))
|
||||
GvAlmacenes.DataBind()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "GV ALMACENES"
|
||||
Protected Sub GvAlmacenes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAlmacenes.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -2239,11 +2242,11 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
GvAlmacenes.EditIndex = -1
|
||||
|
||||
CargaGVAlmacen()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CUENTAS BANCARIAS "
|
||||
Private Sub CargaCuentasBancarias()
|
||||
DdlCuentasBancarias.Items.Clear()
|
||||
@@ -2306,9 +2309,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
DtCuentasBancarias.AcceptChanges()
|
||||
CargaGvCuentasBancarias()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ESTATUS DE ÓRDENES DE COMPRA"
|
||||
Private Sub CargaEstatusOrdenesCompra()
|
||||
' Exit Sub
|
||||
@@ -2537,9 +2540,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Else
|
||||
CargaGridEstatusUsuarioOC("OC")
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#Region "GRIDVIEW"
|
||||
|
||||
|
||||
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.Header Then
|
||||
For i As Integer = 2 To GvEstatusUsuariosREQ.Columns.Count - 1
|
||||
@@ -2816,13 +2819,13 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "ESTATUS DE ORDENES DE SERVICIO"
|
||||
Private Sub CargaEstatusOS()
|
||||
CreaGridEstatusOS()
|
||||
@@ -2975,9 +2978,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ESTATUS ORDENES DE COMPRA - CLASIFICACIONES USUARIO OC "
|
||||
Private Sub InicializaEstasClasificacionesOC()
|
||||
|
||||
@@ -3039,15 +3042,15 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
ObjOC.Dispose()
|
||||
|
||||
CargaGVOCClasificaciones()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - ACCESO MODULOS"
|
||||
Public Sub CargaModulosAcceso()
|
||||
Dim ObjPermisos As New ClsSisUsuarios
|
||||
@@ -3133,10 +3136,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Alert("Los Permisos se eliminaron correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/Sistemas/Usuarios.aspx""")
|
||||
End If
|
||||
ObjUsuario.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - PERMISO MODULOS"
|
||||
Public Sub CargaModulosPermisos()
|
||||
Dim ObjProcesos As New ClsSisUsuarios
|
||||
@@ -3236,10 +3239,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Alert("Los Procesos se eliminaron correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/Sistemas/Usuarios.aspx""")
|
||||
End If
|
||||
ObjUsuario.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - ACCESO EMPRESAS"
|
||||
Private Sub CargaEmpresas()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -3429,10 +3432,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Private Sub LnkRenviaCorreo_Click(sender As Object, e As EventArgs) Handles LnkRenviaCorreo.Click
|
||||
EnviaCorreo()
|
||||
Alert("Correo enviado con exito.", TipoMensaje.MsgInformacion)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - RESTRICCIONES ACCESO "
|
||||
Private Sub InicializaRestricciones()
|
||||
CargaDtRestricciones()
|
||||
@@ -3645,8 +3648,8 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
CargaGvRestricciones()
|
||||
|
||||
RegistraScript("$('#DivAgregarRestricción').modal('hide')")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " GV "
|
||||
Private Sub GvRestricciones_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvRestricciones.RowCommand
|
||||
|
||||
@@ -3736,13 +3739,13 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
|
||||
CargaGvRestricciones()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "TAB - INDICADORES"
|
||||
Public Sub CargaGridIndicadores()
|
||||
Dim Objeto As New ClsIndicadores
|
||||
@@ -3759,11 +3762,11 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
e.Row.FCCheckBox("chkIndicador").Checked = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CLONAR USUARIO "
|
||||
Private Sub InicializaClonarUsuario()
|
||||
DdlUsuarioClonar.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
@@ -3849,12 +3852,12 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
'CargaDatos()
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " MANDA CORREO "
|
||||
Private Sub MandaCorreo(Asunto As String, Para As String, Body As String)
|
||||
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
|
||||
@@ -3862,13 +3865,13 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
Dim Mail As New ClsSisMail()
|
||||
'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, "", "", Nothing, Body)
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " ASIGNACIONES DE PERMISOS "
|
||||
Protected Sub DdlEmpresaAsignarPermiso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEmpresaAsignarPermiso.SelectedIndexChanged
|
||||
CargaAsignaciones()
|
||||
@@ -3892,8 +3895,8 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
CargaDtEstatusOC()
|
||||
CargaGvEstatusOC()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " EMPRESAS "
|
||||
Public Sub CargaDTEmpresasAsignar()
|
||||
Dim ObjPermisos As New ClsSisUsuarios
|
||||
@@ -3952,10 +3955,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
CargaAsignaciones()
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ROLES "
|
||||
Private Sub CargaDtRolesAsignar()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -4044,9 +4047,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
DTRolesAsignar.AcceptChanges()
|
||||
|
||||
CargaGVRolesAsignar()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACENES "
|
||||
Private Sub CargaDtAlmacenAsignar()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -4137,11 +4140,11 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
DtAlmacenesAsignar.AcceptChanges()
|
||||
|
||||
CargaGVAlmacenAsignar()
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PROYECTOS-SUBPROYECTOS "
|
||||
Private Sub CargaDtSubProyectosAsignar()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -4252,10 +4255,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
DtSubProyectosAsignar.AcceptChanges()
|
||||
|
||||
CargarGvSubProyectosAsignar()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CUENTAS BANCARIAS "
|
||||
Private Sub CargaCuentasBancariasAsignar()
|
||||
DdlCuentasBancariasAsignar.Items.Clear()
|
||||
@@ -4340,9 +4343,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
DtCuentasBancariasAsignar.AcceptChanges()
|
||||
|
||||
CargaGvCuentasBancariasAsignar()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " MODULOS "
|
||||
Public Sub CargaDTModulosAsignar()
|
||||
Dim ObjPermisos As New ClsSisUsuarios
|
||||
@@ -4377,10 +4380,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PERMISOS "
|
||||
Public Sub CargaDTPermisosAsignar()
|
||||
Dim ObjPermisos As New ClsSisUsuarios
|
||||
@@ -4415,9 +4418,9 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " INDICADORES "
|
||||
Public Sub CargaDTIndicadoresAsignar()
|
||||
Dim ObjIndicadores As New ClsSisUsuarios
|
||||
@@ -4445,13 +4448,13 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " USUARIO CONTROLADO "
|
||||
Private Sub InicializaUsuarioControlado()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -4501,12 +4504,12 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
End If
|
||||
|
||||
ClsUsuarios.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "C O N T O L E S DE U S U A R I O S"
|
||||
|
||||
|
||||
#Region "ESTATUS DE ÓRDENES DE COMPRA"
|
||||
Private Sub CargaDtEstatusOCPermisos()
|
||||
Dim ClsUsuarios As New ClsSisUsuarios
|
||||
@@ -4627,10 +4630,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
DTEstatusOC = dt
|
||||
DTEstatusOCAsignar = dt
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "GV ESTATUS DE OC"
|
||||
Protected Sub GvEstatusOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusOC.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -4741,11 +4744,11 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
GvEstatusUsuariosOC.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
|
||||
If DtClasificaciones IsNot Nothing Then
|
||||
Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero
|
||||
@@ -4872,10 +4875,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "USUARIO RESPONSABLE"
|
||||
|
||||
|
||||
Protected Sub BtnUpdateUsuarioResponsable_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjUsuarios As New ClsSisUsuarios
|
||||
If ObjUsuarios.UpdateUsuarioResponsableMasivo(CveUsuario, DdlUsuarioResponsable.SelectedValue.ToEntero) Then
|
||||
@@ -4883,10 +4886,10 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
RegistraScript("$('#DivUpdateUsuarioResponsable').modal('hide')")
|
||||
End If
|
||||
ObjUsuarios.Dispose()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub LnkAutorizarEquipo_Click(sender As Object, e As EventArgs)
|
||||
'CveUsuario
|
||||
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, DateTime.Now.Ticks, UsuarioActual.CveUsuario))
|
||||
@@ -4957,6 +4960,46 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
LblClonarMensaje.Text = ""
|
||||
UpClonarUsuario.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
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(" <b>Fecha Inicio </b>: {0}", TxtFechaIBitacora.Text.ToDate.ToShortDateString)
|
||||
If TxtFechaFBitacora.Text <> "" Then StrFiltro.AppendFormat(" <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
|
||||
|
||||
Reference in New Issue
Block a user