diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index c7243644b..f0016d615 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -230,7 +230,7 @@ Partial Class RepCxPDetalle
         Me.CveProveedor = CveProveedor
 
         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor).FiltroPrimeroValor("RazonSocial").ToString
         Else
             DdlProveedores.SelectedText = "-"
         End If