From 2253d50730b94f81fbed875265bed3f925731dfa Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 2 Oct 2023 16:24:50 -0700
Subject: [PATCH] =?UTF-8?q?--=20VISUALIZACI=C3=93N=20COLUMNA=20DE=20Descri?=
 =?UTF-8?q?pcionVenta,=20en=20historial,=20con=20FNC-163?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx    | 1 +
 Ventas/Clientes.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 25dc5a555..0d8cc059d 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1438,6 +1438,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                                            <asp:BoundField HeaderText="Descripción" DataField="DescripcionVenta" Visible="false" ItemStyle-HorizontalAlign="Left"   />
                                                             <asp:TemplateField HeaderText="Sub Total" ItemStyle-HorizontalAlign="Right">
                                                                 <ItemTemplate>
                                                                     <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# If(CDbl(Eval("SubTotal")) = 0, "", Eval("SubTotal", "{0:N2}")) %>'></asp:Literal>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index b524a99e2..9ca74c8df 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1754,7 +1754,7 @@ Partial Class Clientes
         Dim ObjClientes As New ClsClientes()
         If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
-
+                GVHistorial.Columns(3).Visible = UsuarioActual.Empresa.Funcionalidad(163) = "1" ' mostrar columna de descripción
                 'Carga Grid
                 DTHistorialVentas = ObjClientes.DtResultados
                 GVHistorial.DataSource = ObjClientes.DtResultados