validar exportar excel

2020-03-06 15:22:21 -07:00
parent af784981d6
commit c47e61bd1b
2 changed files with 14 additions and 7 deletions
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -854,7 +854,11 @@ Partial Class Inventarios_RecepcionAlmacen
                    ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then
                        CargaSoloUsados = True
                        DtRecepcion = ObjInventario.DtResultados.Copy()
-                        CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                        If UsuarioActual.CveRol = 1 Then
+                            CargaAlmacenes(-1, "22,24")
+                        Else
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22")
+                        End If
                    Else
                        DtRecepcion = ObjInventario.DtResultados.Copy()
                    End If