--transacción ajustemovto,

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()