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