From 0ba81b8495d0d1c45bc66b807e5a38b594344b2a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 26 Aug 2020 12:04:07 -0700
Subject: [PATCH] -- activaion de salida por ajuste de celia

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

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 7891db1e0..4bbcef129 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2025,7 +2025,7 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
-        If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(14, 19) AndAlso UsuarioActual.CveUsuario = 2185 Then
+        If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(12, 14, 19) AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
 
             'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))