diff --git a/Compras/PopUpBuscarFolioC.aspx b/Compras/PopUpBuscarFolioC.aspx
index 041743b15..77b5be834 100644
--- a/Compras/PopUpBuscarFolioC.aspx
+++ b/Compras/PopUpBuscarFolioC.aspx
@@ -46,7 +46,7 @@
                     <tr style="text-align: left">
                         <td class="text-right"><b>Proveedor:</b></td>
                         <td>
-                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="180px"></asp:DropDownList>
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" UsaWebService="true"  data-metodo="getproveedores" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
                         </td>
                     </tr>
                     <tr style="text-align: left">
diff --git a/Compras/PopUpBuscarFolioC.aspx.vb b/Compras/PopUpBuscarFolioC.aspx.vb
index de4e0e45b..3b95e36c9 100644
--- a/Compras/PopUpBuscarFolioC.aspx.vb
+++ b/Compras/PopUpBuscarFolioC.aspx.vb
@@ -31,9 +31,9 @@ Partial Class Compras_PopUpBuscarFolioC
     End Sub
 
     Protected Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 
@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
         If ValidarUnFiltroSeleccionado() Then
             Dim ObjCompras As New ClsCompras()
             If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
-                                 CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
+                                 CveProveedor:=DdlProveedores.SelectedValue.ToEntero, TopSelect:=100) Then
                 If ObjCompras.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjCompras.DtResultados
@@ -112,7 +112,7 @@ Partial Class Compras_PopUpBuscarFolioC
         If TxtDescripcion.Text.Trim.Length > 0 Then Return True
         If TxtObservaciones.Text.Trim.Length > 0 Then Return True
         If DdlTipoDocto.SelectedValue <> "-1" Then Return True
-        If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
+        If DdlProveedores.SelectedValue.ToEntero <> 0 Then Return True
         Return False
     End Function
 End Class