From 2a2a1937cb8123c56c4c0adffc5c38b9c7f9962d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 3 Mar 2023 09:58:50 -0700
Subject: [PATCH] =?UTF-8?q?-activaci=C3=B3n=20para=20usuario=20100?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/RecepcionAlmacen.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index e9ddbbfe0..3de1b14ea 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -475,7 +475,7 @@ 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.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
 
             If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then