diff --git a/Compras/RepReqOCCompraInv.aspx b/Compras/RepReqOCCompraInv.aspx
index 8360ec7ca..383660de6 100644
--- a/Compras/RepReqOCCompraInv.aspx
+++ b/Compras/RepReqOCCompraInv.aspx
@@ -152,7 +152,7 @@
                                 </div>
                             </div>
 
-                            <label class="col-md-1">Sucursal:</label>
+                            <label class="col-md-1">SubProyecto:</label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlSucursal" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm  input-small select2me"></asp:DropDownList>
                             </div>
@@ -165,7 +165,7 @@
                     <div class="row">
                         <label class="col-md-1 truncate" data-toggle="tooltip" title="Almacén Destino">Proveedor:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlProveedor" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control input-sm  input-small select2me" Width="150px" runat="server"></asp:DropDownList>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                         </div>
 
 <%--                        <label class="col-md-1 truncate">Recibido:</label>
diff --git a/Compras/RepReqOCCompraInv.aspx.vb b/Compras/RepReqOCCompraInv.aspx.vb
index d92cc9125..bfbb0fd3a 100644
--- a/Compras/RepReqOCCompraInv.aspx.vb
+++ b/Compras/RepReqOCCompraInv.aspx.vb
@@ -100,15 +100,15 @@ Partial Class RepReqOCCompraInv
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaSucursal()
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
         DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSucursal.SelectedValue = "-1"
     End Sub
     Private Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
         DdlProveedor.SelectedValue = "-1"
     End Sub
 #End Region