diff --git a/OC/PopUpBuscarReq.aspx b/OC/PopUpBuscarReq.aspx
index 2bb888b1e..5e52d59d0 100644
--- a/OC/PopUpBuscarReq.aspx
+++ b/OC/PopUpBuscarReq.aspx
@@ -68,13 +68,13 @@
                         </td>
                     </tr>
                     <tr>
-                        <td runat="server" id="TdProyecto" class="text-right"><b>Proyecto:</b></td>
+                        <td runat="server" id="TdProyecto" class="text-right"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>
                         <td runat="server" id="TdProyecto2">
                             <asp:DropDownList ID="DdlProyectos" AutoPostBack="true" OnSelectedIndexChanged="DdlProyectos_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 200px !important;"></asp:DropDownList>
                         </td>
                         <td class="text-right">
                             <b>
-                                <asp:Literal Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
+                                <asp:Label Text="SubProyecto:" ID="LtSubProyecto" runat="server" /></b>
                         </td>
                         <td>
                             <asp:DropDownList ID="DdlSubProyectos" AutoPostBack="false" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 200px !important;"></asp:DropDownList>
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index f4d2d40c4..92216f52f 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
         txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
         CargaEstatus()
 
-        If UsuarioActual.Empresa.GralSoloProyecto Then
-            TdProyecto.Visible = False
-            TdProyecto2.Visible = False
-            LtSubProyecto.Text = "Proyecto:"
-        Else
-            'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
-            'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
-            '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
-            DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-            DdlProyectos.DataBind()
-            DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+        CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
+        '    TdProyecto.Visible = False
+        '    TdProyecto2.Visible = False
+        '    LtSubProyecto.Text = "Proyecto:"
+        'Else
+        '    'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
+        '    'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+        '    '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+        '    DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+        '    DdlProyectos.DataBind()
+        '    DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
 
         DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
         Dim CveProyecto = -1
         Dim CveSubProyecto = -1
 
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        If LblProyecto.Visible Then
+            CveProyecto = DdlProyectos.SelectedValue.ToEntero
             CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
         Else
-            CveProyecto = DdlProyectos.SelectedValue.ToEntero
             CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
         End If