AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- correccion para que recargue al eliminar

Browse Source
This commit is contained in:
rrene
2023-12-20 06:42:42 -07:00
parent 7e784a40c7
commit c946e6ef5a
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Planeacion/CatFolios.aspx.vb
View File

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