diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 992beb0e6..a669e04cb 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -75,9 +75,8 @@
                         <div class="row text-size-12">
                             <div class="col-md-1"><span>Proveedor:</span></div>
                             <div class="col-md-1">
-                                <asp:DropDownList ID="DdlProveedores" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="100%">
-                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="RazonSocial" DataValueField="CveProveedor">
+                                </ADS:Dropdownlost>
                             </div>
                             <div class="col-md-1"><span>Clasificaciones:</span></div>
                             <div class="col-md-1">
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 1627468e6..d35433c2c 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -234,12 +234,18 @@ Partial Class RepCxPDetalle
 
 #Region "CARGAS"
     Private Sub CargaCombos()
-        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedores.DataBind()
-        Dim Proveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero
+        CargaProveedores()
+        Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero
+
+        DdlProveedores.SelectedValue = CveProveedor
+        Me.CveProveedor = CveProveedor
+
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString
+        Else
+            DdlProveedores.SelectedText = "-"
+        End If
 
-        DdlProveedores.SelectedValueExist(Proveedor)
-        CveProveedor = Proveedor
         CveProveedorClasificacion = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero
 
         Dim ProveedorClasificacion As Integer = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero
@@ -447,12 +453,26 @@ Partial Class RepCxPDetalle
         'End If
         'End If
         'ObjEmpresa.Dispose()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
+    Private Sub CargaProveedores()
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlProveedores.setEsWebService(True)
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Seleccione"
+            DdlProveedores.SelectedValue = "-1"
+        Else
+            DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedores.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+    End Sub
+
 #Region "GRIDVIEW"
-
+
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
@@ -659,7 +679,7 @@ Partial Class RepCxPDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         'PARA  REPORTE
         Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
         Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
         Dim FechaIn As String = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}")
         Dim FechaFn As String = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}")