Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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,
+    Public Function GetOrdenesCompraRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date,
-                               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,
+                                        FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
-                                        Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+                                        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

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>
 

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

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>

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

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()

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>
+                            <asp:Label runat="server" ID="LblProyecto" class="colf-1 truncate">Proyecto:</asp:Label>
-                            <div class="colf-2">
+                            <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>
+                        <asp:Label runat="server" ID="LblUsuarioAutorizo" Visible="false" class="colf-1">Usuario Autorizó</asp:Label>
-                        <div class="colf-2">
+                        <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>

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.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.DataBind()
-        DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        '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,
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   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,
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
-                                   SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
+                                   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,
+                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
-                        SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then
+                        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

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>

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