-- correccion para que recargue al eliminar

Planeacion/CatFolios.aspx.vb

@@ -90,10 +90,10 @@ Partial Class CatFolios
     End Sub
     Public Sub CargaDatos()
         Dim ObjFolios As New ClsGralFolios
-        If ObjFolios.GetFolios() Then
-            ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        If ObjFolios.GetFolios(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            ViewState("DTFolios") = ObjFolios.DtResultados
 
-            GvDatos.DataSource = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GvDatos.DataSource = ObjFolios.DtResultados
             GvDatos.DataBind()
         Else
             Me.GvDatos.DataSource = Nothing
@@ -153,11 +153,10 @@ Partial Class CatFolios
         Dim ObjFolios As New ClsGralFolios
         If ObjFolios.RemoveFolios(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
-            ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-
             Alert("La Aprobación de Folios se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjFolios.Dispose()
+        CargaDatos()
     End Sub
 
 #End Region
@@ -166,7 +165,7 @@ Partial Class CatFolios
 #Region "G U A R D A R "
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
         Dim ObjFolios As New ClsGralFolios
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
 
         If HdnModalidad.Value = "I" Then