From c946e6ef5ac841b598f7d794f42023c5b7a1f4de Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Dec 2023 06:42:42 -0700 Subject: [PATCH] -- correccion para que recargue al eliminar --- Planeacion/CatFolios.aspx.vb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/Planeacion/CatFolios.aspx.vb b/Planeacion/CatFolios.aspx.vb index 3f6d7292f..acadb8f3a 100644 --- a/Planeacion/CatFolios.aspx.vb +++ b/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