-- bandera de bloqueos por horas y días

App_Code/ClsSisUsuarios.vb

@@ -62,6 +62,7 @@ Public Class ClsSisUsuarios
     Public Property AsignarAutomaticamenteSubProyecto As Boolean
     Public Property AsignarAutomaticamenteOC As Boolean
     Public Property DescuentoAutorizado As Double
+    Public Property AplicaRestriccionAcceso As Boolean
 #End Region
 
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing, Optional UsuarioActual As Usuario = Nothing)
@@ -507,6 +508,7 @@ Public Class ClsSisUsuarios
                 Me.AsignarAutomaticamenteSubProyecto = If(Data.Rows(0)("AsignarAutomaticamenteSubProyecto").ToString = "Si", True, False)
                 Me.AsignarAutomaticamenteOC = If(Data.Rows(0)("AsignarAutomaticamenteOC").ToString = "Si", True, False)
                 Me.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString.ToDouble
+                AplicaRestriccionAcceso = If(Data.Rows(0)("AplicaRestriccionAcceso").ToString = "SI", True, False)
                 'Me.TipoControl = Data.Rows(0)("TipoControl").ToString.ToEntero
                 'Me.EsLogIn = Data.Rows(0)("EsLogIn").ToString.ToEntero
             End If
@@ -551,7 +553,8 @@ Public Class ClsSisUsuarios
                                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 LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "") As Integer
+                               Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0,
+                               Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "", Optional AplicaRestriccionAcceso As Boolean = False) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Sis_UsuarioAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -576,6 +579,7 @@ Public Class ClsSisUsuarios
             .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
             .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
+            .Add("@AplicaRestriccionAcceso", SqlDbType.Bit).Value = If(AplicaRestriccionAcceso, 1, 0)
 
             .Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -703,7 +707,9 @@ Public Class ClsSisUsuarios
     End Function
     Public Function UpdateUsuario(Usuario As String, Nombre As String, CveRol As Integer, Correo As String, CvePersonal As Integer,
                                   CveVendedor As Integer, CambiarContraseña As Boolean, Activo As Boolean, CveEmpresa As Integer, CveUsuario As Integer, CveAlmacenAsignado As Integer, CveSubProyecto As Integer, Optional CveUsuarioModifico As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
-                                  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, Optional Celular As String = "") As Boolean
+                                  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, Optional Celular As String = "", Optional AplicaRestriccionAcceso As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Sis_UsuarioUpdate")
@@ -729,6 +735,7 @@ Public Class ClsSisUsuarios
             .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
             .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
+            .Add("@AplicaRestriccionAcceso", SqlDbType.Bit).Value = If(AplicaRestriccionAcceso, 1, 0)
         End With
 
         Try

Sistemas/UsuarioDetalle.aspx.vb

@@ -604,8 +604,8 @@ Partial Class Sistemas_UsuarioDetalle
                 LtlFechaUltimoCambioContraseña.Text = ObjUsuario.FechaUltimoCambioContraseña.ToString
                 ChkCambiarContraseña.Checked = ObjUsuario.PolCambiarContraseña
                 ChkAsignarSubProyecto.Checked = ObjUsuario.AsignarAutomaticamenteSubProyecto
-                ChkAsignarOC.Checked = ObjUsuario.AsignarAutomaticamenteOC
+                ChkAsignarOC.Checked = ObjUsuario.AsignarAutomaticamenteOC
-
+                ChkAplicaRestriccion.Checked = ObjUsuario.AplicaRestriccionAcceso
 
                 CargaBitacora()
                 LblFechaCaptura.Text = ObjUsuario.Fecha.ToShortDateString
@@ -877,7 +877,7 @@ Partial Class Sistemas_UsuarioDetalle
                     End If
                 Next
             Else
-                If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso, LimiteCreditoAutorizado:=TxtLimiteAutorizado.Text.ToDecimal(), PorcentajeMaximoAutorizacion:=TxtPorcentajeMaximoAutorizacion.Text.ToDecimal(), DiasMaximoAutorizacion:=TxtDiasVencidos.Text.ToEntero(), Celular:=TxtTelefono.Text.Trim()) Then
+                If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso, LimiteCreditoAutorizado:=TxtLimiteAutorizado.Text.ToDecimal(), PorcentajeMaximoAutorizacion:=TxtPorcentajeMaximoAutorizacion.Text.ToDecimal(), DiasMaximoAutorizacion:=TxtDiasVencidos.Text.ToEntero(), Celular:=TxtTelefono.Text.Trim(), AplicaRestriccionAcceso:=ChkAplicaRestriccion.Checked) Then
                     TieneError = True
                 End If