Filtros de fechas en bitacora de usuario
This commit is contained in:
@@ -5,12 +5,12 @@ Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports Extensiones
|
||||
Public Class ClsSisUsuarios
|
||||
Implements IDisposable
|
||||
|
||||
|
||||
Implements IDisposable
|
||||
|
||||
|
||||
#Region "Campos"
|
||||
|
||||
'SQL
|
||||
|
||||
'SQL
|
||||
Private SqlConexion As SqlConnection
|
||||
Private SqlAdapter As SqlDataAdapter
|
||||
Private SqlTransacc As SqlTransaction
|
||||
@@ -21,12 +21,12 @@ Public Class ClsSisUsuarios
|
||||
|
||||
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
|
||||
'PARA REGISTRAR CONEXION
|
||||
Private CveConexion As Integer = 0
|
||||
|
||||
Private CveConexion As Integer = 0
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
|
||||
Public ReadOnly Property DtResultados() As DataTable
|
||||
Get
|
||||
DtResultados = Data
|
||||
@@ -60,9 +60,9 @@ Public Class ClsSisUsuarios
|
||||
Public Property CveSubProyecto As Integer
|
||||
Public Property AsignarAutomaticamenteSubProyecto As Boolean
|
||||
Public Property AsignarAutomaticamenteOC As Boolean
|
||||
Public Property DescuentoAutorizado As Double
|
||||
Public Property DescuentoAutorizado As Double
|
||||
#End Region
|
||||
|
||||
|
||||
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
|
||||
|
||||
If TransaccionCompartida Is Nothing Then
|
||||
@@ -90,9 +90,9 @@ Public Class ClsSisUsuarios
|
||||
End With
|
||||
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
|
||||
Data = New DataTable
|
||||
End Sub
|
||||
End Sub
|
||||
#Region "Conexiones"
|
||||
|
||||
|
||||
Private Sub ConexionAdd()
|
||||
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
|
||||
|
||||
@@ -127,7 +127,7 @@ Public Class ClsSisUsuarios
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
|
||||
With SqlCommand
|
||||
@@ -237,9 +237,9 @@ Public Class ClsSisUsuarios
|
||||
|
||||
'*
|
||||
Retorno.NombreAbreviatura = Data.Rows(0)("NombreAbreviatura").ToString()
|
||||
Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble()
|
||||
|
||||
Retorno.PorcentajeMaximoAutorizacion = Data.Rows(0)("PorcentajeMaximoAutorizacion").ToString().ToDecimal()
|
||||
Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble()
|
||||
|
||||
Retorno.PorcentajeMaximoAutorizacion = Data.Rows(0)("PorcentajeMaximoAutorizacion").ToString().ToDecimal()
|
||||
Retorno.DiasMaximoAutorizacion = Data.Rows(0)("DiasMaximoAutorizacion").ToString().ToEntero()
|
||||
|
||||
Retorno.CodigoAutorizado = Data.Rows(0)("CodigoAutorizado").ToString()
|
||||
@@ -415,8 +415,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
Public Function ValidaUsuarioCodigoAcceso(CodigoAcceso As String, CveEmpresa As Integer) As Integer
|
||||
Dim Retorno As Integer = Nothing
|
||||
|
||||
@@ -429,7 +429,7 @@ Public Class ClsSisUsuarios
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
If Data.Rows.Count > 0 Then
|
||||
If Data.Rows.Count > 0 Then
|
||||
Retorno = Data.Rows(0)("CveUsuario").ToString.ToEntero
|
||||
End If
|
||||
|
||||
@@ -439,7 +439,7 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
|
||||
Dim Retorno As Usuario = Nothing
|
||||
|
||||
@@ -467,7 +467,7 @@ Public Class ClsSisUsuarios
|
||||
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
|
||||
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
|
||||
Retorno.CveCliente = CveCliente
|
||||
Retorno.ClienteGPS = False
|
||||
Retorno.ClienteGPS = False
|
||||
Retorno.Portal = True
|
||||
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
|
||||
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
|
||||
@@ -495,8 +495,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
|
||||
Dim Retorno As Usuario = Nothing
|
||||
|
||||
@@ -524,7 +524,7 @@ Public Class ClsSisUsuarios
|
||||
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
|
||||
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
|
||||
Retorno.CveProveedor = CveProveedor
|
||||
Retorno.ClienteGPS = False
|
||||
Retorno.ClienteGPS = False
|
||||
Retorno.Portal = True
|
||||
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
|
||||
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
|
||||
@@ -553,9 +553,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#Region "U S U A R I O - I N D I C A D O R E S"
|
||||
Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
|
||||
|
||||
@@ -576,9 +576,9 @@ Public Class ClsSisUsuarios
|
||||
|
||||
Return dTable
|
||||
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O - E M P R E S A S "
|
||||
Public Function AddUsuariosEmpresas(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -716,9 +716,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O S"
|
||||
Public Function GetUsuarios(CveUsuario As Integer, Optional CveRol As Integer = -1, Optional CveUsuarioControlado As Integer = -1, Optional Estatus As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -731,9 +731,9 @@ Public Class ClsSisUsuarios
|
||||
.Add("@Usuario", SqlDbType.VarChar).Value = "-1"
|
||||
.Add("@Contraseña", SqlDbType.VarChar).Value = "-1"
|
||||
.Add("@EsLogIn", SqlDbType.Bit).Value = 0
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
|
||||
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -825,7 +825,7 @@ Public Class ClsSisUsuarios
|
||||
Public Function AddUsuario(Usuario As String, Contraseña As String, Nombre As String, CveRol As Integer, Correo As String,
|
||||
CvePersonal As Integer, CveVendedor As Integer, CambiarContraseña As Boolean,
|
||||
CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
|
||||
Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
|
||||
Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
|
||||
Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Integer
|
||||
Dim Retorno = -1
|
||||
DataAdapter("PA_Sis_UsuarioAdd")
|
||||
@@ -848,10 +848,10 @@ Public Class ClsSisUsuarios
|
||||
.Add("@DescuentoAutorizado", SqlDbType.Float).Value = DescuentoAutorizado
|
||||
.Add("@CodigoAcceso", SqlDbType.VarChar).Value = CodigoAcceso
|
||||
.Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
|
||||
.Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
|
||||
.Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
|
||||
.Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
|
||||
|
||||
.Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
.Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -970,8 +970,8 @@ Public Class ClsSisUsuarios
|
||||
.Add("@AsignarOC", SqlDbType.Bit).Value = AsignarOC
|
||||
.Add("@DescuentoAutorizado", SqlDbType.Float).Value = DescuentoAutorizado
|
||||
.Add("@CodigoAcceso", SqlDbType.VarChar).Value = CodigoAcceso
|
||||
.Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
|
||||
.Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
|
||||
.Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
|
||||
.Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
|
||||
.Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
|
||||
End With
|
||||
|
||||
@@ -1061,16 +1061,18 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#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
|
||||
@@ -1105,14 +1107,14 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "R O L E S"
|
||||
|
||||
''' <summary>
|
||||
''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario
|
||||
''' </summary>
|
||||
|
||||
''' <summary>
|
||||
''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario
|
||||
''' </summary>
|
||||
Public Function GetUsuariosRolesModulos(ByVal pCveUsuario As Integer, CveEmpresa As Integer) As DataTable
|
||||
|
||||
DataAdapter("PA_Sis_UsuariosRolesModulosGet")
|
||||
@@ -1144,9 +1146,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Data
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O S - M O D U L O S"
|
||||
Public Function GetUsuariosModulos(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioActual As Integer = -1, Optional CvePlataforma As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1235,9 +1237,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O S - D I S P O S I T I V O S"
|
||||
Public Function UpdateUsuariosDispositivos(CveUsuario As Integer, CveDispositivo As Integer, Permitir As Boolean) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1262,9 +1264,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O S - C O M A N D O S"
|
||||
Public Function UpdateUsuariosComandos(CveUsuario As Integer, CveUsuarioAsigno As Integer, CveComando As Integer, Permitir As Boolean, EsFavorito As Boolean) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1291,10 +1293,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "U S U A R I O S - P R O C E S O S "
|
||||
Public Function GetUsuariosProcesos(CveUsuario As Integer, Optional CveUsuarioActual As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1382,11 +1384,11 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "U S U A R I O S - P O R T AL "
|
||||
|
||||
|
||||
Public Function GetUsuariosPortal(pCveUsuarioPortal As Integer, pCveCliente As Integer, pCveProveedor As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1488,12 +1490,12 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " S U B - P R O Y E C T O S "
|
||||
Public Function GetSubProyectos(CveUsuario As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1576,10 +1578,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " E S T A T U S O C "
|
||||
Public Function GetEstatusOC(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1656,8 +1658,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
#Region "C L A S I F I C A C I O N E S"
|
||||
Public Function AddUsuariosClasificaciones(CveUsuario As Integer, CveClasificacion As Integer, CveUsuarioIng As Integer, CveUsuarioModifico As Integer) As Boolean
|
||||
@@ -1721,8 +1723,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
#Region " A L M A C E N "
|
||||
Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
@@ -1805,9 +1807,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
dtMenu.TableName = "UsuariosModulos"
|
||||
@@ -1836,10 +1838,10 @@ Public Class ClsSisUsuarios
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#Region " CLONAR USUARIOS "
|
||||
Public Function ClonarUsuario(CveUsuario As Integer, CveUsuarioClonado As Integer, UsuariosEmpresas As Boolean, UsuariosModulos As Boolean, UsuariosProcesos As Boolean, UsuariosSubProyectos As Boolean, UsuariosAlmacenes As Boolean, UsuariosOC As Boolean, UsuariosOS As Boolean) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1884,12 +1886,12 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " RESTRICCIONES ACCESO "
|
||||
|
||||
|
||||
Public Function UsuariosRestriccionesAccesoAdd(CveUsuario As Integer, IP As String, MAC As String, HI1 As String, HF1 As String, HI2 As String, HF2 As String, HI3 As String, HF3 As String, HI4 As String, HF4 As String, HI5 As String, HF5 As String, HI6 As String, HF6 As String, HI7 As String, HF7 As String, Optional CveUsuarioModifico As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -2016,10 +2018,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "ACTUALIZAR USUARIO RESPONSABLE MASIVAMENTE"
|
||||
Public Function UpdateUsuarioResponsableMasivo(CveUsuario As Integer, CveUsuarioResponsable As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2035,13 +2037,13 @@ Public Class ClsSisUsuarios
|
||||
OnError("Ocurrio un error al actualizar el Usuario Responsable.", ex)
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " ASIGNAR "
|
||||
|
||||
|
||||
#Region " ALMACEN ASIGNAR "
|
||||
Public Function GetAlmacenAsignar(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2098,9 +2100,9 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " SUBPROYECTOS ASIGNAR "
|
||||
Public Function GetSubProyectosAsignar(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2157,10 +2159,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CUENTAS BANCARIAS "
|
||||
Public Function GetCuentasBancariasAsignar(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2217,10 +2219,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " MODULOS "
|
||||
Public Function GetModulosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2278,10 +2280,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PERMISOS "
|
||||
Public Function GetPermisosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2338,10 +2340,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " EMPRESAS "
|
||||
Public Function GetEmpresasAsignar(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2398,10 +2400,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ROLES "
|
||||
Public Function GetRolesAsignar(CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2458,10 +2460,10 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PERMISOS "
|
||||
Public Function GetIndicadoresAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2518,12 +2520,12 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function GetClienteGPSRolesModulos(ByVal pCveUsuario As Integer, CveCliente As Integer) As DataTable
|
||||
|
||||
DataAdapter("PA_Sis_ClienteGPSRolesModulosGet")
|
||||
@@ -2539,11 +2541,11 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Data
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#Region "U S U A R I O S - GPS "
|
||||
|
||||
|
||||
Public Function ValidaUsuarioGPS(Clave As String, Usuario As String, Password As String) As Usuario
|
||||
Dim Retorno As Usuario = Nothing
|
||||
|
||||
@@ -2825,8 +2827,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Sis_UsuariosClienteGet")
|
||||
@@ -2849,8 +2851,8 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Sis_UsuariosProveedoresAdd")
|
||||
@@ -2873,7 +2875,7 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
End Function
|
||||
Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Sis_UsuariosProveedorGet")
|
||||
@@ -2896,13 +2898,13 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "U S U A R I O S - PyME"
|
||||
|
||||
|
||||
Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -2941,22 +2943,22 @@ Public Class ClsSisUsuarios
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "IDisposable Support"
|
||||
Protected Overridable Sub Dispose(disposing As Boolean)
|
||||
If Not Me.disposedValue Then
|
||||
If disposing Then
|
||||
|
||||
|
||||
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
|
||||
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
|
||||
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
|
||||
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
|
||||
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
|
||||
If disposing Then
|
||||
|
||||
|
||||
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
|
||||
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
|
||||
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
|
||||
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
|
||||
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
|
||||
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
|
||||
|
||||
End If
|
||||
@@ -2967,9 +2969,9 @@ Public Class ClsSisUsuarios
|
||||
ConexionClose()
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -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