From 60a04cc21bd53f8d1a64ae5176284c47d69b8c27 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 26 Dec 2023 19:22:49 -0700 Subject: [PATCH] - --- AF/AF.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 0d497a0ad..2021d462e 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2652,9 +2652,15 @@ Partial Class AF_AF Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Dim ObjActivoFijo As New ClsAF() + ObjActivoFijo.IniciaTransacSQL() + 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 + ObjActivoFijo.Dispose() End Sub