From 8ca409b9e0fbb886eb0a66cb1c9b93c0e6c974a5 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 30 Aug 2021 20:38:35 -0700
Subject: [PATCH] Actualizar Tipo de transaccion

---
 App_Code/ClsBancos.vb | 3 ++-
 Bancos/IE.aspx.vb     | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 7cbae50f4..858a38c2f 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1497,7 +1497,7 @@ Public Class ClsBancos
         Return Retorno
     End Function
     Public Function UpdateBancos_IE(FechaDocumento As DateTime, FechaAplicado As DateTime?, CveIE As Integer, Optional Folio As String = "-1", Optional CveCuentaDeposito As Integer = -1, Optional CveCuenta As Integer = -1,
-                                    Optional Observaciones As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
+                                    Optional Observaciones As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IEUpdate")
@@ -1519,6 +1519,7 @@ Public Class ClsBancos
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
 
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
 
 
         End With
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 1ad24c658..6b6664e00 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4311,7 +4311,7 @@ Partial Class Bancos_IE
         Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero)
 
         If Not IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
-                              Observaciones:=TxtObservaciones.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                              Observaciones:=TxtObservaciones.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero) Then
             OcurrioError = True
         End If