-

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