From f447227d5d86967f0d4a7a971b2587f0a35bafb6 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Feb 2024 15:34:28 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20en=20la=20visualizaci?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/AF.aspx.vb | 1 + AF/CatClasificacionesCaracteristicas.aspx | 6 ++-- AF/CatClasificacionesCaracteristicas.aspx.vb | 35 ++++---------------- 3 files changed, 10 insertions(+), 32 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 2021d462e..562bcad8c 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -661,6 +661,7 @@ Partial Class AF_AF End Sub Private Sub CargaTipoActivoFijo() + DdlTipoActivoFijo.Items.Clear() DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() CargaSubTipoActivoFijo() diff --git a/AF/CatClasificacionesCaracteristicas.aspx b/AF/CatClasificacionesCaracteristicas.aspx index 90528e45c..29c63c4cb 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx +++ b/AF/CatClasificacionesCaracteristicas.aspx @@ -90,7 +90,7 @@ - + <%--   @@ -300,7 +300,7 @@ - +   @@ -537,7 +537,7 @@ - +   diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb index d67d76f89..8f6b1e18f 100644 --- a/AF/CatClasificacionesCaracteristicas.aspx.vb +++ b/AF/CatClasificacionesCaracteristicas.aspx.vb @@ -52,7 +52,6 @@ Partial Class AF_CatClasificacionesCaracteristicas 'Carga Globals para DT CargaTiposActivosFijos() - CargaSubTiposActivosFijos() ''CargaCaracteristicasClasificaciones() 'CargaCaracteristicas() End If @@ -66,17 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTiposActivosFijosOpciones.DataBind() End Sub - Private Sub CargaSubTiposActivosFijos() - Dim ObjAF As New ClsAF - If ObjAF.GetSubTiposActivosFijos(UsuarioActual.CveEmpresa) Then - GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = ObjAF.DtResultados - Else - Alert("Ocurrio un error al obtener los SubTipos de Activos Fijos", TipoMensaje.MsgError) - End If - - ObjAF.Dispose() - End Sub #Region "CLASIFICACIONES" Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Dim ObjCaracteristicaClasificacion As New ClsAF @@ -85,8 +74,7 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtCaracteristicaClasificacionCL.Text = "" Alert("La Nueva Clasificación de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCL.Update() - - CargaSubTiposActivosFijos() + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing If ViewState("OrdenCL").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCL").ToString(), 0) @@ -147,10 +135,7 @@ Partial Class AF_CatClasificacionesCaracteristicas Dim ObjCaracteristicaClasificacion As New ClsAF If ObjCaracteristicaClasificacion.RemoveClasificacionesCaracteristicas(GvDatosCL.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvDatosCL.EditIndex = -1 - - CargaSubTiposActivosFijos() - 'CargaCaracteristicasClasificaciones() - + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -183,9 +168,7 @@ Partial Class AF_CatClasificacionesCaracteristicas If ObjCaracteristicaClasificacion.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Estatus, CveCaracteristicaClasificacion, UsuarioActual.CveEmpresa) Then GvDatosCL.EditIndex = -1 - CargaSubTiposActivosFijos() - 'CargaCaracteristicasClasificaciones() - + GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -228,12 +211,10 @@ Partial Class AF_CatClasificacionesCaracteristicas TxtLongitudCA.Text = "" Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulosCA.Update() - ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - CargaSubTiposActivosFijos() - ''CargaCaracteristicasClasificaciones() - 'CargaCaracteristicas() + GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing + If ViewState("OrdenCA").ToString() <> String.Empty Then CargaGrid(ViewState("OrdenCA").ToString(), 1) @@ -262,7 +243,7 @@ Partial Class AF_CatClasificacionesCaracteristicas End Sub Protected Sub DdlTiposActivosFijosCA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTiposActivosFijosCA.SelectedIndexChanged DdlSubTiposActivosFijosCA.Items.Clear() - DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", DdlTiposActivosFijosCA.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) + DdlSubTiposActivosFijosCA.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, DdlTiposActivosFijosCA.SelectedValue.ToEntero) DdlSubTiposActivosFijosCA.DataBind() DdlSubTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -368,8 +349,6 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosCA.EditIndex = -1 GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing - CargaSubTiposActivosFijos() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -596,8 +575,6 @@ Partial Class AF_CatClasificacionesCaracteristicas GvDatosOpciones.EditIndex = -1 ViewState("DTCatacteristicaOpciones") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - CargaSubTiposActivosFijos() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If