From c26e611418148d95e6c013d2a3bcb1d40de9ee43 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Jan 2025 14:02:58 -0700
Subject: [PATCH] -- funcionalidad de subproyecot general FNC382

---
 OC/OC.aspx.vb | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index b26724c6f..de3dacf86 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -728,14 +728,15 @@ Partial Class OC_OC
 
             CargarCentrosDeCosto(Nothing, DdlSubProyectoEntrega, Nothing, Nothing, "Seleccione")
 
-            If UsuarioActual.CveEmpresa = 189 Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then ModalidadSubProyectoGeneral = True
 
+            If ModalidadSubProyectoGeneral Then
                 DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
                 DdlSubProyectoGral.DataBind()
                 DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1"))
                 DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
                 DdlSubProyectoEntrega.SelectedValueExist(UsuarioActual.CveSubProyecto)
-                ModalidadSubProyectoGeneral = True
+
                 TdProyectoSubPrpyectoDdl.Visible = False
                 TdProyectoSubPrpyecto.Visible = False
                 GvD.Columns(4).Visible = False
@@ -744,13 +745,10 @@ Partial Class OC_OC
                 DdlSubProyectoEntrega.Visible = chkSubProyectoEntrega.Checked
                 txtLugarEntrega.Visible = Not chkSubProyectoEntrega.Checked
                 UPPEmp.Update()
-
                 UPPDetalle.Update()
 
             End If
 
-
-
             'CARGA YA REGISTRADO
             If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then