diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 9a3504bbc..cc90a744c 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -163,7 +163,7 @@ Partial Class Compras_RepCxP
             If lItem.Value.ToEntero = 9 Then
                 lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
             End If
-        Next
+        Next
 
 
     End Sub
@@ -1426,7 +1426,24 @@ Partial Class Compras_RepCxP
             TCEspecifico = -1
         End If
 
-        Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
+        Dim Proyecto = ""
+        Dim Sucursal = ""
+
+        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+            Case 1
+                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Centro de costo:</b> {DdlSubProyecto.SelectedItem.Text}")
+            Case 2
+                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
+            Case 3
+                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
+            Case 4
+                Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
+                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sub Proyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
+            Case 5
+                Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
+                Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
+        End Select
+
         Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
         Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
         Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
@@ -1465,7 +1482,7 @@ Partial Class Compras_RepCxP
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
-            params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
+            params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
 
             If Imagen.Exists Then
@@ -1531,23 +1548,34 @@ Partial Class Compras_RepCxP
         UpPersonalizarRango.Update()
     End Sub
 
-    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
        DtPersonalizarRango.AcceptChanges()
        CargaGv()
    End Sub
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
+        DtPersonalizarRango.AcceptChanges()
+        CargaGv()
+    End Sub
 
-    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         Index = gvRow.RowIndex
         Modalidad = "U"
-        DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
        TxtRI.Text = gvRow.DataKey("RangoInicial")
        TxtRF.Text = gvRow.DataKey("RangoFinal")
        If Not TxtRF.Text.ToDouble > 0 Then
+        DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
+        TxtRI.Text = gvRow.DataKey("RangoInicial")
+        TxtRF.Text = gvRow.DataKey("RangoFinal")
+        If Not TxtRF.Text.ToDouble > 0 Then
             ChkMayor.Checked = True
             TxtRF.Enabled = False
         Else
             ChkMayor.Checked = False
         End If
-        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
        UpPersonalizarRangoEditar.Update()
    End Sub
+        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
+        UpPersonalizarRangoEditar.Update()
+    End Sub
 
     Private Sub LimpiaPersonalizarColumna()
         DdlTipo.SelectedIndex = 0
-        TxtRI.Text = ""
        TxtRF.Text = ""
+        TxtRI.Text = ""
+        TxtRF.Text = ""
         ChkMayor.Checked = False
         SoloNumeros2.Enabled = True
         TxtRF.Enabled = True
@@ -1670,7 +1698,8 @@ Partial Class Compras_RepCxP
     Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs)
         Modalidad = "A"
         LimpiaPersonalizarColumna()
-        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
        UpPersonalizarRangoEditar.Update()
+        RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
+        UpPersonalizarRangoEditar.Update()
     End Sub
 
     Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)