From 47d632e06e6db142c1b17615d5c2a77e2eb0bd55 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 26 Jul 2024 12:32:38 -0700
Subject: [PATCH] -- parmetro empresa en GlobaldtSubProyectos

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

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