From 4190eff626cbb19f25d2315cd1044b5fe8f616ea Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Fri, 23 Aug 2019 11:11:13 -0700
Subject: [PATCH] =?UTF-8?q?Se=20agreg=C3=B3=20bit=C3=A1cora=20en=20Trigger?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsBancos.vb |  8 +++---
 Bancos/IE.aspx.vb     | 62 ++++---------------------------------------
 2 files changed, 9 insertions(+), 61 deletions(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 5f783d5de..dfdc4803e 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1316,7 +1316,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") As Boolean
+                                    Optional Observaciones As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IEUpdate")
@@ -1335,9 +1335,9 @@ Public Class ClsBancos
 
             .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-
-
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
 
 
         End With
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index f718db096..eed0dc218 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -424,32 +424,6 @@ Partial Class Bancos_IE
 
     End Property
 
-    Private Property CuentaOld As String
-        Get
-            Return CType(ViewState("CuentaOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("CuentaOld") = value
-        End Set
-    End Property
-    Private Property FechaOld As String
-        Get
-            Return CType(ViewState("FechaOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("FechaOld") = value
-        End Set
-    End Property
-
-    Private Property FolioOld As String
-        Get
-            Return CType(ViewState("FolioOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("FolioOld") = value
-        End Set
-    End Property
-
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -1120,13 +1094,9 @@ Partial Class Bancos_IE
 
                 UpGuardar.Update()
 
-            End If
-
-            ' DATOS PARA LA BITACORA
-            CuentaOld = LblCuenta.Text
-            FechaOld = TxtFechaDocumento.Text
-            FolioOld = TxtFolio.Text
-
+            End If
+
+
         End If
 
         'If CveIE > 0 Then
@@ -3724,45 +3694,23 @@ Partial Class Bancos_IE
 
         Dim IE As New ClsBancos
         IE.IniciaTransacSQL()
-        Dim ObjGral As New ClsGenerales
-        ObjGral.IniciaTransacSQL()
         Dim FechaAplicado As DateTime? = Nothing
         Dim OcurrioError As Boolean = False
 
         Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero)
 
-        If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
-                              Observaciones:=TxtObservaciones.Text) Then
-            'Agrega a la Bitacora
-            If CuentaOld <> DdlCuenta.SelectedItem.Text Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, DdlCuenta.SelectedItem.Text, CuentaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Cuenta", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-            If FechaOld <> TxtFechaDocumento.Text.Trim Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFechaDocumento.Text.Trim, FechaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Fecha", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-            If FolioOld <> TxtFolio.Text.Trim Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFolio.Text.Trim, FolioOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Número", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-        Else
+        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
             OcurrioError = True
         End If
 
         If OcurrioError Then
             IE.RollBack()
-            ObjGral.RollBack()
         Else
             IE.Commit()
-            ObjGral.Commit()
             Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""")
         End If
         IE.Dispose()
-        ObjGral.Dispose()
     End Sub
 
     Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs)