From ebf4aaa176ff449d4c7217b096b1bc31c9d7e276 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 20 Mar 2022 07:23:02 -0700
Subject: [PATCH] - columna de acumulados

---
 Ventas/Clientes.aspx    |  1 +
 Ventas/Clientes.aspx.vb | 46 ++++++++++++++++++++---------------------
 2 files changed, 24 insertions(+), 23 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 1ad207e64..115f8ea8c 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4449,6 +4449,7 @@
 
                                                         <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
                                                         <asp:BoundField DataField="Puntos" HeaderText="Puntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right"  />
+                                                        <asp:BoundField DataField="AcumPuntos" HeaderText="AcumPuntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right"  />
                                                         <asp:BoundField DataField="ImporteCargo" HeaderText="Imp.Cargo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
                                                         <asp:BoundField DataField="ImporteBonificacion" HeaderText="Imp. Bonificación" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
                                                         <asp:BoundField DataField="ImporteCompra" HeaderText="Imp. Compra" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 901a8b01f..ce1af5a0f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7648,12 +7648,12 @@ Partial Class Clientes
 
         RegistraScript("Download('" & baseUrl & "')")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T O S  V E N T A S"
-
+
     Private Sub CargaDocumentosVenta(tCveCliente As Integer)
         Dim objInv As New ClsEdocumentacion
 
@@ -7824,11 +7824,11 @@ Partial Class Clientes
 
         objRH.Dispose()
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "PERSONA FISICA"
     Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -7853,9 +7853,9 @@ Partial Class Clientes
 
         ObjCliente.Dispose()
         UpDatos.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "USUARIOS PLATAFORMA CLIENTE - 6 "
     Protected Sub CargaUsuariosPortalCliente()
         Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -7864,19 +7864,19 @@ Partial Class Clientes
             GvUsuarios.DataBind()
         End If
         objUsuario.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  DEVOLVER DINERO ANT/NC  "
     Private Sub InicializaDevolverDinero()
         If UsuarioActual.TienePermisoProceso(247) Then
             GVAnticipos.Columns(6).Visible = True
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "MODAL GRAFICA/PEDIDOS"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If CargaDatatables() Then
             RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -8213,13 +8213,13 @@ Partial Class Clientes
         RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
 
         UPModalProd.Update()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "TAB - COMPORTAMIENTO DE VENTAS"
-
+
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
         DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8446,10 +8446,10 @@ Partial Class Clientes
         CargaEventoBitacora()
         NombreDispositivo = ""
         RegistraScript("$('#DivMoverDispositivo').modal('hide');")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "CRM"
     Protected Sub CargaDatosCRM()
         Dim ObjCRM = New ClsCRM()