-

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