diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 98e6ba9c4..70d75f8be 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -474,8 +474,10 @@ Partial Class Inventarios_RecepcionAlmacen CargaPermisos() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 771a5a7f4..ebfe1f113 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -226,15 +226,14 @@ Partial Class Inventarios_TraspasoAlmacen CantidadTotal = 0 CvePS = 0 TipoSeccionAlmacen = 0 + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then - + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False - TxtFechaRecepcion.Enabled = False ImgFechaRecepcion.Visible = False - End If Else