terminando el reporte de metas vendedores

Ventas/MetasVendedores.aspx.vb

@@ -8,8 +8,38 @@ Partial Class MetasVendedores
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaDatosModal()
+            CargaDatosFiltros()
         End If
     End Sub
+    Private Sub CargaDatosFiltros()
+        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoFiltro.DataBind()
+        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarcaFiltro.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarcaFiltro.DataBind()
+        DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedorFiltro.DataBind()
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+        DdlCategoria.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     Private Sub CargaDatosModal()
         DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)