diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 8c4c615cc..a3596393d 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -86,6 +86,7 @@ Partial Class RepOC
         'DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
         GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
+        GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
         DivProyectos.Visible = DdlProyectos.Visible
     End Sub
 
@@ -457,6 +458,7 @@ Partial Class RepOC
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
+            params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
 
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
@@ -488,6 +490,7 @@ Partial Class RepOC
             params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
 
             ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtOC, params, Formato:="EXCEL")
         Else