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