+
+
+ Reporte de Top de Ventas por Cliente
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb
new file mode 100644
index 000000000..ba07c2487
--- /dev/null
+++ b/Ventas/RepTopClientesVentas.aspx.vb
@@ -0,0 +1,42 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Web.Compilation
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Ventas_RepTopClientesVentas
+ Inherits ClsPaginas
+
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+
+ End If
+ End Sub
+
+ Private Sub CargarFiltros()
+ Dim tablaAños As New DataTable
+
+ Dim idAño As New DataColumn
+ idAño.ColumnName = "idAño"
+ idAño.Caption = "idAño"
+ idAño.DataType = System.Type.GetType("System.Int32")
+
+ Dim Año As New DataColumn
+ Año.ColumnName = "Año"
+ Año.Caption = "Año"
+ Año.DataType = System.Type.GetType("System.Int32")
+
+ tablaAños.Columns.Add(idAño)
+ tablaAños.Columns.Add(Año)
+
+ Dim añoActual As Integer = DateTime.Now.Year
+
+ For AñoIndex As Integer = añoActual To (añoActual - 10) Step -1
+ Dim row As DataRow = tablaAños.NewRow()
+ 'row["idAño"] =
+ Next
+
+ End Sub
+End Class