diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index d77fcd5c0..9e444510f 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         'DdlCategoria.SelectedValueExist(Categoria)
         DdlClasificacion.SelectedValueExist(Clasificacion)
-        If PS <> "-1" Then
+        If PS.ToEntero > 1 Then
             DdlPS.SelectedValue = PS
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
+            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo")
         End If
 
         'DdlSubProyecto.SelectedValueExist(SubProyecto)
         DdlFamilia.SelectedValueExist(Familia)
         DdlSubFamilia.SelectedValueExist(SubFamilia)
-        DdlProveedor.SelectedValue = Proveedor
+
         If Proveedor.ToEntero > 0 Then
-            DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                DdlProveedor.SelectedText = Dr("RazonSocial").ToString
+                DdlProveedor.SelectedValue = Proveedor
+            End If
         Else
             DdlProveedor.SelectedText = "Todos"
         End If
@@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlClasificacion.DataBind()
 
         'CargaProveedor
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
 
         'CargaUsuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)