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

cambio a dropdownlost de clientes

Browse Source
This commit is contained in:
rrene
2021-09-24 18:07:35 -07:00
parent 16100d1e18
commit 6a897c536e
2 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
AF/AF.aspx
View File

@@ -428,12 +428,10 @@
<label class=" control-label">Cliente: </label> <label class=" control-label">Cliente: </label>
</div> </div>
<div class="col-md-7"> <div class="col-md-7">
<div class="form-group"> <div class="form-group">
<asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Width="200px" ValidationGroup="GrpGuardar"> <ADS:Dropdownlost ID="Ddlclientes" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
<asp:ListItem Selected="True" Text="Sin Cliente Asignado" Value="-1"></asp:ListItem> </div>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>

17
AF/AF.aspx.vb
View File

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