cambio a dropdownlost de clientes

This commit is contained in:
2021-09-24 18:07:35 -07:00
parent 16100d1e18
commit 6a897c536e
2 changed files with 14 additions and 13 deletions

View File

@@ -381,7 +381,7 @@ Partial Class AF_AF
CargaEstatusActivoFijo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
RowProyecto.Visible = DdlProyecto.Visible
CargaCliente()
'CargaCliente()
CargaGrupos()
CargaMarcas()
CargaTiposAgenda()
@@ -471,10 +471,10 @@ Partial Class AF_AF
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
DdlEstadoActivoFijo.DataBind()
End Sub
Private Sub CargaCliente()
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind()
End Sub
'Private Sub CargaCliente()
' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
' DdlClientes.DataBind()
'End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
@@ -667,8 +667,11 @@ Partial Class AF_AF
DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
CargaSubProyecto()
DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
DdlClientes.SelectedValueExist(ObjActivoFijo.CveCliente)
DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
Ddlclientes.SelectedValue = ObjActivoFijo.CveCliente.ToString
If ObjActivoFijo.CveCliente > 0 Then
Ddlclientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=ObjActivoFijo.CveCliente).FiltroPrimeroValor("NombreComercial")
End If
DdlMarcas.SelectedValueExist(ObjActivoFijo.CveMarcaActivoFijo)
CargaModelos(DdlMarcas.SelectedValue.ToEntero)
DdlModelos.SelectedValueExist(ObjActivoFijo.CveModeloActivoFijo)