diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 1a5fe698c..c02f80e7a 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4291,42 +4291,31 @@ Public Class ClsPaginas
         ObjUsuario.Dispose()
         Return Retorno
     End Function
-    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing)
 
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
-
-            Case 1 To 3
-                If LblSubProyecto IsNot Nothing Then
-                    Select Case UsuarioActual.Empresa.Tipo_CentroCosto
-                        Case 1
-                            LblSubProyecto.Text = "Centro de costo"
-                        Case 2
-                            LblSubProyecto.Text = "Sucursal"
-                        Case 3
-                            LblSubProyecto.Text = "Proyecto"
-                    End Select
-                End If
-
-                If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto
-                If LblProyecto IsNot Nothing Then
-                    LblProyecto.Visible = False
-                Else
-                    RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');")
-                End If
-
-            Case 4 To 5
-                If LblSubProyecto IsNot Nothing Then
-                    Select Case UsuarioActual.Empresa.Tipo_CentroCosto
-                        Case 4
-                            LblSubProyecto.Text = "Subproyecto"
-                        Case 5
-                            LblSubProyecto.Text = "Sucursal"
-                    End Select
-                End If
-                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto"
-
+            Case 1
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
+            Case 2
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
+            Case 3
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
+            Case 4
+                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
+            Case 5
+                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
         End Select
-
         If DdlProyecto IsNot Nothing Then
             DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
             DdlProyecto.DataBind()
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index e8ba3f14d..04073217c 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -288,7 +288,7 @@ Partial Class RepVentaDetalle
     End Sub
 
     Private Sub CargaCombos()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
         CargaClientes()
         'DdlClientes.setEsWebService(False)
 
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index c972d0a5d..afec7c32d 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -159,7 +159,7 @@ Partial Class Ventas_RepVentas
 
     Private Sub CargaCombos()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 
         'CargaClientes
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)