-- corrección en la visualización

2024-02-17 15:34:28 -07:00
parent 2314cb7efe
commit f447227d5d
3 changed files with 10 additions and 32 deletions
--- 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()
--- a/AF/CatClasificacionesCaracteristicas.aspx
+++ b/AF/CatClasificacionesCaracteristicas.aspx
@@ -90,7 +90,7 @@
                                                </asp:UpdatePanel>
                                                <asp:UpdatePanel ID="UpDatosCL" runat="server" UpdateMode="Conditional">
                                                    <ContentTemplate>
-                                                        <asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                                        <asp:GridView ID="GvDatosCL" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaClasificacion" EmptyDataText="No se encontraron Clasificaciones" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                                            <Columns>
                                                                <%--<asp:TemplateField>
                                                                    <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCL" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -300,7 +300,7 @@
                                                </asp:UpdatePanel>
                                                <asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
                                                    <ContentTemplate>
-                                                        <asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                                        <asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
                                                            <Columns>
                                                                <asp:TemplateField>
                                                                    <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -537,7 +537,7 @@
                                                </asp:UpdatePanel>
                                                <asp:UpdatePanel ID="UpDatosOpciones" runat="server" UpdateMode="Conditional">
                                                    <ContentTemplate>
-                                                        <asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                                        <asp:GridView ID="GvDatosOpciones" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristicaOpcion" EmptyDataText="No se encontraron Opciones" CssClass="table table-striped table-advance table-hover mysmallbtn"  GridLines="None">
                                                            <Columns>
                                                                <asp:TemplateField>
                                                                    <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosOpciones" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
--- 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