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