diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 62fc596a4..0158f31ad 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
     End Sub
     Private Sub CargaContratoPadre()
         DdlContratoPadre.Items.Clear()
-        DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
+        DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
         DdlContratoPadre.DataBind()
         DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 62d582d06..ebb96cdf0 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -355,10 +355,8 @@
                                                 <label class="col-md-3 truncate ">
                                                     <asp:Label ID="LblProveedor" runat="server" Text="Proveedor:"></asp:Label></label>
                                                 <div class="col-md-9">
-                                                        <asp:DropDownList ID="DdlContratista" runat="server" CssClass="input-sm form-control select2me" AppendDataBoundItems="True" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 350px !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
-                                                    </div>
+                                                    <ADS:Dropdownlost ID="DdlContratista" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
+                                                  </div>
                                             </div>
 
  
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 811096536..8d67cbbde 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -744,6 +744,8 @@ Partial Class Contratos_ContratoObra
                     TrCliente.Visible = False
                     CargaContratista()
                     DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString
+                    DdlContratista.SelectedText = ObjContratos.RazonSocial.ToString
+
                 Else
                     cargaClientes()
                     DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString
@@ -1205,8 +1207,8 @@ Partial Class Contratos_ContratoObra
     '    DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     'End Sub
     Private Sub CargaContratista()
-        DdlContratista.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlContratista.DataBind()
+        DdlContratista.setEsWebService(True)
+        DdlContratista.Attributes.Add("data-metodo", "getproveedores")
     End Sub
 
     'Private Sub CargaVendedores()