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

Ventas/Clientes.aspx

@@ -4463,6 +4463,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" />

Ventas/Clientes.aspx.vb

@@ -7649,12 +7649,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
 
@@ -7825,11 +7825,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();")
@@ -7854,9 +7854,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
@@ -7865,19 +7865,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')")
@@ -8214,13 +8214,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"))
@@ -8447,10 +8447,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()