Historial de Modificación de IE

Bancos/IE.aspx

@@ -962,7 +962,7 @@
                                     <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Descripcion" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
                             <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />

Bancos/IE.aspx.vb

@@ -424,6 +424,31 @@ 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
 
 
 
@@ -1086,6 +1111,10 @@ Partial Class Bancos_IE
 
             End If
 
+            ' DATOS PARA LA BITACORA
+            CuentaOld = LblCuenta.Text
+            FechaOld = TxtFechaDocumento.Text
+            FolioOld = TxtFolio.Text
 
         End If
 
@@ -3683,20 +3712,46 @@ Partial Class Bancos_IE
     Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
 
         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
+                              Observaciones:=TxtObservaciones.Text) Then
-            Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""")
+            'Agrega a la Bitacora
-        End If
+            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
+            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)