clientes. reseteo usados

Ventas/Clientes.aspx.vb

@@ -1654,6 +1654,10 @@ Partial Class Clientes
                 DivBonificacionUsado.Visible = True
                 CargaUsados()
 
+                If UsuarioActual.TienePermisoProceso(280) Then
+                    UPUsadosReset.Visible = True
+                End If
+
             End If
 
 
@@ -9909,6 +9913,10 @@ Partial Class Clientes
             Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
+
+    Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
+        Alert("Puntuación Inicializada")
+    End Sub
 #End Region
 End Class