diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 4a1cd26ba..b12725805 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -1729,9 +1729,11 @@ Public Class ClsOC
     'End Function
 #End Region
 
-    Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer,
-                               FechaInicio As Date, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveActivoFijo As Integer = -1,
-                                        Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+    Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date,
+                                        FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
+                                        CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
+                                        Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
+                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1757,6 +1759,8 @@ Public Class ClsOC
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
             .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
+            .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
 
         End With
@@ -1863,7 +1867,7 @@ Public Class ClsOC
     End Function
 
     Public Function GetOrdenesPendientes(pTipo As String, pTipoBusqueda As Integer, pCveEmpresa As Integer, pCveProyecto As Integer, pCveSubProyecto As Integer, pCveEstatusCompra As Integer,
-                              pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False) As Boolean
+                              pCveUsuario As Integer, CveCliente As Integer, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraPendientes")
@@ -1878,6 +1882,8 @@ Public Class ClsOC
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@TipoBusqueda", SqlDbType.Int).Value = pTipoBusqueda
             .Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
+            .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
         End With
 
         Try
diff --git a/Edoc/Contratos.aspx b/Edoc/Contratos.aspx
index 89cf0b08c..ca690e7c6 100644
--- a/Edoc/Contratos.aspx
+++ b/Edoc/Contratos.aspx
@@ -16,7 +16,17 @@
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregarContratoModal" data-toggle="tooltip" data-placement="left" title="Agregar Contrato " Text="<i class='fa fa-plus'></i> Agregar Contrato"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
+            </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkPDF" />
+            <asp:PostBackTrigger ControlID="LnkExcel" />
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 
diff --git a/Edoc/Contratos.aspx.vb b/Edoc/Contratos.aspx.vb
index 46bd9fa4b..87fd7d107 100644
--- a/Edoc/Contratos.aspx.vb
+++ b/Edoc/Contratos.aspx.vb
@@ -3,6 +3,7 @@
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Proveedores_Contratos
     Inherits ClsPaginas
@@ -20,6 +21,15 @@ Partial Class Proveedores_Contratos
         End Set
     End Property
 
+    Protected Property DtDatos As DataTable
+        Get
+            Return CType(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
@@ -39,6 +49,7 @@ Partial Class Proveedores_Contratos
 
         If ObjProv.GetContrato(-1, DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlProveedorFiltro.SelectedValue.ToEntero, DdlTipoContratoFiltro.SelectedValue.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjProv.DtResultados
+            DtDatos = ObjProv.DtResultados
         Else
             GvDatos.DataSource = Nothing
         End If
@@ -329,4 +340,31 @@ Partial Class Proveedores_Contratos
         End If
 
     End Sub
+
+    Protected Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        Imprimir("PDF")
+    End Sub
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        Imprimir("Excel")
+    End Sub
+
+    Private Sub Imprimir(Formato As String)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+        Dim Filtro As String = String.Format("<b>{0}: </b>{1}&emsp; &emsp;<b>Proveedor: </b>{2}&emsp; &emsp;<b>Tipo Contrato: </b>{3}", LblSubProyectoFiltro.Text, DdlSubProyectoFiltro.SelectedItem.Text, DdlProveedorFiltro.SelectedItem.Text, DdlTipoContratoFiltro.SelectedItem.Text)
+        params.Add(New ReportParameter("Filtro", Filtro))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", logouri))
+        End If
+        ImprimirPDF("Empresas/Grales/Formatos/RepContratosGen.rdlc", DtDatos, params, "Reporte de Contratos", Formato)
+    End Sub
 End Class
diff --git a/Empresas/72/Formatos/OC.rdlc b/Empresas/72/Formatos/OC.rdlc
index 98d08aecd..a50a0b15a 100644
--- a/Empresas/72/Formatos/OC.rdlc
+++ b/Empresas/72/Formatos/OC.rdlc
@@ -2289,7 +2289,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Comprador: </Value>
+                  <Value>Asignado a: </Value>
                   <Style>
                     <FontFamily>Myriad Pro Light</FontFamily>
                     <FontSize>9pt</FontSize>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 0a668c649..cb8126518 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -464,7 +464,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If UsuarioActual.CveSubProyecto = 8804 Then 'AGS
             StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,12,15")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         Else
-            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
+            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         End If
 
         If CveTipoCompra = 10 Then
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index be7031de6..03d0415ca 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5381,7 +5381,7 @@ Partial Class OC
                 BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update()
                 'RVProveedores.Enabled = True
 
-                If CveEmpresaActual.Contiene(13, 83, 72) Then
+                If CveEmpresaActual.Contiene(13, 83, 72, 80) Then
                     PnlUsuarioAsignado.Visible = True
                     DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual)
                     DdlUsuariosAsignado.DataBind()
diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 7784cd01c..b01887af2 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -149,12 +149,12 @@
                                     <asp:ListItem Value="OC" Text="Ordenes Compra"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-                            <label class="colf-1 truncate">Proyecto:</label>
-                            <div class="colf-2">
+                            <asp:Label runat="server" ID="LblProyecto" class="colf-1 truncate">Proyecto:</asp:Label>
+                            <div runat="server" id="DivProyectos" class="colf-2">
                                 <asp:DropDownList ID="DdlProyectos" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
                                 </asp:DropDownList>
                             </div>
-                            <label class="colf-1 truncate">SubProyecto:</label>
+                            <asp:Label runat="server" ID="LblSubProyecto" class="colf-1 truncate">SubProyecto:</asp:Label>
                             <div class="colf-2">
                                 <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
                                 </asp:DropDownList>
@@ -181,11 +181,16 @@
                             <asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
                             </asp:DropDownList>
                         </div>
-                        <label class="colf-1">Usuario Autorizó</label>
-                        <div class="colf-2">
+                        <asp:Label runat="server" ID="LblUsuarioAutorizo" Visible="false" class="colf-1">Usuario Autorizó</asp:Label>
+                        <div runat="server" id="DivUsuarioAutorizo" visible="false" class="colf-2">
                             <asp:DropDownList ID="DdlUsuarioAutorizo" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
                             </asp:DropDownList>
                         </div>
+                        <label class="colf-1">Asignado a</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlUsuarioAsignado" runat="server" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" Style="width: 95px; height: 30px; display: inline-block;">
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                     <div class="row rownomargin">
@@ -241,6 +246,14 @@
                         <div class="colf-3">
                             <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
                         </div>
+                        <label class="colf-1">Entrega Directa</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlEntregaDirecta" runat="server" CssClass="form-control input-sm select2me" Style="width: 95px; height: 30px; display: inline-block;">
+                                <asp:ListItem selected="True" Text="Todos" Value="-1"/>
+                                <asp:ListItem Text="No" Value="0"/>
+                                <asp:ListItem Text="Si" Value="1"/>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -326,6 +339,8 @@
                                 <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                                 <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                                <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                                <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                 <asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
                             </Columns>
@@ -361,6 +376,8 @@
                                 <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                                 <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                                <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                                <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                 <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                                 <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
                             </Columns>
@@ -398,6 +415,8 @@
                     <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
                     <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
                     <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
+                    <asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
+                    <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                     <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                     <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
                 </Columns>
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 290f20027..a3596393d 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -53,7 +53,7 @@ Partial Class RepOC
             'End If
 
             CargaProyectos()
-            CargaSubProyectos()
+            'CargaSubProyectos()
             CargaUsuarios()
             CargaProveedores()
             CargaEstatus()
@@ -81,9 +81,13 @@ Partial Class RepOC
 
 #Region "  CARGA COMBOS  "
     Protected Sub CargaProyectos()
-        DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
-        DdlProyectos.DataBind()
-        DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+        'DdlProyectos.DataBind()
+        '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
 
     Protected Sub CargaSubProyectos()
@@ -97,6 +101,10 @@ Partial Class RepOC
         ddlUsuario.DataBind()
         ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioAsignado.DataBind()
+        DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
+
         DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuarioAutorizo.DataBind()
         DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,8 +195,8 @@ Partial Class RepOC
 
         Dim OC As New ClsOC
         If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             DtPorAtender = OC.DtResultados
             GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
@@ -203,8 +211,8 @@ Partial Class RepOC
         End If
 
         If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
             GvPendientes.DataSource = OC.DtResultados
             GvPendientes.DataBind()
             'If (GvPendientes.Rows.Count > 0) Then
@@ -317,8 +325,9 @@ Partial Class RepOC
         Dim OC As New ClsOC
         If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
                         DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
-                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
-                        SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then
+                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
+                        ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
 
             GvConsultar.DataSource = OC.DtResultados
             DtOC = OC.DtResultados
@@ -449,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))
@@ -480,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
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 71897ac72..25ab45b50 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2378,6 +2378,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Archivos</HeaderTemplate>
+                                                <ItemStyle HorizontalAlign="Center"/>
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HplXML" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i></asp:HyperLink>
                                                     <asp:HyperLink ID="HplPDF" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-pdf-o' style="font-weight:bold;"></i></asp:HyperLink>
@@ -2385,6 +2386,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Reenviar Complemento</HeaderTemplate>
+                                                <ItemStyle HorizontalAlign="Center"/>
                                                 <ItemTemplate>
                                                     <%-- <a id="HLSendMail" runat="server" class="Texto" visible="false">
                                                         <i class="fa fa-envelope fa-2" aria-hidden="true"></i>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index d9da7cfae..d2e4de5ff 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2013,6 +2013,7 @@ Partial Class Clientes
                     ObjBancos.Dispose()
                 End If
                 e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.Font.Bold = True
             End If
 
             If e.Row.DBCampo("CveVenta") = "" And e.Row.DBCampo("Banco") = "" Then
@@ -6328,6 +6329,7 @@ Partial Class Clientes
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("AgrupadoPor", String.Format("<b>Cliente: </b>{0}", TxtNombreComercial.Text)))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then