.

AF/CatClasificacionesCaracteristicas.aspx.vb

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
             'Carga Globals para DT
             CargaTiposActivosFijos()
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()
         End If
     End Sub
 
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         ObjAF.Dispose()
     End Sub
-    Private Sub CargaCaracteristicasClasificaciones()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-
-            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-    Private Sub CargaCaracteristicas()
-        'Dim ObjAF As New ClsAF
-
-        'If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-        '    GlobalDTAFCaracteristicas = ObjAF.DtResultados
-        'Else
-        '    Alert("Ocurrio un error al obtener las caracteristicas 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
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
             UpTitulosCL.Update()
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
 
             If ViewState("OrdenCL").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region "CARGA DATOS"
     Public Sub CargaDatosCL()
-        Dim ObjCaracteristicaClasificacion As New ClsAF
-        If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados
-
-        Else
-            Me.GvDatosCL.DataSource = Nothing
-        End If
-
-        ObjCaracteristicaClasificacion.Dispose()
-
         If ViewState("OrdenCL").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCL").ToString(), 0)
         Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -264,11 +229,11 @@ Partial Class AF_CatClasificacionesCaracteristicas
             Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulosCA.Update()
             ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
+
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()
 
             If ViewState("OrdenCA").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,15 +246,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region " CARGA DATOS"
     Public Sub CargaDatosCA()
-        Dim ObjCaracteristicas As New ClsAF
-        If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        Else
-            Me.GvDatosCA.DataSource = Nothing
-        End If
-
-        ObjCaracteristicas.Dispose()
-
         If ViewState("OrdenCA").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCA").ToString(), 1)
         Else
@@ -373,7 +329,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -411,7 +366,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
 
             CargaSubTiposActivosFijos()
 
@@ -741,21 +696,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
     Private Sub CargaGrid(Orden As String, gvi As Integer)
         If gvi = 0 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCL.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
             Else
-                GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable)
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
             End If
             GvDatosCL.DataBind()
             UpDatosCL.Update()
         ElseIf gvi = 1 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCA.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
             Else
-                GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
             End If
             GvDatosCA.DataBind()
             UpDatosCA.Update()