Mostrar ddl PS y filtrar por clasificacion

Compras/RepComprasAF.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Compras_RepComprasAF
     Private Sub Compras_RepComprasAFaspx_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            DdlPS.ddl.Visible = False
+            'DdlPS.ddl.Visible = False
             If UsuarioActual.Empresa.GralSoloProyecto Then
                 LblSubProyecto.Text = "Proyecto:"
                 DdlSubProyecto.Items.Clear()
@@ -429,5 +429,24 @@ Partial Class Compras_RepComprasAF
     End Sub
 
 #End Region
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero)
+    End Sub
+    Private Sub CargaPS(CveClasificacion As Integer)
 
+        DdlPS.setEsWebService(If(UsuarioActual.Empresa.Funcionalidad(105).ToString = "1", True, False))
+
+        If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        Else
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = "Todos"
+            DdlPS.SelectedValue = "-1"
+        End If
+
+    End Sub
 End Class