From 6f0b03f0c9dce0124ce77666121be87b6953d362 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 Aug 2021 07:46:40 -0700 Subject: [PATCH] -- cambio de ddlcliente a dropdonwlost --- AF/PopUpBuscarAF.aspx | 33 +++++++++++++++++---------------- AF/PopUpBuscarAF.aspx.vb | 17 ++++++++++------- 2 files changed, 27 insertions(+), 23 deletions(-) diff --git a/AF/PopUpBuscarAF.aspx b/AF/PopUpBuscarAF.aspx index 7fc99c76c..f5313feb6 100644 --- a/AF/PopUpBuscarAF.aspx +++ b/AF/PopUpBuscarAF.aspx @@ -108,18 +108,18 @@ Tipo de Activo Fijo: - - + + <%----%> <%----%> - SubTipo de Activo Fijo: + SubTipo de A.F: - - + + @@ -161,8 +161,8 @@ Estado: - - + + @@ -171,8 +171,8 @@ --%> Responsable: - - + + @@ -181,8 +181,8 @@ Proyecto: - - + + <%-- @@ -191,17 +191,18 @@ SubProyecto: - - + + Cliente: - - - + + <%-- + + --%> diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb index 864de32d2..cc61ddb46 100644 --- a/AF/PopUpBuscarAF.aspx.vb +++ b/AF/PopUpBuscarAF.aspx.vb @@ -189,7 +189,7 @@ Partial Class AF_PopUpBuscarAF DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'") 'DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'") DdlSubTipoActivoFijo.DataBind() - DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaCaracteristicas() @@ -214,7 +214,7 @@ Partial Class AF_PopUpBuscarAF ' DdlModeloActivoFijo.Items.Clear() ' DdlModeloActivoFijo.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ' DdlModeloActivoFijo.DataBind() - ' DdlModeloActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' DdlModeloActivoFijo.Items.Insert(0, New ListItem("Todos", "-1")) 'End Sub Private Sub CargaMarcaActivoFijo() 'DdlMarcaActivoFijo.DataSource = GlobalDTMarcaActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -238,15 +238,18 @@ Partial Class AF_PopUpBuscarAF DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1")) + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaEstatusActivoFijo() DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataBind() End Sub Private Sub CargaCliente() - DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlCliente.DataBind() + + DdlClientes.setEsWebService(True) + + ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlCliente.DataBind() End Sub #End Region @@ -265,7 +268,6 @@ Partial Class AF_PopUpBuscarAF Dim CveProyecto As Integer = -1 Dim CveSubProyecto As Integer = -1 Dim EstadoActivoFijo As Integer = -1 - Dim CveCliente As Integer = -1 If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim If TxtDescripcion.Text.Trim <> String.Empty Then Descripcion = TxtDescripcion.Text.Trim @@ -278,7 +280,8 @@ Partial Class AF_PopUpBuscarAF If DdlProyecto.SelectedValue <> String.Empty Then CveProyecto = DdlProyecto.SelectedValue.ToEntero If DdlSubProyecto.SelectedValue <> String.Empty Then CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero If DdlEstadoActivoFijo.SelectedValue <> String.Empty Then EstadoActivoFijo = DdlEstadoActivoFijo.SelectedValue.ToEntero - If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero + 'If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero + Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero) Dim strSQL1 As New StringBuilder Dim booPrimerCampo As Boolean = False