diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx
index 015394096..b6ee8e1f9 100644
--- a/Compras/RepComprasAF.aspx
+++ b/Compras/RepComprasAF.aspx
@@ -152,10 +152,11 @@
                             <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1" style="display:none;">Producto Servicio:</div>
+                        </div> 
+
+                        <div class="col-md-1">Producto Servicio:</div>
                         <div class="col-md-2">
-                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
+                           <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
                         </div>
                     </div>
                 </div>
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index 3d1e6789b..2c5fc308c 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/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
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 1f5ae872f..0d78f1e74 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -448,4 +448,24 @@ Partial Class Compras_RepComprasAFDetalle
 
         Return filtro
     End Function
+    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
\ No newline at end of file