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

-

Browse Source
This commit is contained in:
rrene
2023-12-26 19:22:49 -07:00
parent 108261dadc
commit 60a04cc21b
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AF/AF.aspx.vb
View File

@@ -2652,9 +2652,15 @@ Partial Class AF_AF
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
Dim ObjActivoFijo As New ClsAF() Dim ObjActivoFijo As New ClsAF()
ObjActivoFijo.IniciaTransacSQL()
If ObjActivoFijo.RemoveActivosFijos(CveActivoFijo) Then If ObjActivoFijo.RemoveActivosFijos(CveActivoFijo) Then
Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""") Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""")
ObjActivoFijo.Commit()
Else
ObjActivoFijo.RollBack()
End If End If
ObjActivoFijo.Dispose() ObjActivoFijo.Dispose()
End Sub End Sub