-Ajustes para inicialización de usados

Ventas/Clientes.aspx.vb

@@ -8899,7 +8899,7 @@ Partial Class Clientes
 
                 GvAcum.DataSource = ObjAcum.DtResultados
 
-                LblUsadosPuntos.Text = (ObjAcum.DtResultados.SUM("Puntos", " CveConcepto = 2 ") - ObjAcum.DtResultados.SUM("Puntos", "  CveConcepto = 1 ")).ToDecimal.FormatoNumero(2)
+                LblUsadosPuntos.Text = (ObjAcum.DtResultados.SUM("Puntos", " CveConcepto = 2 ") - ObjAcum.DtResultados.SUM("Puntos", "  CveConcepto IN (1,3) ")).ToDecimal.FormatoNumero(2)
 
                 ImporteCargo = ObjAcum.DtResultados.SUM("ImporteCargo", "(FacturadoCargo = 0 OR FacturadoCargo IS NULL) AND CveConcepto = 1 ").ToDecimal
                 ImporteBonificacion = ObjAcum.DtResultados.SUM("ImporteBonificacion", "(FacturadoBonificacion = 0 OR FacturadoBonificacion IS NULL) AND CveConcepto = 1 ").ToDecimal
@@ -9928,7 +9928,14 @@ Partial Class Clientes
     End Sub
 
     Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
-        Alert("Puntuación Inicializada")
+
+        Dim Acum As New ClsAcumuladores
+        Dim Puntos As Decimal = -LblUsadosPuntos.Text.ToDecimal
+        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado") Then
+            Alert("Puntuación Inicializada")
+        End If
+        Acum.Dispose()
+
     End Sub
 #End Region
 End Class