From fcea33c1105ed31de71ac4e2d2156d5640cddb19 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 20 Oct 2022 13:48:28 -0700
Subject: [PATCH] =?UTF-8?q?--transacci=C3=B3n=20ajustemovto,?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index a2bd46524..a75ea1a03 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6457,10 +6457,14 @@ Partial Class Bancos_IE
     Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
 
         Dim ObjBanco As New ClsBancos
+        ObjBanco.IniciaTransacSQL()
 
         If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            ObjBanco.Commit()
             RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
             Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
+        Else
+            ObjBanco.RollBack()
         End If
 
         ObjBanco.Dispose()