dropdownlist por dropdownlost en proveedor

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()