.

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