From 4da248bb2dd2dccf649c138be3c94109861d8052 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 28 May 2020 13:31:32 -0700
Subject: [PATCH] registro de campos en el detalle de bitacora al eliminar

---
 Bancos/IE.aspx.vb | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 82d3c75e9..699111d4a 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -720,7 +720,7 @@ Partial Class Bancos_IE
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
 
                 CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero
-                NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
+                'NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
 
                 If UsuarioActual.TienePermisoProceso(99) Then
                     'BtnActualizar.Visible = True
@@ -4748,7 +4748,23 @@ Partial Class Bancos_IE
             Dim Banc As New ClsBancos
             Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
             Dim ObjGral As New ClsGenerales(Banc.IniciaTransacSQL())
-            If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Banco", TxtFolio.Text + " / " + Cuenta) Then
+
+            Dim DescripcionAus As String = TxtDescripcion.Text
+
+            If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento:{DdlTipoTransaccion.SelectedItem.Text}")
+            If DdlCuenta.SelectedItem.Text <> "Seleccione" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Cuenta:{DdlCuenta.SelectedItem.Text}")
+            If TxtFolio.Text <> "" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Número:{TxtFolio.Text}")
+            If TxtImporte.Text <> "" AndAlso TxtImporte.Text <> "0" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Importe:{TxtImporte.Text}")
+            If DdlCliente.Visible Then
+                DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlCliente.SelectedText}")
+            ElseIf DdlProveedores.Visible Then
+                DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlProveedores.SelectedText}")
+            ElseIf DdlPersonal.Visible Then
+                DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlPersonal.SelectedItem.Text}")
+            End If
+            DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Fecha:{TxtFechaDocumento.Text}")
+
+            If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DescripcionAus, "Banco", TxtFolio.Text + " / " + Cuenta) Then
                 Borrar = True
             End If