AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dropdownlist clientes

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-07-20 18:44:50 -07:00
parent fef9d029a0
commit 5719edc47c
2 changed files with 34 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Contratos/ContratoObra.aspx.vb
View File

@@ -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