diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx
index 643599192..d956c95a3 100644
--- a/Compras/RepCxP.aspx
+++ b/Compras/RepCxP.aspx
@@ -227,7 +227,7 @@
                         </div>
 
                         <asp:Label runat="server" class="col-md-1" ID="LblProyecto"></asp:Label>
-                        <div class="col-md-1">
+                        <div class="col-md-1" runat="server" id="DivProyecto">
                             <asp:DropDownList ID="DdlProyecto" runat="server" CssClass="select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%" AutoPostBack="true">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 629feb128..3df3654b1 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -120,7 +120,7 @@ Partial Class Compras_RepCxP
 
         'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         'DdlSubProyecto.DataBind()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro, divProyecto:=DivProyecto)
 
         DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
         DdlProveedoresClasificaciones.DataBind()
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index b61522066..3bc89f608 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -158,7 +158,7 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         CargaGrupo()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
         CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
 
         TipoCambio = 1
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 96710610b..19dc8e898 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -189,7 +189,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlTipoPSDes.DataBind()
 
         CargaGrupo()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
         CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
 
         TCEspecifico = 0
@@ -406,7 +406,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
         DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
         DdlSubProyecto.SelectedValueExist(CveSubProyecto)
         DdlCategoria.SelectedValueExist(CveCategoria)
         DdlClasificacion.SelectedValueExist(CveClasificacion)