diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index f9e1c822b..027cc1a66 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -206,6 +206,19 @@ Partial Class Compras_RepProductosServicios
 
 
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Centro de costo"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             DdlSubProyecto.Items.Clear()
             DivProyecto.Visible = False
             LblProyecto.Visible = False
@@ -218,30 +231,18 @@ Partial Class Compras_RepProductosServicios
             DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
             DdlGrupo.DataBind()
 
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.DataBind()
-
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
             DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
             DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
             DdlGrupo.DataBind()
+            LblSubProyecto.InnerText = "Proyecto"
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
+            LblProyecto.InnerText = "Proyecto<br/>:"
+            LblSubProyecto.InnerText = "Subproyecto:"
 
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
             DdlGrupo.DataBind()
 
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then