+
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 75ad9593e..77a3a7f30 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -571,8 +571,8 @@ Partial Class Contratos_ContratoObra
End Function
Private Sub cargaClientes()
- DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
- DdlCliente.DataBind()
+ DdlCliente.setEsWebService(True)
+ DdlCliente.Attributes.Add("data-metodo", "getcliente")
End Sub
Private Sub CreaDT()
@@ -736,8 +736,8 @@ Partial Class Contratos_ContratoObra
TipoContrato = ObjContratos.CveContratoTipo
CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero
TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
- DdlCliente.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCliente").ToString)
-
+ DdlCliente.ddl.SelectedValueExist(ObjContratos.CveCliente)
+
If ObjContratos.CveProveedor > 0 Then
' TrProveedor.Visible = True
TrCliente.Visible = False
@@ -745,7 +745,7 @@ Partial Class Contratos_ContratoObra
DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString
Else
cargaClientes()
- DdlCliente.SelectedValueExist(ObjContratos.CveCliente.ToString)
+ DdlCliente.ddl.SelectedValueExist(ObjContratos.CveCliente)
UpGral.Update()
CargaSucursalCliente()
DdlSucursalCliente.SelectedValue = ObjContratos.CveSucursalCliente.ToString