-- mejora warnings

AF/CatClasificacionesCaracteristicas.aspx.vb

@@ -81,8 +81,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ObjAF As New ClsAF
 
         If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados
+
-            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados
         Else
             Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
         End If
@@ -90,15 +90,15 @@ Partial Class AF_CatClasificacionesCaracteristicas
         ObjAF.Dispose()
     End Sub
     Private Sub CargaCaracteristicas()
-        Dim ObjAF As New ClsAF
+        'Dim ObjAF As New ClsAF
 
-        If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
+        'If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicas = ObjAF.DtResultados
+        '    GlobalDTAFCaracteristicas = ObjAF.DtResultados
-        Else
+        'Else
-            Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
+        '    Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
-        End If
+        'End If
 
-        ObjAF.Dispose()
+        'ObjAF.Dispose()
     End Sub
 
 #Region "CLASIFICACIONES"
@@ -128,8 +128,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
     Public Sub CargaDatosCL()
         Dim ObjCaracteristicaClasificacion As New ClsAF
         If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados
-            GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados
+
         Else
             Me.GvDatosCL.DataSource = Nothing
         End If
@@ -264,7 +264,7 @@ 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()
@@ -284,7 +284,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
             ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
         Else
             Me.GvDatosCA.DataSource = Nothing
         End If
@@ -301,7 +300,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
     End Sub
     Private Sub CargaClasificacionesCA()
         DdlClasificacionesCA.Items.Clear()
-        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
+        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
         DdlClasificacionesCA.DataBind()
         UpdatePanel1.Update()
     End Sub
@@ -375,7 +374,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         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 = ObjCaracteristicas.DtResultados
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -521,7 +520,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         DdlCaracteristicaOpciones.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero))
-        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         DdlCaracteristicaOpciones.DataBind()
         DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -581,7 +580,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1"))
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
 
-                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas
+                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
                 FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +690,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         ddlC.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero))
-        ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         ddlC.DataBind()
         ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub