diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 848f93764..0a504a2a7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37241,7 +37241,7 @@ Partial Class Ventas
         Dim Respuesta As Boolean = False
 
         If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
-            Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero)
+            Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
 
             If (DTSubproyectoActual.Rows(0)("TipoSucursal").ToString.ToEntero = 1) Then
                 Respuesta = True