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 @@
                                                 </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>
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