diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index a4da96cb2..e7a5e5439 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -153,7 +153,7 @@ Partial Class Compras_RepComprasDetalle
         DdlGrupo.SelectedValueExist(Grupo)
         DdlProveedores.SelectedValue = Proveedor
         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimeroValor("RazonSocial", "").ToString
         Else
             DdlProveedores.SelectedText = "Todos"
         End If