-- filtro por categoria

Inventarios/RepEntradasSalidas.aspx.vb

@@ -186,10 +186,20 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
     End Sub
     Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero)
-        DdlClasificacion.DataBind()
-        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
+
+        CargaClasificaciones()
     End Sub
+
+    Private Sub CargaClasificaciones(CveCategoria As Integer)
+        Dim ObjClasificaciones As New ClsClasificaciones
+        If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+        End If
+        ObjClasificaciones.Dispose()
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargaDatos()
     End Sub