-- cveempresa en subproyectos

2020-08-21 11:44:14 -07:00
parent 88a53dc03e
commit b258cb9fa9
1 changed files with 1 additions and 1 deletions
--- 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