nuevo reporte de top clientes ventas

Ventas/RepTopClientesVentas.aspx.vb

@@ -11,7 +11,8 @@ Partial Class Ventas_RepTopClientesVentas
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-
+            CargarFiltros()
+            CargaDatos()
         End If
     End Sub
 
@@ -35,8 +36,30 @@ Partial Class Ventas_RepTopClientesVentas
 
         For AñoIndex As Integer = añoActual To (añoActual - 10) Step -1
             Dim row As DataRow = tablaAños.NewRow()
-            'row["idAño"] = 
+            row("idAño") = AñoIndex
+            row("Año") = AñoIndex
+            tablaAños.Rows.Add(row)
         Next
 
+        DdlAño.DataSource = tablaAños
+        DdlAño.DataBind()
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepTopClientesVentas(UsuarioActual.CveEmpresa, DdlMes.SelectedValue.ToEntero, DdlAño.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero) Then
+            GvM.DataSource = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GvM.DataBind()
+    End Sub
+
+    Protected Sub BtnConsultar_Click() Handles BtnConsultar.Click
+        CargaDatos()
+        UppGrid.Update()
     End Sub
 End Class