From b258cb9fa9da61b0d7b54208a44eeb424b108270 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 21 Aug 2020 11:44:14 -0700
Subject: [PATCH] -- cveempresa en subproyectos

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

diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index d5970bf8a..0a6a13107 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -6112,7 +6112,7 @@ Partial Class Compras_Proveedores
         Dim ObjFolios As New ClsGralFolios()
         Dim CveSubProyectoMatriz As Integer
 
-        If ObjSub.GetSubProyectos() Then
+        If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
             CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
         End If